<%
Função urlChk(sUrl)
em caso de erro, retome a seguir
Definir xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET",sUrl,falso
xmlHttp.send
se xmlHttp.Status <> 200 então
urlChk=falso
outro
urlChk = verdadeiro
terminar se
Função final
sUrl=" http://code.dlstu.cn "
se urlChk(sUrl) então
resposta.write(sUrl&"(可以正常访问！)")
outro
resposta.write(sUrl&"(页面打开错误！)")
terminar se
%>