Dim xDoc As MSXML.DOMDocument
Set xDoc = New MSXML.DOMDocument
xDoc.validateOnParse = False
If xDoc.Load("C:\My Documents\sample.xml") Then
DisplayNode xDoc.childNodes, 0
Else
' The document failed to load.
End If
End Sub
Public Sub DisplayNode(ByRef Nodes As MSXML.IXMLDOMNodeList, _
ByVal Indent As Integer)
Dim xNode As MSXML.IXMLDOMNode
Indent = Indent + 2
For Each xNode In Nodes
If xNode.nodeType = NODE_TEXT Then
Debug.Print Space$(Indent) & xNode.parentNode.nodeName & _
":" & xNode.nodeValue
End If
If xNode.hasChildNodes Then
DisplayNode xNode.childNodes, Indent
End If
Next xNode
End Sub
4.总结
在基于XML的三层C/S模型中，中间层一次性从远程数据库中获取满足客户需求的信息，生成相应的XML文档，以后中间层就不需要再与远程数据库进行交互了，即与远程数据库的连接也就终止了。一旦中间件软件把满足客户需要的信息组装起来以后，就可以以XML 形式发送给客户了，这样客户与中间层也就无需进一步交互。
同时，丰富的XML数据发送给客户端后，客户应用和脚本语言就可以直接使用这些数据，这时客户端与中间层服务器之间连接就可以中止了。
因此，在C/S模型中发送给中间层的信息是简洁的、个人化的和精确的。应用服务器负责在正确的时候组装并交付正确的信息，这将网络上的流量减小并提供了高度的交互能力和用户的满意程度。而且，由于中间层可以提供动态的、易访问的内容，这些内容可以被客户方操作。而且，无需刷新整个用户界面就可以更新页面的内容，这样就减少了从服务器方获取客户方已有的信息所需的交互时间。用户可以方便的远程管理数据，使得网络成为一种具有更大的交互性和互操作性的媒体。
其次，运用基于XML的三层C/S模型，XML结构化的数据可以从商业规范和表现形式中分离出来，而且可以更详细地定义某个数据对象的数据结构，解决了信息标准化的问题。
通过在三层C/S模型使用XML，使得企业之间可以通过网络，与合作伙伴间，进行跨平台，跨操作系统的信息交换。
[1] Hiroshi Maruyama ,Kent Tamura , Naohiko Uramoto .XML and Java Developing Web Applications[M]. Addison-Wesley, August 1999.
[2] Ed Tittel, Norbert Mikula , Ramesh Chandak . XML For DUMMIES [M]. IDG BOOKS Worldwide ,
Inc ,1999.
[3] 宋晓梁,刘东生,许满武. 中间件及其在三层客户机/服务器模型中的应用[N] . 计算机应用990713
