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

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

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

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

下面給大家一個(gè)簡(jiǎn)單的把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 %>