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