XMLHTTP 发送 XML 数据

客户端
/************************************
var xmlhttp
 function re_msgs(){
 var rvalue;
 rvalue = document.all.re_value.value
 var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件
 dom.async = false;
 dom.resolveExternals = false;
 // 构造xml文件头
 var node = dom.createProcessingInstruction("xml","version='1.0'");
 dom.appendChild(node) ;
 node = null ;
 // 构造root节点
 var root = dom.createElement("root");
 dom.appendChild(root) ;
 dom.documentElement.setAttribute("xmlns:dt","urn:schemas-microsoft-com:datatypes"); // 构造保存二进制数据的节点updata
node = dom.createElement("upData") ;
 root.appendChild(node) ;
node.nodeTypedValue = rvalue; // 节点数据从stream读取，固定长度
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
 xmlhttp.open("POST","Template/CML_ACTION.aspx?item=1", false);
 xmlhttp.onreadystatechange=CallBack ;
 xmlhttp.send(dom); //alert(xmlhttp.ResponseText)
node = null ;
 }
 function CallBack(){
 var rvalue,html
 if(xmlhttp.readyState == 4){
 html = xmlhttp.ResponseText
 rvalue = document.all.re_value.value
 window.returnValue = rvalue + "$" + html
 window.close()
 }
********************************/
服务器端
/*******************************

Dim xDoc As New XmlDocument
Dim tName, Pres, cont, memId, nItem, Pid As String
            xDoc.Load(Request.InputStream) '获取 XMLHTTP 中 send(xml) 发送的 xml 流
            xNode = xDoc.DocumentElement.SelectSingleNode("upData")
            tName = xNode.Attributes(0).InnerText
            Pid = xNode.Attributes(1).InnerText
            nItem = xNode.Attributes(2).InnerText
            Pres = xNode.Attributes(3).InnerText
********************************/