代码如下:‘================================================== ‘函数名:ScriptHtml ‘作 用:过滤html标记 ‘参 数:ConStr —— 要过滤的字符串 ‘================================================== Function ScriptHtml(Byval ConStr,TagName,FType) Dim Re Set Re=new RegExp Re.IgnoreCase =true Re.Global=True Select C
