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.jb51.net"
if urlchk(surl) then
    response.write(surl&"(可以正常访问)")
else
    response.write(surl&"(访问不了)")
end if

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！