//------------------------------------------------------
//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")