asp 经常用的过滤html正则表达式及函数

最新推荐文章于 2021-05-30 20:02:40 发布

qq_16959405

最新推荐文章于 2021-05-30 20:02:40 发布

阅读量595

点赞数

分类专栏： asp 文章标签：过滤 html asp 正则表达式

asp 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr
End function

'正则表达式 不过滤 换行
Function RemoveHTML1(s)
set rx=new RegExp


rx.IgnoreCase=true


rx.Global=true


rx.Pattern="<br[^>]*>"'先替换换行为其他特殊的内容，最后再反替换回来


s=rx.Replace(s,"___br___")


rx.Pattern="<[^>]+>"'替换所有标签


s=rx.Replace(s,"")


set rx=nothing
RemoveHTML=replace(s,"___br___","<br/>")
End Function

正则表达式 过滤 style 标记 ：
regEx.Pattern = "(<style)+[^<>]*>[^\0]*(<\/style>)+"
正则表达式 过滤 层 div 标记 ：
regEx.Pattern = "<(\/){0,1}div[^<>]*>"
正则表达式 过滤 链接 a 标记 ：
regEx.Pattern = "<(\/){0,1}a[^<>]*>"
正则表达式 过滤 字体 font 标记 ：
regEx.Pattern = "<(\/){0,1}font[^<>]*>"
正则表达式 过滤 span 标记 ：
regEx.Pattern = "<(\/){0,1}span[^<>]*>"
正则表达式 过滤 img 标记
regEx.Pattern="(\<img[^\<]*\>)"
正则表达式 过滤 object 标记 ：
regEx.Pattern = "<object.*?/object>"
正则表达式 过滤 iframe 标记：
regEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"
正则表达式 过滤 script ：
regEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"
正则表达式 过滤 Class 标记 ：
regEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"