xmlhttp判断文件是否存在

<%

lcUrl="http://xxx/img/1.gif"

 

function b(pcUrl)
 set XMLHTTP2 = createobject("msxml2.xmlhttp.6.0")
 XMLHTTP2.open "GET",pcUrl,false
 XMLHTTP2.send()

 if XMLHTTP2.status=200 then
  set XMLHTTP2 = nothing
  b=pcUrl'文件存在
  exit function
 else
  b=""  '文件不存在
 end if
 set XMLHTTP2 = nothing
end function

 

%>