ASP检测远程文件是否存在的代码

'检测远程文件是否存在  
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(DownLoadUrl) then  
do  
else  
do other...  
end if