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