正则表达式为什么没有过滤这代码??

[arendt2001]

我用的是以下正则表达式

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

但是我读数据库的值是还有有这样的标签,如下是我从数据库中用正则表达式读出的数据:
screen.width-333)this.width=screen.width-333" border=0>新款风扇 screen.width-333)this.width=screen.width-333" border=0>海尔的整体厨房 screen.width-333)this.width=screen.width-333" border=0>海尔的整体厨房 screen.width-333)this.width=screen.width-333" border=0>精美的电熨斗 screen.width-333)this.width=screen.width-333" border=0>各

[xieqi]

.要转义。它有特殊含义

[wanghui0380]

可以用 <[^<>]+> 试试看

[SysTem128]

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

这样就可以把 HTML标签全部去处掉……