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

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

medialabsMedlem sedan mars 20023 686 inlägg

Frågan4 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 :r

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..) :)