【www.bbyears.com--远程及网络应用】
"==================================================
"过程名:SaveRemoteFile
"作 用:保存远程的文件到本地
"参 数:LocalFileName ------ 本地文件名
"参 数:RemoteFileUrl ------ 远程文件URL
"==================================================
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", 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(ImgPath&LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end Sub