以前在介紹SQL2k的時候已經(jīng)提到了SQL2k對XML的支持，使用for XML語句就可以很容易的把執(zhí)行的結(jié)果轉(zhuǎn)化為一個XML，這樣可以在很大程度上提高系統(tǒng)運行效率和開發(fā)速度，詳細的內(nèi)容請參見Books Online。

　　但是在使用ADO（Required ADO 2.6）訪問返回的XML的方式和原來的Recordset是有所不同的。如果你還是使用Recordset訪問的話，只能得到一個Unicode格式的XML Schema，而無法得到XML的內(nèi)容。

　　其實這個問題也是很容易就能解決的，只是我自以為很熟悉ADO，沒有仔細看Help，所以沒有發(fā)現(xiàn)ADO是采用Stream的方式來得到和返回XML的。

　　Command 對象有兩個屬性，叫Input Stream和Output Stream，屬性的值是一個IUnknown接口。可以把一個XML Parser的接口賦給它，或者是直接用Request、Response等。這樣的好處是不需要再去生成一個Recordset，不需要去保存這些數(shù)據(jù)，從而節(jié)省了系統(tǒng)開銷。

　　下面給大家一個簡單的把XML用Response返回的Example:

＜%@ Language=VBScript %＞
＜!-- #include file="ADOVBS.inc" --＞
＜%
　Dim objConn, objCmd, i
　Set objConn = Server.createobject("ADODB.CONNECTION")
　objConn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=PBA;Data Source=(local)"
　Set objCmd = Server.CreateObject("ADODB.Command")
　objCmd.ActiveConnection = objConn
　objCmd.Properties("Output Stream") = Response
　objCmd.Properties("XML Root") = "root"
　objCmd.CommandText = "Select * from UserStatus for XML Auto"
　Response.ContentType = "text/xml"
　objCmd.Execute i, , adExecuteStream
　Set objCmd = Nothing
　objConn.Close
　Set objConn = Nothing
%＞