asp用正则过滤html标签
来源:asp之家 时间:2008-01-19 16:34:00
有时候我们需要程序截图文章中的部分字符作为摘要显示出来,这时我们一般是只希望提取的字符串是纯文本的,没有如何html标签,如果我们章节用left函数截取的化,得到的内容就包含了html代码,为了解决这个问题,我们可以有两个方法。
一是,在数据库 * 别设置一个字段用于保存摘要。优点是你可以自己总结文章摘要,这样可读性更强,不至于让人看不懂。对seo也是有好处的,缺点就是麻烦了一点,要多花心思和时间。
二是,用程序提前文章中的特定内容作为摘要,一般是前面多少个字符。此时我们就可以使用正则表达式来轻松的实现这个提取前N个纯字符的功能。
我们知道html标签有一个特定都是用<>包含的,所以正则表达式只要匹配<>就可以了:
下面的两个函数都可以实现过滤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
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
对于效率来讲应该第一个更好。
代码如下:
<%
Dim contenstr
contenstr="<a href='http://www.aspxhome.com' title="asp之家">asp之家<b>欢迎您</b>!欢迎出来看看,呵呵! "
'当然这里的contenstr在实际使用时换成你的文章内容
'调用过滤函数移除html标签
contenstr=RemoveHTML(contenstr)
contenstr=left(contenstr,100) '截取前100个字符
response.write("移除html标签后:" & contenstr)
%>
标签:过滤,正则表达式,摘要,标签
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
如何正确处理ajax 302跳转问题回博客首页
2009-02-28 14:01:00
怎样从旧版本SQL Server中重新存储数据
2009-01-15 13:23:00
显示ASP页面源码的代码
2008-10-12 13:05:00
ASP程序中输出Excel文件实例一则
2008-11-07 15:29:00
请站在用户的角度上说话
2009-05-12 12:03:00
asp如何向前端显示用户请求的信息?
2010-06-09 18:52:00
Oracle 外连接实现代码
2009-08-08 23:08:00
实现SQL Server到DB2连接服务器很简单
2010-08-08 15:24:00
MYSQL中怎样设列的默认值为Now()的介绍
2008-11-01 16:54:00
一个可应用在ASP 标记加密文件的MD5的DLL组件
2008-04-12 07:21:00
用ASP建立一个简单的聊天室
2007-09-21 12:43:00
PHP正则表达式替换<pre>标签外的内容
2023-05-22 10:47:12
模仿IE自动完成功能
2010-03-18 15:51:00
![](https://img.aspxhome.com/file/UploadPic/20103/18/2010318155329175s.jpg)
CSS框架的相关汇总(CSS Frameworks)
2008-04-02 12:00:00
常用CSS缩写语法总结章
2009-03-17 13:26:00
看看那些名牌LOGO的成长史
2009-03-24 20:37:00
![](https://img.aspxhome.com/file/UploadPic/20093/24/1406370-34s.jpg)
css基础教程属性篇之二
2008-07-25 19:23:00
![](https://img.aspxhome.com/file/UploadPic/20087/25/2008725192720609s.jpg)
SQL Server中多行多列连接成为单行单列
2008-12-09 14:39:00
oracle 多个字符替换实现
2009-10-23 17:50:00
如何修改MySQL 5.1 data文件夹路径
2010-10-25 19:58:00