saveimg("http://dl_dir.qq.com/qqfile/qq/QQ2008stablehij/QQ2008KB3.exe")

function saveimg(imgfileurl)
dim img_type,savepath,imgfiletype,flag,imgbody
savepath="photo" \'本地路径

flag=false
imgfiletype=right(imgfileurl,4)\'获取远程图片的格式
img_type=".gif|.bmp|.jpg|.png|.exe|"\'设置允许保存在本地的图片(文件)格式
typeArr=split(img_type,"|")
for i=0 to ubound(typeArr)-1
if LCase(imgfiletype)=typeArr(i) then
flag=true
exit for
end if
next

if flag=false then\'如果不是允许保存到本地的图片格式，则只连接远程图片
saveimg=imgfileurl
else
set xml_http=server.createobject("microsoft.xmlhttp")
xml_http.open "get",imgfileurl,false
xml_http.send
imgbody=xml_http.responsebody
set xml_http=nothing
serverpath=server.mappath(savepath)
set filefolder=server.createobject("scripting.filesystemobject")
\'判断路径是否存在 zlf
if filefolder.folderexists(serverpath)=false then
filefolder.createfolder(serverpath)
end if
\'生成随机名称 zlf
randomize
ranNum=int(900*rnd)+100
savepath=savepath&"/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&imgfiletype

set adodbs=server.createobject("adodb.stream")
adodbs.type=1
adodbs.open
adodbs.write imgbody
adodbs.savetofile server.mappath(savepath),2 \'保存到本地
adodbs.seteos
set adodbs=nothing

if filefolder.fileexists(server.mappath(savepath))=false then
saveimg=imgfileurl
else
savepath=replace(savepath,"","")
saveimg=savepath
end if
set filefolder=nothing
end if
end function