asp下的一个检测链接是否正常的函数

2018-09-06 13:03

阅读:350

  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


评论


亲,登录后才可以留言!