Läsa in för att sedan skriva ut bättre?

5 svar · 263 visningar · startad av medialabs 4 nov. 2003

medialabsMedlem sedan mars 20023 686 inlägg

Trådstart4 nov. 2003 19:28#1

Hejsan.

Tänkte använda mig av dshield.org's "altert feeder", i deras exempel så använder som sig av php. Jag skulle behöva nått i ASP som läser in http://feeds.dshield.org/top10-2.txt för att sedan presentera detta på ett snyggt sätt, skulle även vilja ha dom numrerade från 1 till 10 om det är möjligt?

Tex:

1. 2174.255.855 fdf.624.telia.com
2. 258.28.858 8652.fgsad.ftelia.com
osv..

Tror att man jag måste använda mig av regexp, som jag har dåliga minnen av

Hoppas att ni kan hjälpa mig

SebbeMedlem sedan jan. 20032 285 inlägg

4 nov. 2003 22:25#2

Fattade inte riktigt, men vi kör väl ändå får vi se.

<table border="1">
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://feeds.dshield.org/top10-2.txt", False
objHTTP.Send
arrText = Split(objHTTP.ResponseText, Chr(10))
Set objHTTP = Nothing

For i = 0 To UBound(arrText)
  If InStr(arrText(i), vbTab) > 0 Then
    Response.Write("  <tr>" & vbCrLf)
    arrTemp = Split(arrText(i), vbTab)
    Response.Write("    <td>" & i + 1 & ".</td><td>" & arrTemp(0) & "</td><td>" & arrTemp(1) & "&nbsp;</td>" & vbCrLf)
    Response.Write("  </tr>" & vbCrLf)
  End If 
Next
%>
</table>

medialabsMedlem sedan mars 20023 686 inlägg

5 nov. 2003 13:04#3

Sebbe skrev:

Fattade inte riktigt, men vi kör väl ändå får vi se.

<table border="1">
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://feeds.dshield.org/top10-2.txt", False
objHTTP.Send
arrText = Split(objHTTP.ResponseText, Chr(10))
Set objHTTP = Nothing

For i = 0 To UBound(arrText)
  If InStr(arrText(i), vbTab) > 0 Then
    Response.Write("  <tr>" & vbCrLf)
    arrTemp = Split(arrText(i), vbTab)
    Response.Write("    <td>" & i + 1 & ".</td><td>" & arrTemp(0) & "</td><td>" & arrTemp(1) & "&nbsp;</td>" & vbCrLf)
    Response.Write("  </tr>" & vbCrLf)
  End If 
Next
%>
</table>

Exakt så, Tack så mycket

medialabsMedlem sedan mars 20023 686 inlägg

5 nov. 2003 17:36#4

En följdfråga, går det att göra nån kontroll, skulle vilja skriva ut en viss text om inte den kunde ladda in den där filen Tex:

"För tillfället är denna tjänst nere pga. problem med servern. "

@ndersMedlem sedan juni 200032 967 inlägg

5 nov. 2003 17:39#5

Japp.

Exempel:

On Error Resume Next

     ' Här lägger du koden det eventuellt kan bli fel på

If Err.Number <> 0 Then
     ' Någe är paj!
     Response.write "Sorry, snubben! Inte direkt funkis!"
     Err.Clear
End if

On Error Goto 0

Mvh

medialabsMedlem sedan mars 20023 686 inlägg

5 nov. 2003 17:44#6

@nders skrev:

Japp.

Exempel:

On Error Resume Next

     ' Här lägger du koden det eventuellt kan bli fel på

If Err.Number <> 0 Then
     ' Någe är paj!
     Response.write "Sorry, snubben! Inte direkt funkis!"
     Err.Clear
End if

On Error Goto 0

Mvh

Tack så mycket, hade helt glömt bort att man kunde använda sig av "On error resume next", (inte ofta man använder den när man leker med asp..)