Check urls online status

Du kan bruge winhttp:
Dim objWinHttp, strUrl, lngResult
strUrl = "http://www.jubii.dk/"
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", strUrl, False
objWinHttp.Send 
lngResult = WinHttpReq.Status
Set objWinHttp = Nothing

Result vil nu indeholde 200 hvis siden findes og er i orden.

<%
Sub CheckPage(strInput)
    Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
    URL = strInput
    oServerXMLHTTPRequest.open "GET", URL, False
    oServerXMLHTTPRequest.Send
    result = oServerXMLHTTPRequest.Status
   
    'Se http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/xmprostatusserverxmlhttp.asp
    'for alle status beskjeder
    If result = "404" Then'Not found
        Check = "&nbsp;<font color=red><b>Offline</b></font>"
    Elseif result = "200" Then'OK
        Check = "&nbsp;<font color=green><b>Online</b></font>"
    End if
   
    Response.Write(strInput & check)
End Sub

'Sjekker url som er skrevt inn
Call CheckPage("http://www.experten.dk")
'Denne sjekker hvis du har url i en streng
'Call CheckPage(strURLToCheck)
%>

Hej igen morten, ja genbrug er godt. desværre kom jeg til at kopiere min egen slåfejl fra før, så her kommer det korrekt

Dim objWinHttp, strUrl, lngResult
strUrl = "http://www.jubii.dk/"
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", strUrl, False
objWinHttp.Send 
lngResult = objWinHttp.Status
Set objWinHttp = Nothing

Det er noget i den stil jeg leder efter...

Problemet her er bare, at hvis jeg skriver en url, der ikke findes. f.eks. http://aspaspaspasp.dk, vil der komme en fejl

Hvordan får jeg den fejl til at vise server som offline??

Du skriver inn On error resume next og legger til en else...

Se her...

<%
Sub CheckPage1(strInput)
    On Error Resume Next
    Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
    URL = strInput
    oServerXMLHTTPRequest.open "GET", URL, False
    oServerXMLHTTPRequest.Send
    result = oServerXMLHTTPRequest.Status
   
    'Se http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/xmprostatusserverxmlhttp.asp
    'for alle status beskjeder
    If result = "404" Then'Not found
        Check = "&nbsp;<font color=red><b>Offline</b></font>"
    Elseif result = "200" Then'OK
        Check = "&nbsp;<font color=green><b>Online</b></font>"
    Else
        Check = "&nbsp;<font color=red><b>Invalid URL eller finnes ikke!</b></font>"
    End if
   
    Response.Write(strInput & check)
End Sub

Call CheckPage1("http://www.sdfsadasads.dk")
%>

Jeg har da også et bud på det :o)


Dim objWinHttp, strUrl
strUrl = "http://www.jubii.dk"
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", strUrl, False
on error resume next
objWinHttp.Send
if err or objWinHttp.Status <> 200 then Response.Write "Fejl"
on error goto 0
Set objWinHttp = Nothing

//Idanielsen

;o) he he

Helt alvorligt, hvis du laver on error resume next, så synes jeg bestemt det skal efterfølges af on error goto 0, ellers kan koden jo løbe helt af sporet.

Kanon boys.. takker mange gange

</cthun>

selv tak