'================================================== '函数名：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
