2.8w+
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
shanhe 2004-04-07
可以采用head方法，这样可节约网络带宽
qoob 2004-04-07
回高手：
我试了，没有反应呀！？
我试了，没有反应呀！？
xiaoxingchi 2004-04-07
<%
'================================================
'作 用：保存远程的文件到本地
'参 数：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"
%>
'================================================
'作 用：保存远程的文件到本地
'参 数：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"
%>
xiaoxingchi 2004-04-07
use xmlhttp