判断一个远程文件是否存在

Function testURL(url)
On Error Resume Next
Dim httpxml
Set httpxml = Server.CreateObject("msxml2.XMLHTTP")
httpxml.open "HEAD",url,False
httpxml.send
If Err Then
err.Clear
testURL = 0
exit function
End If
If httpxml.status = 200 Then
testURL = 1
Else
testURL = 0
End If
Set httpxml = Nothing
End Function