asp中正则表达式过滤html代码函数

2015-08-12 16:01:42来源:作者:人点击

 html标签是一种算是复杂的东西了,我们一般是过滤不了的现在利用正则来操作一下,有需要学习的同学可以参考一下本文章。

 
 代码如下  

<%
Option Explicit

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function
%>

使用方法

 代码如下  

stripHTML(strhtml)就可以了,这样用起来就方便多了

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台