要改变编码,可以用这种笨办法 dim xddutf,xddgb2312 set xddutf=createobject("msxml.domdocument") set xddgb2312=createobject("msxml.domdocument") xddutf.loadxml " <?xml version='1.0' encoding='utf-8'?> <tmp/>" xddgb2312.load "你的xml" set xddutf.documentelement=xddgb2312.documentelement xddutf.save "你的xml"