ASP中过滤UBB和Html标签

　　我们存储在数据库中的内容是HTML格式的，但是有时候我们需要无格式的显示这内容，这是用正则表达式实现的过滤。

复制代码代码如下:

　　<%

　　function nohtml(str)

　　dim re

　　Set re=new RegExp

　　re.IgnoreCase =true

　　re.Global=True

　　re.Pattern="(\<.[^\<]*\>)"

　　str=re.replace(str," ")

　　re.Pattern="(\<\/[^\<]*\>)"

　　str=re.replace(str," ")

　　nohtml=str

　　set re=nothing

　　end function

　　%>