FunctionurlChk(sUrl)
onerrorresumenext
SetxmlHttp=Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open"GET",sUrl,false
xmlHttp.send
ifxmlHttp.Status<>200then
urlChk=false
else
urlChk=true
endif
EndFunction
sUrl="https://www.jb51.net"
ifurlChk(sUrl)then
response.write(sUrl&"(可以正常访问)")
else
response.write(sUrl&"(访问不了)")
endif
网站建设 IT知识 IT知识教程 asp下的一个检测链接是否正常的函数 
最新文章
热门文章
猜你喜欢
