当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > asp 图片正则 替换,替换前检查图片是不是本地地址的方法

正则表达式
常用正则表达式及评注-学习正则必备
asp常用的正则表达式实现字符串的替换
计算一个字符串在另一字符串中出现的次数函数
JavaScript 正则表达式使用详细参数
javascript判断中文的正则
最常用的PHP正则表达式收集整理
正则表达式在网页处理中的应用四则
asp正则表达式匹配数字$数字$数字$
asp去除html标记与空格的正则
JScript 8.0 正则表达式语法
PHP 正则 email语句详解
用js实现过滤script的正则
javascript正则表达式分析
正则表达式学习经验分析
web标准知识——丰富段落里的标签
php 正则表达式学习笔记
正则表达式口诀_学习正则的朋友值得一看
asp+正则获得字符串中最后一个字母非字母不算
php下常用表单验证的正则表达式
JavaScript正则表达式之后向引用实例代码

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 287 ::
收藏到网摘: n/a

这个图片正则先检查图片的地址,不是本地的则用本地的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="<img.[^>]*src(=| )(.[^>]*)>"
Content=re.replace(Content,"<img src=$2 style=""cursor: pointer"" alt=""在新窗口中打开浏览"" onclick=""javascript:window.open(this.src);"" onload=""javascript:resizepic(this)"" border=""0""/>")
set re = nothing
FormatImg = content
End Function
这段代码将内容中的图片替换成 <img src=$2 style="cursor: pointer" alt="在新窗口中打开浏览" onclick="javascript:window.open(this.src);" onload="javascript:resizepic(this)" border="0"/> 这中形式的,
我现在需要提取$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,"<a target=""_blank"" href="""&tmpStr1&""">"&tmpStr2&"</a>",1,-1,0)
Next
这里是正则的Matchs的说明文档
http://www.ruanchen.com/"<img src='/upload/tech/20091012/20091012151530_1f4477bad7af3616c1f933a02bfabe4e.gif' width=100 />中间一些内容<img src='http://www.kanshule.com/indeximg/logo.GIF' width=200 />"
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<img.[^>]*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)="http://www.ruanchen.com" then
picurl=tmpurl
else
picurl="http://img.ruanchen.com/"&tmpurl
end if
Content=replace(Content2,strMatch.Value,"<img src="&picurl&" style=""cursor: pointer"" alt=""在新窗口中打开浏览"" onclick=""javascript:window.open(this.src);"" onload=""javascript:resizepic(this)"" border=""0""/>")
Next
response.write Content
set re = nothing
%>