asp下的一个检测链接是否正常的函数
来源:
中文源码网 浏览:165 次 日期:2024-04-26 04:15:38
【下载文档: asp下的一个检测链接是否正常的函数.txt 】
asp下的一个检测链接是否正常的函数
Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send if xmlHttp.Status <> 200 then urlChk=false else urlChk=true end if End Function sUrl="//www.zwyuanma.com" if urlChk(sUrl) then response.write(sUrl&"(可以正常访问)") else response.write(sUrl&"(访问不了)") end if