asp过滤数据库中含有html标签。

<!--#include file="include/db_conn.asp" -->
<%
'添加日志
dim rs
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select top 1 * from hd_news where id=125 order by id desc",conn,1,3
if rs.eof and rs.bof then
response.Write("error")
else
dim str
str=rs("content")
end if
rs.close
set rs=nothing
%>


<%
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<.+?>"
str=re.Replace(str,"")
response.write(left(str,200))
%>