asp中去掉HTML标记

asp中去掉HTML标记有很多方式，但是这个在使用中最感觉最好，给大家分享。

定义：

Function RemoveHTML(strHTML)
 ON ERROR RESUME NEXT
 Dim objRegExp, strOutput
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = "<.+?>"
   strOutput = objRegExp.Replace(strHTML, "")
   strOutput = Replace(strOutput, "<", "〈")
   strOutput = Replace(strOutput, ">", "〉")
   RemoveHTML = strOutput  
   Set objRegExp = Nothing
End Function

调用：

RemoveHTML(被调用的值)