<%
函数 urlChk(sUrl)
出错时继续下一步
设置 xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open“GET”，sUrl，false
xmlHttp.send
如果 xmlHttp.Status <> 200 那么
urlChk=假
别的
urlChk=true
结束如果
结束函数
sUrl=" http://code.dlstu.cn "
if urlChk(sUrl) then
response.write(sUrl&"(可以正常访问！)")
别的
response.write(sUrl&"(页面打开错误！)")
结束如果
%>