保存远程图片到本地文件夹！

 <%
Server.ScriptTimeOut=99999
const savepath="images" '图片保存路径
url="http://www.178yy.com/images/upfile/2007-4/2007423163032.jpg"
call saveimg(url) '函数调用

Function saveimg(url)
temp=split(url,".")
'以下是用时间与随机数重命名文件名
randomize
ranNum=int(90000*rnd)+10000'随机数
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&temp(ubound(temp))'时间与随机数组合命名图片名称
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send
img=xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath(savepath&"/"&filename))
objAdostream.SetEOS
set objAdostream=nothing
saveimg=filename'返回重新生成的图片文件名称
End Function
%>