用asp的正则表达式去掉html标签

最近练习了asp的正则表达式.目的是清除html标签.下面是实现代码:

 <%
 nbody=rc("News_body")'从数据库中取字段,这是包含html标签的
 nbody=replace(nbody," ","")'替换掉 字符
 nbody=ReplaceTest("<[\/].*>",nbody,"")'利用自定义函数replacetext查找</xxx>类型的结尾标签
 nbody=ReplaceTest("<.*>",nbody,"")'然后在查找替换<xxx>开头标签.
 response.write left(nbody,150)'最后限制输出150个字
 %>

下面是replacetext函数

'正则表达式替换函数
 Function ReplaceTest(patrn,Sourcetext,replStr)
 Set regEx = New RegExp '建立正则表达式。
 regEx.Pattern = patrn '设置模式。
 regEx.IgnoreCase = True '设置是否区分大小写。
 regEx.global=True '设置全局搜索
 ReplaceTest = regEx.Replace(Sourcetext,replStr) ' 作替换。
 End Function