■如何检测网络上的一个文件是否存在？

[qoob]

在 asp中 如何检测网络上的一个文件，或者，当前站点内的文件是否存在？
asp 需要什么组件可以完成？谢谢！

[xiaoxingchi]

use xmlhttp

[xiaoxingchi]

<%
'================================================
'作 用：保存远程的文件到本地
'参 数：LocalFileName ------ 本地文件名
' RemoteFileUrl ------ 远程文件URL
'返回值：True ----成功
' False ----失败
'================================================
Sub eWebEditor_SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", s_RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(s_LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
End Sub

eWebEditor_SaveRemoteFile "file\sjlogo.gif","http://127.0.0.1/compile/images/sjlogo.gif"

%>

[qoob]

回高手：
我试了，没有反应呀！？

[shanhe]

可以采用head方法，这样可节约网络带宽