显示数据库信息时，过滤多余的html格式（纯文本输出）

 

<%
Function RemoveHTML(str)
Dim re
Set re=New RegExp
re.Pattern="<.*?>"
re.IgnoreCase=True
re.Global=True
str=re.Replace(str,"")
Set re=Nothing
RemoveHTML=str
End Function

%>

 

'显示content的内容

<%=RemoveHTML(trim(rsnews("content")))%>