asp下的一个检测链接是否正常的函数

1. Function urlChk(sUrl)  
2. on error resume next  
3. Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")  
4. xmlHttp.open "GET",sUrl,false  
5. xmlHttp.send  
6.     if xmlHttp.Status <> 200 then  
7.         urlChk=false  
8.     else  
9.         urlChk=true  
10.     end if  
11. End Function  
12.  
13. sUrl="//www.zzvips.com"  
14. if urlChk(sUrl) then  
15.     response.write(sUrl&"(可以正常访问)")  
16. else  
17.     response.write(sUrl&"(访问不了)")  
18. end if