'================================== '=函 数 名：saveimgfile '=功 能： 保存远程图片 '=参数说明：imgfileurl--远程图片地址 '=修改日期: 2006-4-19 13:20 '=程序作者：冷风 '=网 站:http://www.4fnet.com.cn '================================== function saveimgfile(imgfileurl) dim img_type,savepath,imgfiletype,flag,imgbody savepath="../FUploadFile/"year(now())"-"month(now()) flag=false imgfiletype=right(imgfileurl,4)'获取远程图片的格式 img_type=".gif|.bmp|.jpg|.png"'设置允许保存在本地的图片格式 typeArr=split(img_type,"|") for i=0 to ubound(typeArr)-1 if imgfiletype=typeArr(i) then flag=true exit for end if next if flag=false then'如果不是允许保存到本地的图片格式，则只连接远程图片 saveimgfile=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") if filefolder.folderexists(serverpath)=false then filefolder.createfolder(serverpath) end if randomize savepath=savepath"/"year(now())month(now())day(now())hour(now())minute(now())int(10*rnd)imgfiletype set adodbs=server.createobject("adodb.stream") adodbs.open adodbs.type=1 adodbs.write imgbody adodbs.savetofile(server.mappath(savepath))'保存到本地 adodbs.seteos set adodbs=nothing if filefolder.fileexists(server.mappath(savepath))=false then '如果保存成功，即返回远程地址，只作远程连接,避免一些防盗连网站不能保存 saveimgfile=imgfileurl else savepath=replace(savepath,"../","") saveimgfile=savepath end if set filefolder=nothing end if end function
if left(pic_url,7)="http://" and request.form("save")="true" then pic_url=saveimgfile(pic_url) pic_pic=pic_url end if 再找到：input type="submit" name="Submit" value="确定新增"> （大概在第481行）插入以下代码：
