28,391
社区成员
发帖
与我相关
我的任务
分享
location.href;
function CheckURL(byval A_strUrl)
set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD", A_strUrl, false
XMLHTTP.send()
CheckURL = (XMLHTTP.status = 200)
set XMLHTTP = nothing
end function
if CheckURL("Http://www.up2sky.net/blog/") then
Response.Write "页面存在"
else
Response.Write "页面不存在"
end if
注:只有在HTTP状态代码是200(正常)时才会返回True;其它的状态不论是404(找不到)还是500(服务器错误)都是返回False
另:服务器需要安装Microsoft.XMLHTTP组件,版本不同的回ActiveX对象名也不一样,如果不行你可以尝试改成下面这些:
Msxml.XMLHTTP
Msxml2.XMLHTTP
Msxml3.XMLHTTP
Msxml4.XMLHTTP
MSXML2.XmlHttp.5.0
MSXML2.XmlHttp.4.0
MSXML2.XmlHttp.3.0
(把“Http://www.up2sky.net/blog/”替换成你要判断的页面)