'================================== '=函 數(shù) 名：saveimgfile '=功 能： 保存遠程圖片 '=參數(shù)說明：imgfileurl--遠程圖片地址 '=修改日期: 2006-4-19 13:20 '=程序作者：冷風 '=網(wǎng) 站: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"'設(shè)置允許保存在本地的圖片格式 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 '如果保存成功，即返回遠程地址，只作遠程連接,避免一些防盜連網(wǎng)站不能保存 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行）插入以下代碼：
