asp 去掉html中的table正则代码函数

"去掉html中的table代码
Function OutTable（str）
dim a,re
set re=new RegExp
re.pattern="<[^>]+（）>"
re.global=true
a=str
OutTable=re.replace（a,""）
End Function