asp过滤html标签

Function FilterHTML(strToFilter)
     Dim objRegExp, Match, Matches
     Set objRegExp = New Regexp
     objRegExp.IgnoreCase = True
     objRegExp.Global = True
     '取闭合的<>
     objRegExp.Pattern = "<.+?>"
     '进行匹配
     Set Matches = objRegExp.Execute(strToFilter)
     ' 遍历匹配集合，并替换掉匹配的项目
     For Each Match in Matches
     strToFilter=Replace(strToFilter,Match.Value,"")
     Next
     FilterHTML=strToFilter
     Set objRegExp = Nothing
End Function