【Asp】ASP下载远程文件到当前服务器

ASP下载远程文件到服务器：

<%
Function Download(URL,SavePath)
Set A = CreateObject("ADODB.Stream")
Set X = Server.CreateObject("MICROSOFT.XMLHTTP")
X.Open "GET", URL, False
X.Send
A.Type = 1
A.Mode = 3
A.Open
A.Position = 0
A.Write X.responseBody
A.SaveToFile SavePath, 2
A.Close
End Function

Download "http://www.baidu.com/img/baidu_logo.gif",Server.mappath("csol.jpg")
%>