SQLServer2000中生成XML的小技巧

核心提示：以前在介绍SQL2k的时候已经提到了SQL2k对xml(标准化越来越近了)的支持，使用for xml(标准化越来越近了)语句就可以很容易的把执行的结果转化为一个xml(标准化越来越近了)，SQLServer2000中生成XML的小技巧，这样可以在很大程度上提高系统运行效率和开发速度，详细的内容请参见Books Onli

　　以前在介绍SQL2k的时候已经提到了SQL2k对xml(标准化越来越近了)的支持，使用for xml(标准化越来越近了)语句就可以很容易的把执行的结果转化为一个xml(标准化越来越近了)，这样可以在很大程度上提高系统运行效率和开发速度，详细的内容请参见Books Online。
　　
　　但是在使用ADO（Required ADO 2.6）访问返回的xml(标准化越来越近了)的方式和原来的Recordset是有所不同的。如果你还是使用Recordset访问的话，只能得到一个Unicode格式的xml(标准化越来越近了) Schema，而无法得到xml(标准化越来越近了)的内容。
　　
　　其实这个问题也是很容易就能解决的，只是我自以为很熟悉ADO，没有仔细看Help，所以没有发现ADO是采用Stream的方式来得到和返回xml(标准化越来越近了)的。
　　
　　Command 对象有两个属性，叫Input Stream和Output Stream，属性的值是一个IUnknown接口。可以把一个xml(标准化越来越近了) Parser的接口赋给它，或者是直接用Request、Response等。这样的好处是不需要再去生成一个Recordset，不需要去保存这些数据，从而节省了系统开销。
　　
　　下面给大家一个简单的把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
　　%＞