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