【文件属性】：
文件名称：用正则除去HTML标记
文件大小：477B
文件格式：TXT
更新时间：2012-07-19 15:23:18
用正则除去HTML标记
'==============================
'功能描述： 用正则除去HTML标记
'不能保留等以及用户自定义的<和>
'==============================
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")