asp下的一个检测链接是否正常的函数
2018-09-06 13:03
阅读：351
FunctionurlChk(sUrl)
onerrorresumenext
SetxmlHttp=Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.openGET,sUrl,false
xmlHttp.send
ifxmlHttp.Status<>200then
urlChk=false
else
urlChk=true
endif
EndFunction
sUrl=//
ifurlChk(sUrl)then
response.write(sUrl&(可以正常访问))
else
response.write(sUrl&(访问不了))
endif
评论
亲，登录后才可以留言！