'=================================================='函数名：ScriptHtml'作  用：过滤html标记'参  数：ConStr ------ 要过滤的字符串'==================================================Function ScriptHtml(Byval ConStr,TagName,FType)    Dim Re   &n...