//创建 XMLHTTP 对象
 var xObj = new ActiveXObject("Msxml2.XMLHTTP");

 //利用 XMLHTTP 对象发送数据
 xObj.Open("post", "save_xml.asp", false);
 xObj.setRequestHeader("Content-type","text/xml");
 //新建 XMLDOM 对象
 var xDom = new ActiveXObject("MSXML2.DOMDocument");
 xDom.async = false;
 xDom.loadXML("xxx.xml");
 //这里可以是载入XML文件，也可以是 XMLDom 数据对象
 //发送数据
 xObj.Send(xDom.xml);

 '定义 MSXML DOM 对象
 Dim objResult
 Set objResult = Server.CreateObject("MSXML2.DOMDocument")

 '载入提交数据
 objResult.load(Request)
 objResult.async = false
 '保存提交数据
 
 objResult.save(Path)