利用XSLT把ADO记录集转换成XML

      objRootNode.appendChild(objRowNode)
 
      objRecordset.MoveNext
  Loop
 
  Set objNode = Nothing
  Set objRowNode = Nothing
  Set objRootNode = Nothing
 
  Set objRecordset = Nothing
  %>

 现在，我们就得到了一个XML DOM对象。这种方法对于记录集很大时性能并不理想，因为系统内存中要同时保存ADO记录集对象和XML DOM对象。
 第二个办法，遍历记录集，直接生成XML字符串本身：
 

  <%
  Dim strXML
  strXML = "<xml>"
  objRecordset.MoveFirst
  Do While NOT objRecordset.EOF
      strXML = strXML & "<row>"
      strXML = strXML & "<ProductName>" _
          & objRecordset.Fields.Item("ProductName").Value _
          & "</ProductName>"
      strXML = strXML & "<UnitPrice>" _
          & objRecordset.Fields.Item("UnitPrice").Value _
          & "</UnitPrice>"
      strXML = strXML & "<UnitsInStock>" _
          & objRecordset.Fields.Item("UnitsInStock").Value _
          & "</UnitsInStock>"
      strXML = strXML & "</row>"
      objRecordset.MoveNext
  Loop
  strXML = strXML & "</xml>"
  Set objRecordset = Nothing
  %>
 
  但是，以上两种方法最大的缺陷是不能够重用代码，我们把节点的名字都写死了，如果我们进行不同字段的查询，我们还必须手动更改我们的代码，以满足不同节点的需要。我们下面的方法将变得更加通用。
  第三种方法：可重用的方法。
 
  <%
  Dim strXML
  strXML = "<xml>"
  objRecordset.MoveFirst
  Do While NOT objRecordset.EOF
      strXML = strXML & "<row>"
      For Each varItem In objRecordset.Fields
          strXML = strXML _
              & "<" & varItem.name & ">" _
              & varItem.value _
              & "</" & varItem.name & ">"
      Next
      strXML = strXML & "</row>"
      objRecordset.MoveNext
  Loop
  strXML = strXML & "</xml>"
  Set objRecordset = Nothing
  %>
 
  一个更有效的方法，我们可以直接利用记录集内建的save方法，它能够自动地把记录集的内容转换成XML格式，我们调用save方法后，我们就可以立即释 放内存中的记录集对象实例。 save方法有两个参数：一个是XML要保存的地方，一个是指示符，标明数据以何种格式保存。我们可以把数据保存成XML DOM对象（ADO STREAM对象），也可以直接保存成ASP RESPONSE对象，为通用起见，我们保存成XML DOM，第二个参数用adPersistXML ADO常量。方法如下：
 
  <%
  Const adPersistXML = 1
  Dim objXMLDOM
  Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
  objRecordset.save objXMLDOM, adPersistXML
  Set objRecordset = Nothing
  %>
 
 这种方法方便快捷，而且不容易出错，对不同的查询，也不用手动更改节点名字。但是，这种方法产生的XML不够简洁，看看它产生的结果：
 
<xml
    xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"
    xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
    xmlns:rs="urn:schemas-microsoft-com:rowset"
    xmlns:z="#RowsetSchema">

<s:Schema id="RowsetSchema">

    <s:ElementType
        name="row"
        content="eltOnly"
        rs:CommandTimeout="30">

        <s:AttributeType
            name="ProductName"
            rs:number="1"
            rs:writeunknown="true">

            <s:datatype
                dt:type="string"
                dt:maxLength="40"

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 23 4 5 下一页

上一篇：從無到有實現一個xml數據庫登錄驗証   下一篇：XML 问题: 超越DOM(轻松使用 DOM 的技巧和诀窍)

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】