<%

function CheckURL(byval A_strUrl)

set obj = Server.CreateObject("Msxml2.ServerXMLHTTP")

obj.open "HEAD",A_strUrl,false

obj.send()

CheckURL=(obj.status=200)

set obj = nothing

end function

Dim imgurl

imgurl="images/logo.gif"

if CheckURL(imgurl) then

response.write "图片存在"

else

response.write "图片不存在"

end if

%>

若出现拒绝访问的错误，可检查下代码问题，也就是服务器xml组件和代码匹配问题，

可检查服务器的组件支持情况。

代码调用存在几种情况：

Set obj = Server.CreateObject("Microsoft.XMLHTTP")

Set obj = Server.CreateObject("MSXML2.XMLHTTP")

Set obj = Server.CreateObject("MSXML2.ServerXMLHTTP")

Set obj= Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")

Set obj = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")