ASP检测远程文件是否存在
'检测远程文件是否存在
functionCheckURL(byvalA_strUrl)
setXMLHTTP=Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open"HEAD",A_strUrl,false
XMLHTTP.send()
CheckURL=(XMLHTTP.status=200)
setXMLHTTP=nothing
endfunction
ifCheckURL(DownLoadUrl)then
do
else
doother...
endif
'检测远程文件是否存在
functionCheckURL(byvalA_strUrl)
setXMLHTTP=Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open"HEAD",A_strUrl,false
XMLHTTP.send()
CheckURL=(XMLHTTP.status=200)
setXMLHTTP=nothing
endfunction
ifCheckURL(DownLoadUrl)then
do
else
doother...
endif