欢迎来到福编程网,本站提供各种互联网专业知识!

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

发布时间:2008-08-03 作者: 来源:转载
这个图片正则先检查图片的地址,不是本地的则用本地的asp突破盗链,方便使用,注意是答chinaz的朋友问的一个问题
直接用正则替换,但没有判断功能
FunctionFormatImg(content)
dimre
Setre=newRegExp
re.IgnoreCase=true
re.Global=True
re.Pattern="(script)"
Content=re.Replace(Content,"script")
re.Pattern="]*src(=|)(.[^>]*)>"
Content=re.replace(Content,"")
setre=nothing
FormatImg=content
EndFunction
这段代码将内容中的图片替换成这中形式的,
我现在需要提取$2的前7个字符,用来判断是否需要被替换,如果前7=特定的字符,就不要替换,但获取$2的前7无法。大家有什么办法支下招撒?

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

下面由全福编程网测试代码,大家可以做出函数
<%
content2="中间一些内容"
dimre
Setre=newRegExp
re.IgnoreCase=true
re.Global=True
re.Pattern="]*src(=|)(.[^>]*)[/]?>"
setMatches=re.execute(content2)
ForEachstrMatchinMatches
tmpStr1=(strMatch.SubMatches(1))
tmpurl=replace(replace(tmpStr1,"'",""),"""","")
//response.writeleft(tmpurl,20)
ifleft(tmpurl,19)="http://www.jb51.net"then
picurl=tmpurl
else
picurl="http://img.jb51.net/showpic.asp?url="&tmpurl
endif
Content=replace(Content2,strMatch.Value,"")
Next
response.writeContent
setre=nothing

%>

相关推荐