ASP中正则表达式删除HTML代码，只保留文字

'删除HTML代码
Function RemoveHTML(strHTML)
 Dim objRegExp, Match, Matches
 Set objRegExp = New Regexp
 objRegExp.IgnoreCase = True
 objRegExp.Global = True
 objRegExp.Pattern = "<.+?>"
 Set Matches = objRegExp.Execute(strHTML)
 For Each Match in Matches
  strHtml=Replace(strHTML,Match.Value,"")
 Next
 RemoveHTML=strHTML
 Set objRegExp = Nothing
End Function