UC知道asp过滤图片
来源：百度知道 编辑：UC知道 时间：2024/09/22 19:40:10
数据库字段内含有图片标签。在网页首页显示时只要文字以及排版格式（即：只过滤图片部分）的函数该如何写？
类似如下字段内容：
******************************************
<P><STRONG><IMG alt="" src=""http://127.0.0.1/UploadFiles/001.jpg"" onload=""javascript:if(this.width>580)this.width=580"" border=undefined> 质量保证</STRONG></P>
<P> 1、组织保证<BR> 为保证该项目的顺利实施，我公司将成立项目组，指派专人负责从设计到工艺、从原材料进厂到制造、装配，从过程检验到整机微机测试的全过程进行有机的控制。项目组自成立之日起，每天汇总及时讨论处理项目进展出现的问题。</P>
<P> 2、生产计划保证<BR> 为保证项目实施，我公司将制定详细的生产计划，保证有序生产，并预见可能发生的问题及解决办法，保证产品各工序间正常流转。</P><IMG src=""http://127.0.0.1/UploadFiles/weiyuan.gif""></P>
*********************************
类似如下字段内容：
******************************************
<P><STRONG><IMG alt="" src=""http://127.0.0.1/UploadFiles/001.jpg"" onload=""javascript:if(this.width>580)this.width=580"" border=undefined> 质量保证</STRONG></P>
<P> 1、组织保证<BR> 为保证该项目的顺利实施，我公司将成立项目组，指派专人负责从设计到工艺、从原材料进厂到制造、装配，从过程检验到整机微机测试的全过程进行有机的控制。项目组自成立之日起，每天汇总及时讨论处理项目进展出现的问题。</P>
<P> 2、生产计划保证<BR> 为保证项目实施，我公司将制定详细的生产计划，保证有序生产，并预见可能发生的问题及解决办法，保证产品各工序间正常流转。</P><IMG src=""http://127.0.0.1/UploadFiles/weiyuan.gif""></P>
*********************************
使用asp的正则表达式
用这个函数过滤
function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
're.Pattern="(\<.[^\<]*\>)"
'str=re.replace(str," ")
re.Pattern="(\<img[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
<%
str = "adsfad<img src=""sdfsd"" id='sdfsdf' onload=""if(this.width>100)this.width=100;"" />"
Dim re, patrn
patrn = "<img([^""'>]*([""'])[^""']*\2)*[^""'>]*>"
Set re = New RegExp
re.Pattern = patrn
re.IgnoreCase = True
re.Global = True
str = re.Replace(str, "")
Response.Write str
%>