<%
함수 urlChk(sUrl)
오류 발생 시 다음 재개
xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 설정
xmlHttp.open "GET",sUrl,false
xmlHttp.send
xmlHttp.Status <> 200이면
urlChk=거짓
또 다른
urlChk=참
종료하면
함수 종료
sUrl=" http://code.dlstu.cn "
if urlChk(sUrl) then
response.write(sUrl&"(可以正常访问！)")
또 다른
response.write(sUrl&"(页면打开错误!)")
종료하면
%>