用正则表达式过滤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 = "<...