ASP正则表达式过滤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
%>

相关文章

• ASP常用函数 2012/05/02
• ASP格式化时间日期函数 2012/04/30
• asp封装加密成dll文件 2012/04/27
• ASP连接Oracle数据库方法 2012/04/27
• ASP内容分页函数 2012/04/27
• asp无组件文件上传类 2012/04/27
• 防止ASP木马 2012/04/27
• asp操作Excel的类 2012/04/27
• asp防sql注入函数 2012/04/27
• ASP判断dll文件是否已注册的函数 2012/04/27