自动下载远程服务器上的文件到本地服务器

<%
Function savefile(url)
Dim filename,savepath
filename=right(url,len(url)-instrRev(url,"/"))
savepath="images/" & filename
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send
filedata=xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(filedata)
objAdostream.SaveToFile(server.mappath(savepath))
objAdostream.SetEOS
set objAdostream=nothing
End Function

Call savefile("http://www.mzwu.com/mzwucom.rar")
%>