鬼吹灯 盗墓笔记 胖子:正则表达式的一个替换问题

我做了一个论坛，向在主页显示部分内容，但是前提是要把全部<>及<>中的html部分替换掉,我选用的正则运算表达式,其表达式如下:
Function ReplaceTest1(str1,replStr)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "<.+?>" ' 设置模式。
regEx.IgnoreCase = True' 设置是否区分大小写。
ReplaceTest1 = regEx.Replace(str1, replStr) ' 作替换。
End Function

我调用形式是:
content=rs("content")
<%response.write ReplaceTest1(content,"")%>
能显示,问题时只替换了第一个<>中的内容,其他<>中的内容却无法替换,什么原因,很急,如果不用怎正则表达式也可以,只要能解决问题.
我已经解决了，呵呵。
Function stripHTML(strHTML)
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, ">", ">")
stripHTML = strOutput
Set objRegExp = Nothing
End Function