一、清楚内容中的Javsscript 代码 代码如下: Function ClearJSCode(originCode) Dim reg set reg = New RegExp reg.Pattern = "SCRIPT[^]*/SCRIPT" reg.IgnoreCase = True reg.Global = True clearJSCode = reg.Replace(originCode, "") End Function 二、清除内容中的HTML代码 代码如下: Function ClearHTMLCode(origi...