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