Question

急asp html过滤取数据库文章内容

数据库有content 子段
内容:
<P>
<P><FONT face=Verdana><STRONG><IMG style="FILTER: ; WIDTH: 200px; HEIGHT: 130px" height=130 alt="" hspace=3 src="img/2007830174443162.jpg" width=200 align=left vspace=2 border=0>上海恒率电源科技有限公司简介</STRONG> <BR>     上海恒率电源科技有限公司是一家集研发、设计、生产、销售为一体的科技公司，主要生产基地设在中国浙江省宁波市经济技术开发区内，一般性的售后服务、元件采购及市场调研设在中国上海市区，各事项以宁波工厂为中心，公司目前执行的是厂部对外直接销售的方针。 <BR>     公司技术力量雄厚，大中专专业人员占总人数的80%,本科以上人员占16%,拥有先进的生产设备，如自动化测试仪，自控老化房等，产品元材料全部采用国外知名品牌电子元件，出货前严格进行冷热循环及长时间老化（48小时） 、环境模拟测试等工程论证,所有产品必需经生产、工程、质检三个环节，执行100%检测合格后，方可出货，产品基本已实现无铅化制程（满足RoHS指令）。</FONT></P><FONT face=Verdana>
<P><BR><STRONG>售后服务：</STRONG><BR>      从购买之日起，两年内出现质量问题可更换<BR>      公司严格按照ISO9001:2000 版的标准管理和生产. <BR>      我公司产品现已被国家国防、科研、军工等多家科研单位所采用. </P>
<P><BR><STRONG>主要产品：</STRONG><BR>     DC-DC模块电源功率范围在：0.1W~150W <BR>     AC-DC模块电源功率范围在：0.1W~36W <BR>     AC-DC工控开关电源功率范围在：0.1W~500W <BR>     主要应用领域： 自动化、医疗、灯具、仪器仪表、电力、工控、航空、铁路、公路、船舶、网络通讯、 石油化工等领域。 <BR><BR><STRONG>经营理念：</STRONG><BR>     思想观念+基本信念+价值标准+行为准则 </P></FONT>
<P></P>
我想取
上海恒率电源科技有限公司简介
上海恒率电源科技有限公司是一家集研发、设计、生产、销售为一体的科技公司，主要生产基地设在中国浙江省宁波市经济技术开发区内，一般性的售后服务、元件采购及市场调研设在中国上海市区，各事项以宁波工厂为中心，公司目前执行的是厂部对外直接销售的方针。
公司技术力量雄厚，大中专专业人员占总人数的80%,本科以上人员占16%,........
我用
<%
if len(rs("content"))>=120 then
response.Write(left(rs("content"),120))&"..."
else response.Write(rs("content"))
end if
%>
出错.
'/* 函数名称：Zxj_ReplaceHtml ClearHtml
'/* 函数语言：VBScript Language
'/* 作 用：清除文件HTML格式函数
'/* 传递参数：Content (注：需要进行清除的内容)
'/* 函数作者：张晓军(古城童话) QQ:382511147
'/* 函数说明：正则匹配(正则表达式)模式进行数据匹配替换

<%
ClearHtml(rs("Content"))
%>
也出错
这个怎么用
但要保留换行

Answer 1

str = rs("content")

Dim re, patrn
patrn = "<[^>]*>"

Set re = New RegExp
re.Pattern = patrn
re.IgnoreCase = True
re.Global = True

str = re.Replace(str, "")

Response.Write str

------------------------------
保留换行的话..必须保留 <br />标签, 或者自己重新建立 <br />标签