<%
Fonction urlChk(sUrl)
en cas d'erreur, reprendre ensuite
Définir xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET", sUrl, faux
xmlHttp.envoyer
si xmlHttp.Status <> 200 alors
urlChk=faux
autre
urlChk = vrai
finir si
Fin de la fonction
sUrl=" http://code.dlstu.cn "
si urlChk(sUrl) alors
réponse.write(sUrl&"(可以正常访问！)")
autre
réponse.write(sUrl&"(页面打开错误！)")
finir si
%>