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="http://www.glzy8.com"

　　if urlChk(sUrl) then

　　response.write(sUrl&"(可以正常访问)")

　　else

　　response.write(sUrl&"(访问不了)")

　　end if