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

来源:百度知道 编辑:UC知道 时间:2024/05/22 03:16:28
数据库有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>      我公司产品现已被国家国防、科研、军工等多家科研单位所采用.

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 />标签