ASP xmlhttp获取远程网址是正常还是死链的函数

<%
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
Response.Write "<script language='javascript'>alert('"&xmlHttp.Status&"')</script>"
Response.End
        chku=false
    else
        chku=true
    end if
End Function



url=request.querystring("u")
if chku(url) then
    response.write(url&"(正常)")
else
    response.write(url&"(404 掉链、坏链、死链)")
end if
%>