ScriptHtml 函数之过滤html标记的asp代码

1. '==================================================  
2. '函数名：ScriptHtml  
3. '作  用：过滤html标记  
4. '参  数：ConStr ------ 要过滤的字符串  
5. '==================================================  
6. Function ScriptHtml(Byval ConStr,TagName,FType)  
7.     Dim Re  
8.     Set Re=new RegExp  
9.     Re.IgnoreCase =true  
10.     Re.Global=True  
11.     Select Case FType  
12.     Case 1  
13.        Re.Pattern="<" & TagName & "([^>])*>"  
14.        ConStr=Re.Replace(ConStr,"")  
15.     Case 2  
16.        Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"  
17.        ConStr=Re.Replace(ConStr,"")   
18.     Case 3  
19.        Re.Pattern="<" & TagName & "([^>])*>"  
20.        ConStr=Re.Replace(ConStr,"")  
21.        Re.Pattern="</" & TagName & "([^>])*>"  
22.        ConStr=Re.Replace(ConStr,"")  
23.     End Select  
24.     ScriptHtml=ConStr  
25.     Set Re=Nothing  
26. End Function