当前位置导航:炫浪网>>网络学院>>编程开发>>MsSQL教程

怎样用SQL 2000 生成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
  %>
相关内容
赞助商链接