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}"

相关文章

数组的定义 Dim MyArray MyArray = Array(1‚5‚123‚12‚98...
\'参数: \'code:要检测的代码 \'leixing:html或者ubb \'n...
演示效果: 代码下载: 点击下载
环境:winxp sp2 ,mysql5.0.18,mysql odbc 3.51 driver 表采...
其实说起AJAX的初级应用是非常简单的,通俗的说就是客户端(j...
<% ’判断文件名是否合法 Function isFilename(aFilename...