文件名称：用正则除去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," ")