"Dennis Hansen" <dh@voguemedia.dk> wrote
> Jeg har overvejet om det er muligt at lave en side som går ud og tjekker
> f.eks. om ens webserver hjemme er online, er den ikke det blier man smidt
> videre til en side som fortæller at den er nede!
Den lidt mere avancerede model kunne være hvor du også requester et dokument
og tjekker at du ikke får en fejlkode smidt i hovedet. Det er jo ikke fedt
at serveren er "oppe" og så får brugerne en fejlbesked i hovedet
Jeg har tidligere lavet nedenstående lille eksempel der tester om en FTP
service kører på en adresse, og om hvorvidt man kan logge ind.
Det burde ikke være en stor sag at oversætte det til at tjekke på port
80(WWW) og lave et request:
<%
Option Explicit
Function IsFTPRunning( strServer, strUser, strPassword )
On Error Resume Next
Dim objSocket
Set objSocket = Server.CreateObject( "Socket.TCP" )
objSocket.Timeout = 1000
objSocket.Host = Trim(strServer) & ":21"
objSocket.Open()
objSocket.SendLine("USER " & strUser)
objSocket.SendLine("PASS " & strPassword)
objSocket.SendLine("QUIT")
objSocket.WaitForDisconnect()
If Instr( objSocket.Buffer, "230 " ) Then
IsFTPRunning = True
Response.Write( "Der kunne logges ind på serveren " & strServer & "<br/>")
Else
IsFTPRunning = False
Response.Write( "Der kunne IKKE logges ind på serveren " & strServer &
"<br />")
End If
If Err.Number <> 0 Then
Response.Write( "Der kunne ikke oprettes forbindelse til serveren " &
strServer & "<br />" )
End If
End Function
IsFTPRunning "ftp.domæne.dk", "brugernavn", "password"
IsFTPRunning "ftp.domæne2.dk", "brugernavn2", "password2"
%>
Sig til hvis du løber panden mod muren...
--
Jakob Andersen