<%

Function SaveRemoteFile(sSavePath,sRemoteFileUrl)

　　On Error Resume Next

　　SaveRemoteFile = False

　　Dim oXML : Set oXML = Server.CreateObject("Microsoft.XMLHTTP")

　　With oXML

　　　　.Open "Get",sRemoteFileUrl,False,"",""

　　　　.Send

　　　　If .Status<>200 Then Exit Function

　　　　RemoteDate = .ResponseBody

　　End With

　　Set oXML = Nothing

　　Dim oStream : Set oStream = Server.CreateObject("Adodb.Stream")

　　With oStream

　　　　.Type = 1

　　　　.Open

　　　　.Write RemoteDate

　　　　.SaveToFile sSavePath,2

　　　　If Err.Number=0 Then SaveRemoteFile = True

　　　　.Close()

　　End With

　　Set oStream = Nothing

End Function'调用方法如下
SaveAddr=Server.MapPath("demo.gif")

SourceURL="http://www.google.cn/intl/zh-CN/images/logo_cn.gif"

Call SaveRemoteFile(SaveAddr,SourceURL)

%>