Group: Administrator
Level: heavy Spammer
Posts: 3607
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.
|
Search 
Calendar 
Gallery
Auctions 
Global 
Top
Members 
Stats
Chat (0) new 
send Password 
Register
