asp,正则表达式替换所有htm标签

Posted on 2009-04-21 15:01 ^_^木头人阅读(243) 评论(0) 收藏举报

函数内容：

Function RemoveHTML(strText)
Dim RegExs
Set RegExs = New RegExp
RegExs.Pattern = "<[^>]*>"
RegExs.Global = True
RemoveHTML = RegExs.Replace(strText, "")
End Function