'去掉html中的table代碼 
Function OutTable(str) 
dim a,re 
set re=new RegExp 
re.pattern="<(?!img|br|p|div).*?>" 
re.global=true 
a=str 
OutTable=re.replace(a,"") 
End Function