ASP常用函数:ReplaceHTML

1. <%  
2. '去掉HTML标记  
3.  
4. Public Function ReplaceHTML(Textstr)  
5.     Dim Str, re  
6.     Str = Textstr  
7.     Set re = New RegExp  
8.     re.IgnoreCase = True  
9.     re.Global = True  
10.     re.Pattern = "<(.[^>]*)>"  
11.     Str = re.Replace(Str, "")  
12.     Set Re = Nothing  
13.     ReplaceHTML = Str  
14. End Function  
15. %>