正则表达式过滤标签收集[ASP]

benfreer

浏览: 105180 次
性别:
来自: 沈阳

最近访客更多访客>>

u012363178

wanshijian

菜鸟ll

与昂贵

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (58)

社区版块

存档分类

正则表达式 ASP HTML Blog

转于：
http://hi.baidu.com/sqs3ng/blog/item/4c5d9a44bc31bb44500ffe24.html
过滤所有 html ：

Function ReplaceHtml(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "<\/*[^<>]*>"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceHtml = tmpReStr
End Function

过滤 style ：

Function ReplaceStyleTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "(<style)+[^<>]*>[^\0]*(<\/style>)+"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceStyleTag = tmpReStr
     Set regEx = Nothing
End Function

过滤层 div ：

Function ReplaceDivTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "<(\/){0,1}div[^<>]*>"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceDivTag = tmpReStr
     Set regEx = Nothing
End Function

过滤链接 a ：

Function ReplaceATag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "<(\/){0,1}a[^<>]*>"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceATag = tmpReStr
     Set regEx = Nothing
End Function

过滤字体 font ：

Function ReplaceFontTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "<(\/){0,1}font[^<>]*>"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceFontTag = tmpReStr
     Set regEx = Nothing
End Function

过滤 span ：

Function ReplaceSpanTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "<(\/){0,1}span[^<>]*>"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceSpanTag = tmpReStr
     Set regEx = Nothing
End Function

过滤 object ：

Function ReplaceObjectTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "<object.*?/object>"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceObjectTag = tmpReStr
     Set regEx = Nothing
End Function

过滤 iframe：

Function ReplaceIFrameTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceIFrameTag = tmpReStr
     Set regEx = Nothing
End Function

过滤 script：

Function ReplaceScriptTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceScriptTag = tmpReStr
     Set regEx = Nothing
End Function

过滤 Class ：

Function ReplaceClassTag(ConStr)
     Dim tmpReStr,regEx
     tmpReStr = Cstr(ConStr)
     Set regEx = New RegExp
     regEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"
     regEx.IgnoreCase = True
     regEx.Global = True
     tmpReStr = regEx.Replace(tmpReStr,"")
     ReplaceClassTag = tmpReStr
     Set regEx = Nothing
End Function

分享到：