<%
وظيفة urlChk(sUrl)
على خطأ استئناف المقبل
تعيين xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET"،sUrl،false
xmlHttp.send
إذا كان xmlHttp.Status <> 200 ثم
urlChk=false
آخر
urlChk=true
نهاية إذا
نهاية الوظيفة
sUrl = " http://code.dlstu.cn "
إذا كان urlChk(sUrl) ثم
Response.write(sUrl&"(可以正常访问!)")"
آخر
Response.write(sUrl&"(页面打开错误!)")"
نهاية إذا
%>