自动下载远程图片，并且自动命名asp自动下载函数

function getHTTPimg(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then exit function
getHTTPimg=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function

function Save2Local(from)
dim geturl,objStream,imgs,filename
Save2Local=""
'为文件重命名
randomize
ranNum=int(999*rnd)
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
'为文件重命名结束
geturl=trim(from)
filename1=filename&Right(from,4)
filename=server.mappath("/")&"/WebPic/"&filename1
Response.Write filename
imgs=gethttpimg(geturl)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type =1
objStream.Open
objstream.write imgs
objstream.SaveToFile filename,2
objstream.Close()
set objstream=nothing
Save2Local=filename1
end function

'Call Save2Local("http://www.xrss.cn/NewImages/logo.gif")

使用说明，在本程序运行环境中，新建一个名为WebPic的文件夹，然后调用Save2Local(from)函数，from为远程的图片地址，Save2Local(from)函数返回为重命名重图片名称