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

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.Cuoxin.com"

if urlChk(sUrl) then

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

else

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

end if

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!