Asp判断Url是否有效

< % 
url = " http://www.sina.com.cn "  

Function    chku(murl) 
on     error     resume     next  
Set    xmlHttp    =    Server.CreateObject( " Microsoft.XMLHTTP " ) 
xmlHttp.open    " GET " ,murl, false  
xmlHttp.send 
         if    xmlHttp.Status    <>     200     then  
                chku = false  
         else  
                chku = true  
         end     if  
End     Function  

if    chku(url)    then  
        response.write(url & " (链接正常) " ) 
else  
        response.write(url & " (掉链、坏链、死链) " ) 
end     if  
% >  

  http://www.qqgb.com/NetProgramme/ASP/ASPJQ/NetProgramme_164736.html