保存远程的文件到本地

<%

Call SaveRemoteFile("a.gif","http://www.a.com.cn/DocumentAdmin/images/control_switch_up.gif")

'==================================================

'过程名：SaveRemoteFile

'作   用：保存远程的文件到本地

'参   数：LocalFileName ------ 本地文件名

'参   数：RemoteFileUrl ------ 远程文件URL

'==================================================

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

%>