探究如何使用 ASP 查找 Web 上正确的超连接

探究如何使用 ASP 查找 Web 上正确的超连接？

<%

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.code-123.com

if urlChk(sUrl) then

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

else

    response.write(sUrl&"(页面打开错误！)")

end if

%>

（编辑：银川站长网）

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