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