<%
函數 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&"(頁開啟錯誤！)")
結束如果
%>