//--------------------------------------------------Begin---------------------------------------------------------
//一:创建Dom对象objDom
//------------------------------------------------------
//JScript/JavaScript:
// var doc = new ActiveXObject("Microsoft.XMLDOM")
//VB Script:
// Dim doc
// Set doc = CreateObject("Microsoft.XMLDOM")
//VB:
// Dim doc As Object
// Set doc = CreateObject("Microsoft.XMLDOM")
//或者
// Dim doc As DOMDocument
// Set doc = New DOMDocument
//------------------------------------------------------
var objDom = new ActiveXObject("MICROSOFT.XMLDOM")
objDOM.loadXML("<root><action>Inquiry</action><data/></root>")
//二:添加节点到Dom对象objDom
var objNodeChild
objNodeChild = objDom.createElement(strNodeName) //strNodeName是要新增节点的名称
objNodeChild.text = strNodeValue //strNodeValue是要新增节点的值
objDom.selectSingleNode(strNodeParent).appendChild(objNodeChild) //strNodeParent是要添加节点的父节点的路径;
//或者是添加属性到存在的节点
var objNewAttr
objNewAttr = objDom.createAttribute(strAttrName)
objNewAttr.text = strAttrValue
objDom.selectSingleNode(strNode).Attributes.setNamedItem(objNewAttr)
//三:使用xmlHttp
//创建xmlHttp对象
var objHttp = new ActiveXObject("MICROSOFT.XMLHTTP")
objHttp.open("POST",strAspPageName,false) //false 代表不异步处理
objHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
//传递Dom对象到指定页面
objHttp.send(objDom)
//接受指定页面处理之后的Dom对象
objDom.load(objHttp.ResponseStream)
//之后就可以对objDom中的数据进行操作
//
//---------------------------------------------------End---------------------------------------------------------
''''''''''''''''''''''''''''''''''''''''''''''''''''Begin''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''下面部分是在后台ASP页面中执行的操作
''
''四:指定页面strAspPageName要做的操作
''创建Dom对象objBackDom,用来返回到前台
dim objBackDom
set objBackDom = CreateObject("MSXML2.DomDocument")
objBackDom.load "<root><action>response</action><result>fail</result><desc></desc><data/></root>"
''创建Dom对象objGetDom用来接受前台传递的Dom对象
dim objGetDom
set objGetDom = CreateObject("MSXML2.DomDocument")
''设置异步处理为false
''异步处理----false 为取消异步处理 true为开启异步处理
''若关闭异步处理,则要等到文档完全load进来之后才能将控制权交给代码
''若打开异步处理,则访问xml文档时应该先判断myDom.readyState
''其中: readyState = 0 表示 未初始化:调入文档没有开始
'' readyState = 1 表示 调入:Load方法正在执行
'' readyState = 2 表示 调入完成:Load 方法已经完成
'' readyState = 3 表示 交互阶段:DOM可以进行只读检验,数据部分解析
'' readyState = 4 表示 完成:数据完全解析,可以进行读/写操作
objGetDom.async = false
objGetDom.load Request
''之后要做的就是定义变量获取objGetDom中的节点的值
dim strAction
strAction = objGetDom.selectSingelNode("//action").text
''根据获得值与数据库进行数据交互
dim RS,conn
''获得查询到的数据并生成objBackDom
dim objNodeChild
set ohjNodeChild = objBackDom.createElement(strNodeName) ''strNodeName是要添加的节点名称
ohjNodeChild.text = strNodeValue ''strNodeValue是要添加的节点的值
objBackDom.selectSingleNode(strNodeParent).appendChild(ohjNodeChild) ''strNodeParent是要添加子节点的父节点路径
''返回objBackDom到Client端
objBackDom.save Response
Response.end
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''End''''''''''''''''''''''''''''''''''''''''''''''''''''''''