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