我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(s+cript(.+?)\/s+cript)" originCode= reg.Replace(originCode, "") reg.Pattern = "(s+tyle(.+?)\/s+tyle)" originCode= reg.Replace(originCode, "") reg.Pattern = "[^]*" origi...