Dim adoConn
Set adoConn = Server.CreateObject("ADODB.Connection")

Dim sConn
sConn = "Provider=SQLOLEDB;Data Source=192.168.0.160;Initial Catalog=Northwind;User ID=SA;Password=;"
adoConn.ConnectionString = sConn
adoConn.CursorLocation = adUseClient
adoConn.Open

Dim adoCmd
Set adoCmd = Server.CreateObject("ADODB.Command")
Set adoCmd.ActiveConnection = adoConn

Dim sQuery
‘定义 FOR XML的查询。具体的语法在以后的章节中将详细介绍。
sQuery = "＜ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'＞＜sql:query＞SELECT * FROM PRODUCTS ORDER BY PRODUCTNAME FOR XML AUTO＜/sql:query＞＜/ROOT＞"

‘建立ADODB Stream 对象，ADODB Stream 对象需要ADO2.5以上版本支持，它可以将记录集转换为数据流。
Dim adoStreamQuery
Set adoStreamQuery = Server.CreateObject("ADODB.Stream")
adoStreamQuery.Open
adoStreamQuery.WriteText sQuery, adWriteChar
adoStreamQuery.Position = 0
adoCmd.CommandStream = adoStreamQuery
adoCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"

Response.write "Pushing XML to client for processing " & "＜BR/＞"

adoCmd.Properties("Output Stream") = Response
‘输出XML格式的文本
Response.write "＜XML ID=MyDataIsle＞"
adoCmd.Execute , , adExecuteStream
Response.write "＜/XML＞"

‘通过IE的XML解析器，使用DOM方法将XML的文本转换为HTML
＜SCRIPT language="VBScript" For="window" Event="onload"＞

Dim xmlDoc
Set xmlDoc = MyDataIsle.XMLDocument
xmlDoc.resolveExternals=false
xmlDoc.async=false

Dim root, child
Set root = xmlDoc.documentElement

For each child in root.childNodes
dim OutputXML
OutputXML = document.all("log").innerHTML
document.all("log").innerHTML = OutputXML & "＜LI＞" & child.getAttribute("ProductName") & "＜/LI＞"
Next

＜/SCRIPT＞

　　EXPLICIT模式比较复杂，我们将用另外一种方法来表达图1所显示的查询。这种方法使得我们能够完全地控制查询所生成的XML文档。首先我们将介绍如何改用EXPLICIT模式编写图1所显示的查询，然后看看这种方法如何赋予我们远远超过AUTO模式的能力。

　　下面是图1查询用EXPLICIT模式表达的代码：

【图2 】

　　这个查询初看起来有点复杂，其实它只是把不同的数据集（即这里的Store和Sale）分解到了独立的SELECT语句里，然后再用UNION ALL操作符连结成一个查询。

　　我们之所以要把查询写成上面的形式，是为了让查询结果不仅包含XML文档所描述的数据，而且还包含描述XML文档结构的元数据。上述查询所生成的表称为Universal表，sqlxml.dll生成XML文档时需要这种格式。Universal表对于编写代码的人来说是透明的，但了解这个表还是很有意义的，它将有助于代码的开发和调试。下面是Universal表的一个例子：

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页