asp去掉html，保留img br p div的正则实现代码

'去掉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