<%
url=request.querystring("url")

Function CheckUrl(murl)
on error resume next
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET",murl,false
xmlHttp.send
    if xmlHttp.Status <> 200 then
        CheckUrl=false
    else
        CheckUrl=true
    end if
End Function

if CheckUrl(url) then
    response.write(url&"(链接正常)")
else
    response.write(url&"(掉链、坏链、死链)")
end if
%>