'==================================================
'函数名：replacesaveremotefile
'作 用：替换、保存远程图片
'参 数：constr ------ 要替换的字符串
'参 数：savetf ------ 是否保存文件，false不保存，true保存
'参 数: tisturl------ 当前网页地址
'==================================================
function replacesaveremotefile(constr,strinstalldir,strchanneldir,savetf,tisturl)
if constr="$false$" or constr="" or strchanneldir="" then
replacesaveremotefile=constr
exit function
end if
dim tempstr,tempstr2,tempstr3,re,matches,match,tempi,temparray,temparray2
set re = new regexp
re.ignorecase = true
re.global = true
re.pattern ="<img.+?[^\>]>"
set matches =re.execute(constr)
for each match in matches
if tempstr<>"" then
tempstr=tempstr & "$array$" & match.value
else
tempstr=match.value
end if
next
if tempstr<>"" then
temparray=split(tempstr,"$array$")
tempstr=""
for tempi=0 to ubound(temparray)
re.pattern ="src\s*=\s*.+?\.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)"
set matches =re.execute(temparray(tempi))
for each match in matches
if tempstr<>"" then
tempstr=tempstr & "$array$" & match.value
else
tempstr=match.value
end if
next
next
end if
if tempstr<>"" then
includepic=1'图片新闻
re.pattern ="src\s*=\s*"
tempstr=re.replace(tempstr,"")
end if
set matches=nothing
set re=nothing
if tempstr="" or isnull(tempstr)=true then
replacesaveremotefile=constr
exit function
end if
tempstr=replace(tempstr,"""","")
tempstr=replace(tempstr,"'","")
tempstr=replace(tempstr," ","")
dim remotefileurl,savepath,pathtemp,dtnow,strfilename,strfiletype,arrsavefilename,rannum,arr_path
dtnow=now()
if savetf=true then
'***********************************
savepath= strchanneldir & year(dtnow) & right("0" & month(dtnow),2) & "/"
response.write "链接路径：" & savepath & "<br>"
arr_path=split(savepath,"/")
pathtemp=""
for tempi=0 to ubound(arr_path)
if tempi=0 then
pathtemp=arr_path(0) & "/"
elseif tempi=ubound(arr_path) then
exit for
else
pathtemp=pathtemp & arr_path(tempi) & "/"
end if
if checkdir(pathtemp)=false then
if makenewsdir(pathtemp)=false then
savetf=false
exit for
end if
end if
next
end 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 if
next
tempstr=right(tempstr,len(tempstr)-7)
temparray=split(tempstr,"$array$")
'去掉重复图片结束
'转换相对图片地址开始
tempstr=""
for tempi=0 to ubound(temparray)
tempstr=tempstr & "$array$" & definiteurl(temparray(tempi),tisturl)
next
tempstr=right(tempstr,len(tempstr)-7)
tempstr=replace(tempstr,chr(0),"")
temparray2=split(tempstr,"$array$")
tempstr=""
'转换相对图片地址结束
'图片替换/保存
set re = new regexp
re.ignorecase = true
re.global = true
for tempi=0 to ubound(temparray2)
remotefileurl=temparray2(tempi)
if remotefileurl<>"$false$" and savetf=true then'保存图片
arrsavefilename = split(remotefileurl,".")
strfiletype=lcase(arrsavefilename(ubound(arrsavefilename)))'文件类型
if strfiletype="asp" or strfiletype="asa" or strfiletype="aspx" or strfiletype="cer" or strfiletype="cdx" or strfiletype="exe" or strfiletype="rar" or strfiletype="zip" then
uploadfiles=""
replacesaveremotefile=constr
exit function
end if
randomize
rannum=int(900*rnd)+100
strfilename = year(dtnow) & right("0" & month(dtnow),2) & right("0" & day(dtnow),2) & right("0" & hour(dtnow),2) & right("0" & minute(dtnow),2) & right("0" & second(dtnow),2) & rannum & "." & strfiletype
re.pattern =temparray(tempi)
if saveremotefile(savepath & strfilename,remotefileurl)=true then
'********************************
pathtemp=savepath & strfilename
constr=re.replace(constr,pathtemp)
re.pattern=strinstalldir & strchanneldir
uploadfiles=uploadfiles & "|" & re.replace(savepath &strfilename,"")
response.flush()
response.write " 图片保存地址：" & pathtemp & "<br>"
if thumb_watermark=1 then call skthumb.addwatermark(pathtemp)'水印
else
pathtemp=remotefileurl
constr=re.replace(constr,pathtemp)
'uploadfiles=uploadfiles & "|" & remotefileurl
end if
elseif remotefileurl<>"$false$" and savetf=false then'不保存图片
re.pattern =temparray(tempi)
constr=re.replace(constr,remotefileurl)
uploadfiles=uploadfiles & "|" & remotefileurl
end if
next
set re=nothing
if uploadfiles<>"" then
uploadfiles=right(uploadfiles,len(uploadfiles)-1)
end if
replacesaveremotefile=constr
end function
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论