<%
関数urlChk(sURL)
エラー時は次から再開
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET",sUrl,false
xmlHttp.send
xmlHttp.Status <> 200 の場合
URLChk=false
それ以外
URLChk=true
終了する場合
関数終了
sUrl=" http://code.dlstu.cn "
if urlChk(sUrl) then
response.write(sUrl&"(可以正常访问！)")
それ以外
response.write(sUrl&"(页面打开错误！)")
終了する場合
%>