redirect hvis død
Dennis Hansen
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!
Helst noget asp af en art... tak ! måske noget javascript som tjekker for et
evt. ping er den der så kan den skyde siden videre eller ikke!?
mvh
Dennis
Brian B. Christensen
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!
Hvis du har komponenten ASPping installeret, kan du lave noget
lignende dette:
<%
objPing.RemoteHost ="111.111.111.111"
objPing.PingCount = 1
Request.Write(objPing.Ping)
Set objPing = Nothing
<%
Så det er altså metoden Ping der returnerer svaret.
Mvh. Brian
--
Min private babeside - nu med IPIX billeder.
http://www.patricia-brinch.dk (Ved e-mail, slet 2xBEDSTE)
Zelinski fanside: http://www.zelinski.dk
Jakob Andersen
> 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