Group: Administrator Level: heavy Spammer
Posts: 3610 Joined: 3/11/2004 IP-Address: saved

| Mit diesem Script könnt ihr auf einer Webseite anzeigen, ob ein anderer Webserver erreichbar ist und läuft.
<% s1URL = "http://www.cyberlord.at" response.write "Webserver 1<br>" iStatus = 0 set obj = Server.CreateObject("MSXML2.XMLHTTP.4.0") On Error Resume Next obj.open "Get", s1URL, False obj.send "" If err.number = 0 then iStatus = obj.Status End if If iStatus = 200 then Response.Write "<a href='"& s1URL &"' target=_blank><font color=green>Online/font></a>" else Response.Write "<font color=red>Offline</font>" End if %>
Benötigt wird der IIS-Webserver und der XML-Parser.
|