上一篇
下一篇
ASP过滤超链接（HTML）代码
作者:刚子 日期:2010-03-13
上次发了一个asp过滤html的代码，那个代码是直接删除符合规则的HTML代码，而今天这个代码是真正的过滤。
比如<a href=http://www.gangzi.org/>刚子</a>这个代码，之前的过滤html代码是直接删除掉整个字符的，而今天发这个代码过滤之后留下的只是刚子这两个文本文字，两个代码都有用武之地。
程序代码
比如<a href=http://www.gangzi.org/>刚子</a>这个代码，之前的过滤html代码是直接删除掉整个字符的，而今天发这个代码过滤之后留下的只是刚子这两个文本文字，两个代码都有用武之地。
程序代码Function regExReplace(sSource,patrn, replStr)
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function
regExReplace("字符串","<a.*?>|</a>","") '过滤超链接
regExReplace("字符串","<div.*?>|</div>","") '过滤DIV
regExReplace("字符串","<iframe.*?>|</iframe>","") '过滤框架
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function
regExReplace("字符串","<a.*?>|</a>","") '过滤超链接
regExReplace("字符串","<div.*?>|</div>","") '过滤DIV
regExReplace("字符串","<iframe.*?>|</iframe>","") '过滤框架
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论