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.jb51.net” if urlChk(sUrl) then r