代码例子如下:<%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 = o