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

【编者按】：网学网ASP为您提供ScriptHtml 函数之过滤html标记的asp代码参考，解决您在ScriptHtml 函数之过滤html标记的asp代码学习中工作中的难题，参考学习。

''==================================================
''函数名：ScriptHtml
''作 用：过滤html标记
''参 数：ConStr ------ 要过滤的字符串
''==================================================
Function ScriptHtml(Byval ConStr,TagName,FType)
Dim Re
Set Re=new RegExp
Re.IgnoreCase =true
Re.Global=True
Select Case FType
Case 1
Re.Pattern="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 2
Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 3
Re.Pattern="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Re.Pattern="</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
End Select
ScriptHtml=ConStr
Set Re=Nothing
End Function