给xml加上头

在网上找到的资料，不过是用在js上的，我自己又做了一个用在ASP(VBS)上的。
我一直都希望，能在自己程序里“制造”出来的xml中指定encoding。看到这段代码很“惊喜”！
不过有一个问题都存在：无法指定encoding!

研究动网论坛的时候，发现他们有一段代码是装载外部xml文件来实现的。原因可能是也是因为无法指定encoding吧？

 一、ASP(VBS)版

dim  MsxmlVersion
MsxmlVersion  =   " .3.0 "



Set  xmlDoc  =  Server.CreateObject( " msxml2.FreeThreadedDOMDocument " &  MsxmlVersion)
xmlDoc.async  =   false
xmlDoc.loadxml( " <root></root> " )

Dim  PI
Set    PI    =    xmlDoc.createProcessingInstruction( " xml " ,  " version='1.0' encoding='gb2312' " )  
call   xmlDoc.insertBefore(PI,xmlDoc.childNodes( 0 ))  

Response.Write(xmlDoc.xml)

 

二、Js版

js版来自于http://topic.youkuaiyun.com/t/20031105/20/2431155.html

< script language = " javascript " >
var    xml    =     new    ActiveXObject( " Microsoft.XMLDOM " );   
xml.loadXML( " <root></root> " );   
var    PI    =    xml.createProcessingInstruction( " xml " ,    " version='1.0'   encoding='gb2312'    " );   
xml.insertBefore(PI,   xml.childNodes( 0 ));   

var    attrib    =    xml.createAttribute( " xmlns " );   
attrib.value    =     " search " ;   

var    Node    =    xml.selectSingleNode( " /root " );   
Node.setAttributeNode(attrib);   
alert(xml.xml);   
</ script >