儲存遠端檔案到本地

<%
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
%>