ASP替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼剖析

1、1234567891011121314asp替換、保存遠(yuǎn)程圖片實(shí)現(xiàn)代碼asp通過(guò)函數(shù)來(lái)實(shí)現(xiàn)替換、保存遠(yuǎn)程圖片，完成自動(dòng)采集圖片、提取圖片的功能，函數(shù)中自動(dòng)判斷重 復(fù)圖片，智能分析鏈接路徑，并轉(zhuǎn)成成相對(duì)的圖片地址保存在你指定的網(wǎng)站目錄中，我們可將此函數(shù) 用在后臺(tái)的編輯器中，當(dāng)你復(fù)制了含有圖片的內(nèi)容后，本代碼會(huì)自動(dòng)幫你上傳圖片。同時(shí)本代碼也是 采集程序中的重要處理函數(shù)，函數(shù)代碼如下：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去掉重復(fù)圖片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$)轉(zhuǎn)換相對(duì)圖片地址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)文件類(lèi)型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