asp 去除HTML格式

Function stripHTML(strHTML)
     Dim objRegExp,strOutput
     Set objRegExp = New Regexp
     objRegExp.IgnoreCase = True
     objRegExp.Global = True
     objRegExp.Pattern = "<.+?>"
     strOutput = objRegExp.Replace(strHTML, "")
     stripHTML = strOutput
     Set objRegExp = Nothing
End Function