Check om side eksistere

Skal du sjekke om en fil eller domene eksisterer

feks? http://www.domene.no eller http://www.domene.no/minfil.htm

<%
Sub CheckPage(strInput)
    'Dim oServerXMLHTTPRequest,URL,Kilde,Arr_Kilde,Arr_ISP,ISP
    Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
    URL = strInput
    oServerXMLHTTPRequest.open "GET", URL, False
    oServerXMLHTTPRequest.Send
    Kilde = LCase(oServerXMLHTTPRequest.ResponseText)
   
    'Her kan du lage en check som sjekker hva den returnerer.
    If ..... din kode Then
        Check = "Siden finnes!"
    Else
        Check = "Siden eksisterer ikke!"
    End if
   
    Response.Write(Check)
End Sub

Call CheckPage("http://www.experten.dk/slja.asp")
%>

Du kan bruge winhttp:

Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", strUrl, False
objWinHttp.Send 
result =WinHttpReq.Status
Set objWinHttp = Nothing

Result vil nu indeholde 404 hvis siden ikke findes. Jeg kan ikke huske hvad den er hvis den eksisterer

sorry:
result = objWinHttp.Status

Nå mortency, det var tæt på. WinHttp.WinHttpRequest.5.1 kan alt det Msxml2.ServerXMLHTTP kan, pånær at parse XML, så den vil være det rigtige valg i mange tlfælde

//Idanielsen
Hva er forskjellen? Det fungerer med begge....

<%
Sub CheckPage1(strInput)
    Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
    URL = strInput
    oServerXMLHTTPRequest.open "GET", URL, False
    oServerXMLHTTPRequest.Send
    result = oServerXMLHTTPRequest.Status
   
    If result = "404" Then
        Check = "&nbsp;<font color=red><b>Offline</b></font>"
    Elseif result = "200" Then
        Check = "&nbsp;<font color=green><b>Online</b></font>"
    End if
   
    Response.Write(strInput & check)
End Sub

Call CheckPage1("http://www.experten.dk/spm/aslm.htm")
%>
<%
Sub CheckPage2(strInput)
    Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
    objWinHttp.Open "GET", strInput, False
    objWinHttp.Send 
    result = objWinHttp.Status
    Set objWinHttp = Nothing
   
    If result = "404" Then
        Check = "&nbsp;<font color=red><b>Offline</b></font>"
    Elseif result = "200" Then
        Check = "&nbsp;<font color=green><b>Online</b></font>"
    End if
   
    Response.Write(strInput & check)
End Sub

Call CheckPage2("http://www.sol.no/indexsasas.asp")
%>

Du kan se http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/xmprostatusserverxmlhttp.asp for alle status beskjeder.