正则清除HTML标签但保留其中一部分标签

用asp语言实现

 

str="a.htm
afefe
feaabbb
ggg测试"
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   

那正则也可以用在其他语言里实现里实现