<%
Función urlChk(surl)
en caso de error reanudar siguiente
Establecer xmlHttp = Server.CreateObject ("Microsoft.XMLHTTP")
xmlHttp.open "OBTENER", sUrl, falso
xmlHttp.enviar
si xmlHttp.Status <> 200 entonces
urlChk=falso
demás
urlChk=verdadero
terminar si
Función final
sUrl=" http://code.dlstu.cn "
si urlChk(sUrl) entonces
respuesta.write(sUrl&"(可以正常访问！)")
demás
respuesta.write(sUrl&"(页面打开错误！)")
terminar si
%>