ASP-Funktion zur Erkennung, ob die Verbindung normal ist

<%
Funktion urlChk(sUrl)
Bei Fehler als nächstes fortfahren
Setze xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open „GET“,sUrl,false
xmlHttp.send
wenn xmlHttp.Status <> 200 dann
urlChk=false
anders
urlChk=true
Ende wenn
End Function

sUrl=" http://code.dlstu.cn "

if urlChk(sUrl) then
Response.write(sUrl&"(可以正常访问！)")
anders
Response.write(sUrl&"(页面打开错误！)")
Ende wenn
%>