<%
Функция urlChk(sUrl)
при ошибке продолжить дальше
Установите xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET", sUrl, false
xmlHttp.send
если xmlHttp.Status <> 200, то
urlChk = ложь
еще
urlChk=истина
конец, если
Конечная функция
sUrl=" http://code.dlstu.cn "
если urlChk(sUrl), то
response.write(sUrl&"(可以正常访问！)")
еще
response.write(sUrl&"(页面打开错误！)")"
конец, если
%>