洛枫学院

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  
   

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