问hookee大俠(刚结的贴,又有个问题!)

pumnfood 2009-08-30 10:20:50
你的这个过程,我刚刚发现个问题
encoding编码怎么改不掉啊,总是UTF-16


formatDoc xml, server.mappath("xml.xml")

Sub formatDoc(ByRef oDoc, sFilename)
On Error Resume Next
Dim oSAXWriter, oSAXReader

Set oSAXWriter = CreateObject("Msxml2.MXXMLWriter.6.0")
Set oSAXReader = CreateObject("Msxml2.SAXXMLReader.6.0")
With oSAXWriter
.encoding = "UTF-8"
.byteOrderMark = True
.standalone = True
.omitXMLDeclaration = False
.indent = True
End With
With oSAXReader
Set .contentHandler = oSAXWriter
Set .dtdHandler = oSAXWriter
Set .errorHandler = oSAXWriter
.putProperty "http://xml.org/sax/properties/lexical-handler", oSAXWriter
.putProperty "http://xml.org/sax/properties/declaration-handler", oSAXWriter
.parse oDoc
End With
With oDoc
.loadXML oSAXWriter.output
If .parseError.errorCode <> 0 Then
sErrMsg = .parseError.errorCode & "|" &_
.parseError.srcText & "|" & .parseError.reason
On Error GoTo 0
Err.Raise 30000, "formatDoc", sErrMsg
Exit Sub
End If
.save sFilename
End With
Set oSAXWriter = Nothing
Set oSAXReader = Nothing
End Sub
...全文
71 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hookee 2009-08-30
  • 打赏
  • 举报
回复
.encoding = "GB2312" 的话可以得到 UTF-8
或者Replace掉
s = oSAXWriter.output
s = Replace(s,"encoding=""UTF-16""", "")
oDoc.loadXML s

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧