1、完全去除html标签
  1. function nohtml(str)  
  2. dim re  
  3. Set re=new RegExp  
  4. re.IgnoreCase =true  
  5. re.Global=True  
  6. re.Pattern="(\<.[^\<]*\>)"  
  7. str=re.replace(str," ")  
  8. re.Pattern="(\<\/[^\<]*\>)"  
  9. str=re.replace(str," ")  
  10. str=replace(str," ","")  
  11. str=replace(str," ","")  
  12. nohtml=str  
  13. set re=nothing  
  14. end function  

这是asp函数，怎么使用asp函数相信大家都知道，和其他语言一样的。
2、保留部分html标签（如div，p，br标签）
  1. Function OutTable(str)  
  2. dim a,re  
  3. set re=new RegExp  
  4. re.pattern="<(?!img|br|p|div).*?>" '这里是要保留的标签，用|隔开  
  5. re.global=true  
  6. a=str  
  7. OutTable=re.replace(a,"")  
  8. End Function  

其实原理都差不多，都是利用正则表达式来过滤