asp 图片正则 替换,替换前检查图片是不是本地地址的方法

这个图片正则先检查图片的地址,不是本地的则用本地的asp突破盗链,方便使用,注意是答chinaz的朋友问的一个问题

直接用正则替换,但没有判断功能
Function FormatImg(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(script)"
Content=re.Replace(Content,"script")
re.Pattern="]*src(=| )(.[^>]*)>"
Content=re.replace(Content,"")
set re = nothing
FormatImg = content
End Function
这段代码将内容中的图片替换成  这中形式的,
我现在需要提取$2的前7个字符,用来判断是否需要被替换,如果前7=特定的字符,就不要替换,但获取$2的前7 无法。大家有什么办法支下招撒? 

主要是参考了下面的代码,大家可以看下
'连接
re.Pattern = "\[url=(.[^\]]*)\](.[^\[]*)\[\/url]" 
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,""&tmpStr2&"",1,-1,0)
Next
这里是正则的Matchs的说明文档
https://www.0133.cn/article/15362.htm

下面由html中文网测试代码,大家可以做出函数
<%
content2="中间一些内容"
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="]*src(=| )(.[^>]*)[/]?>"
set Matches=re.execute(content2)
For Each strMatch in Matches
tmpStr1=(strMatch.SubMatches(1))
tmpurl=replace(replace(tmpStr1,"'",""),"""","")
//response.write left(tmpurl,20)
if left(tmpurl,19)="https://www.0133.cn" then
picurl=tmpurl
else
picurl="http://ss.0133.cn/showpic.asp?url="&tmpurl
end if
Content=replace(Content2,strMatch.Value,"")
Next
response.write Content
set re = nothing

%>

以上就是asp 图片正则 替换,替换前检查图片是不是本地地址的方法的详细内容,更多请关注0133技术站其它相关文章!

赞(0) 打赏
未经允许不得转载:0133技术站首页 » 正则表达式