判断远程图片是否存在？

[lyb2006]

使用以下代码，当网站设置了404错误页面的时候，图片判断就失败，明明不存在的图片，会被认为存在，如何改成能判断404？？
<%
function CheckURL(byval A_strUrl)
Set XMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xmlhttp.open "HEAD",A_strUrl, false
XMLHTTP.send()
CheckURL=XMLHTTP.status=200
set XMLHTTP = nothing
end function
Dim imgurl
imgurl="http://163.com/UploadF8iles/2007829144940734.gif"
if CheckURL(imgurl) then
response.write "图片存在"
else
response.write "图片不存在"
end if
%>

[wdbjsh]

当404错误的时候，XMLHTTP.status的值是多少？

[TakiCN]

XMLHTTP.status=404

[lyb2006]

[Quote=引用 2 楼 Taki_CN 的回复:]
XMLHTTP.status=404
[/Quote]

无效，存在的图片也显示不存在了

[littlelam]

<img onerror="this.src='noimg.gif'" src="xxx.gif" />

[lyb2006]

function CheckURL(byval A_strUrl)
set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",A_strUrl,false
XMLHTTP.send()

if InStr(XMLHTTP.getResponseHeader("Content-Type"),"image")>0 then
CheckURL=true
else
CheckURL=false
end if
set XMLHTTP = nothing
end functionDim

自己解决了，赞美网络的搜索功能

[Forthleo]

学习，