客户端
/************************************
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
********************************/
/************************************
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
********************************/