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.zzzyk.com" 
if urlChk(sUrl) then 
    response.write(sUrl&"(可以正常访问)") 
else 
    response.write(sUrl&"(访问不了)") 
end if 

上一个：asp生成不需要数据库的中奖码
下一个：迅雷API接口_通过脚本调用迅雷自动下载资源