ASP替换、保存远程图片实现代码剖析

1、1234567891011121314asp替换、保存远程图片实现代码asp通过函数来实现替换、保存远程图片，完成自动采集图片、提取图片的功能，函数中自动判断重 复图片，智能分析链接路径，并转成成相对的图片地址保存在你指定的网站目录中，我们可将此函数 用在后台的编辑器中，当你复制了含有图片的内容后，本代码会自动帮你上传图片。同时本代码也是 采集程序中的重要处理函数，函数代码如下：function replacesaveremotefile(constr,strinstalldir,strchanneldir,savetf,tisturl)if constr=$false$ or constr=

2、 or strinstalldir= or strchanneldir= thenreplacesaveremotefile=constrexit functionend ifdim tempstr,tempstr2,tempstr3,re,matches,match,tempi,temparray,temparray2set re = new regexpre.ignorecase = truere.global = truere.pattern =set matches =re.execute(constr)for each match in matchesif tempstr thent

3、empstr=tempstr & $array$ & match.valueelsetempstr=match.valueend if15161718192021222324252627282930313233nextif tempstr thentemparray=split(tempstr,$array$)tempstr=for tempi=0 to ubound(temparray)re.pattern =srcs*=s*.+?.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)set matches =re.execute(temparray(tem

4、pi)for each match in matchesif tempstr thentempstr=tempstr & $array$ & match.valueelsetempstr=match.valueend ifnextnextend ifif tempstr thenre.pattern =srcs*=s*tempstr=re.replace(tempstr,)end ifset matches=nothingset re=nothingif tempstr= or isnull(tempstr)=true thenreplacesaveremotefile=constr#3536

5、3738394041424344454647484950515253exit functionend iftempstr=replace(tempstr,)tempstr=replace(tempstr,)tempstr=replace(tempstr, ,)dimremotefileurl,savepath,pathtemp,dtnow,strfilename,strfiletype,arrsavefilename,rannum,arr_pathdtnow=now()if savetf=true thensavepath= strchanneldir & / & year(dtnow) &

6、right(0 & month(dtnow),2) & / 链接路径：& savepath & arr_path=split(savepath,/)pathtemp=for tempi=0 to ubound(arr path)if tempi=0 thenpathtemp=arr_path(0) & /elself tempi=ubound(arr path) thenexit for ielsepathtemp=pathtemp & arr_path(tempi) & /end ifif checkdir(pathtemp尸false thenif makenewsdir(pathtemp

7、)=false then#55565758596061626364656667686970717273savetf=falseexit for |end ifend ifnextend if去掉重复图片temparray=split(tempstr,$array$)tempstr=for tempi=0 to ubound(temparray)if instr(lcase(tempstr),lcase(temparray(tempi)1 then tempstr=tempstr & $array$ & temparray(tempi)end ifnexttempstr=right(tempst

8、r,len(tempstr)-7)temparray=split(tempstr,$array$)转换相对图片地址tempstr=for tempi=0 to ubound(temparray)tempstr=tempstr & $array$ & definiteurl(temparray(tempi),tisturl)nexttempstr=right(tempstr,len(tempstr)-7)tempstr=replace(tempstr,chr(0),)temparray2=split(tempstr,$array$)#7677787980818283848586878889909

9、192939475tempstr=图片替换/保存set re = new regexpre.ignorecase = truere.global = truefor tempi=0 to ubound(temparray2)remotefileurl=temparray2(tempi)if remotefileurl$false$ and savetf=true then保存图片arrsavefilename = split(remotefileurl,.)strfiletype=lcase(arrsavefilename(ubound(arrsavefilename)文件类型if strfi

10、letype=asp or strfiletype=asa or strfiletype=aspx or strfiletype=ceror strfiletype=cdx or strfiletype=exe or strfiletype=rar or strfiletype=zipthenuploadfiles=re=constrexit functionend ifrandomizerannum=int(900*rnd)+100strfilename = year(dtnow) & right(0 & month(dtnow),2) & right(0& day(dtnow),2)_|&

11、 right(0 & hour(dtnow),2) & right(0 & minute(dtnow),2) & right(0 &second(dtnow),2) & rannum & . & strfiletypere.pattern =temparray(tempi)959697989910010110210310410510610if saveremotefile(savepath & strfilename,remotefileurl)=true then,*pathtemp=savepath & strfilenameconstr=re.replace(constr,pathtem

12、p)re.pattern=strinstalldir & strchanneldir & /uploadfiles=uploadfiles & | & re.replace(savepath &strfilename,)elsepathtemp=remotefileurlconstr=re.replace(constr,pathtemp)uploadfiles=uploadfiles & | & remotefileurlend ifelself remotefileurl$false$ and savetf=false then不保存图片re.pattern =temparray(tempi)constr=re.replace(constr,remote