在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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="https://www.ogeek.net" if urlChk(sUrl) then response.write(sUrl&"(可以正常访问)") else response.write(sUrl&"(访问不了)") end if |
请发表评论