str="<a href=""a.htm"">a.htm</a><div>afefe</div>feaa<b>bbb</b>
<a href=http://www.baidu.com id=""ggg"">ggg</a><abbr>测试</abbr>"
Set re=new RegExp   
 re.IgnoreCase =true   
 re.Global=True   
 re.Pattern="(<(?!/?(a|p|b)(\s|>))[^>]*>)"   
 str=re.replace(str," ")   
 response.Write str 
 set re=nothing