ASP保存远程文件到本地（实用版）

核心提示：<%Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=Truedim Ads,Retrieval,GetRemoteDataSet Retrieval = Server.CreateObject("Microsoft

<%
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
　  SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.xmlHTTP")
With Retrieval
　 .Open "Get", RemoteFileUrl, False, "", ""
　 .Send
　　　  If .Readystate<>4 then
　　　　　  SaveRemoteFile=False
　　　　　  Exit Function
　　　  End If
　 GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
　 .Type = 1
　 .Open
　 .Write GetRemoteData
　 .SaveToFile server.MapPath(LocalFileName),2
　 .Cancel()
　 .Close()
End With
Set Ads=nothing
End Function
%>

<%
'以下为调用示例：
remoteurl="http://www.uyux.cn/logo.gif"'远程文件名（绝对全路径）
localfile=Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名（可自定义）
If SaveRemoteFile(localfile,remoteurl)=True Then
Response.Write("成功保存："&localfile)
End If
%>