ASP正则过滤HTML标签的函数

ASP正则表达式过滤函数，可过滤指定的HTML标签，如果需要过滤特定的HTML标签，只需要修改下正则表达式即可过滤。下面编程之家跟大家分享：ASP正则过滤HTML标签的函数代码。

ASP正则过滤HTML标签的函数

Function LoseHtml(ContentStr)

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

下面是收集的一些正则表达式过滤集，相信非常实用，用着复制进去就行了。

正则表达式 过滤 style 标记 ：

regEx.Pattern = "(<style)+[^<>]*>[^]*(</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[^<>]*>"

正则表达式 过滤 object 标记 ：

regEx.Pattern = "<object.*?/object>"

正则表达式 过滤 iframe 标记：

regEx.Pattern = "(<iframe){1,}[^<>]*>[^]*(</iframe>){1,}"

正则表达式 过滤 script ：

regEx.Pattern = "(<script){1,}[^<>]*>[^]*(</script>){1,}"

正则表达式 过滤 Class 标记 ：

regEx.Pattern = "(class=){1,}(""|'){0,1}S+(""|'|>|s){0,1}"