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="http://www.jb51.net" if urlChk(sUrl) then response.write(sUrl&"(可以正常访问)") else response.write(sUrl&"(访问不了)") end if

　　推荐阅读

　　asp实现的可以提醒生日的几种方法附代码

asp生日自动提醒小程式 用ASP编写，调试通过，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use方法一： 最初写的一个用于班级网站的最近一个月同学生>>>详细阅读

本文标题：asp下的一个检测链接是否正常的函数

地址：http://www.17bianji.com/kaifa2/ASP/32208.html

 1/2    1