SQL吧 网站源码下载 企业网站源码下载 免费网站源码下载

当前位置: 主页 > 教程 > 程序 > xml >

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

时间:2013-03-21 12:18来源:网络整理 作者:SQL吧 点击:
利用XSLT把ADO记录集转换成XML
企业站建365全包!先制作!后付款!600多套模版任你选择!晴网www.138.la专注企业站建仿站、域名、空间、云主机、服务器, 咨询电话:020-29031983 qq:2769485357

孟宪会

  由于XML(可扩展标记语言:eXtensible Markup Language)真正的平台无关性,它正在逐渐成为数据传输的主要介质。XML是一种自描述的语言,数据自己就已经包括了元数据,即关于数据自己的信 息。例如:“孟子E章1757281793923net_lover1807581793923”这组数据,从字面很难看出它代表什么意思,也不清楚它有 几个数据段构成,但是,如果用XML来做如下的描述,们就可以清楚地看到每个数据段所代表的含义:
 

<PersonData&gt;
  <Person&gt;
   <姓名>孟子E章</姓名>
   <身高>175</身高>
   <体重>72</体重>
   <电话>81793923</电话>
  </Person> 
  <Person>
   <姓名>net_lover</姓名>
   <身高>180</身高>
   <体重>75</体重>
   <电话>81793923</电话>
  </Person>
 </PersonData>
      从上面的一段XML中,们不但可以清楚地看到每一个数据代表的是什么意思了,而且还可以知道数据的分割位置。在我们平常的应用中,我们得到的结果可能是 数组、集合或记录集的表示形式,我们该如何把它们转换成自描述的XML格式的数据呢?从数据形式上看,XML是简单的纯字符串的文本格式,字符串在传递时 是非常简单、快速而且是容易的,数组在通过引用进行传递时有时是很慢的,而且处置惩罚起来很麻烦,而集合和记录集都是东西,在处置惩罚时会导致计算机性能的下降, 并且这些东西都是与特定的平台相关联的,这就要求平台有内建的处置惩罚机制来处置惩罚东西的操作。XML已经是W3C的尺度,是平台无关的,我们的计算机的唯一要 求就是能够处置惩罚简单的XML字符串,即XML解析器,它能够解析XML字符串,能够通过一种接口很容易地把数据分解成一个个独立的数据段,以便我们能够进 行访问。XML解析器都很小,性能也很好,在每种平台上都可以找到。一旦我们接收到XML数据并把它解析成上面的例子的样式后,我们就可以通过XSLT (eXstensible Stylesheet Language Transformations)把他们转换成不同的表示形式。利用XML的数据格式进行数据传输,将会使我们编写应用法式代码的事情更简单轻松,而且具 有良好的可伸缩性。
 下面,我们就看看如何来转换我们的数据。我们的例子是在Microsoft Windows 2000,IIS5,MSXML3和ADO2.6下编写的,样例数据采用Microsoft SQL Server7.0自带的Northwind示例数据库。之所以采用SQL Server7而不采用支持XML的SQL Server2000,是考虑到通用性的原则,我们的目的是:处置惩罚不同类型的数据源得到的记录集,而不仅仅是象SQL Server2000那样的支持XML输出的数据源。使用ADO,是因为它形式多样,可以处置惩罚不同类型的数据源;使用XML,是因为它能够快速传输和解 析。但本例的处置惩罚方法也适合在任何具有Micrsoft XML解析器,ADO2.5或以上版本的Windows,IIS,SQL Server的环境中。
 为简单起见,我们仅选择单价小于等于20美圆,库存大于等于20,产品名称小于等于6个字符的产品:
 
  <%
  Dim objRecordset
  Set objRecordset = Server.CreateObject(&quot;ADODB.Recordset&quot;)
  objRecordset.open _
      "SELECT ProductName, UnitPrice, UnitsInStock " _
          & "FROM Products " _
          & "WHERE UnitPrice <= 20 " _
          & "AND UnitsInStock >= 20 " _
          & "AND LEN(ProductName) <= 6 " _
          & "ORDER BY ProductName", _
      "Provider=SQLOLEDB;" _
          & "Data Source=SomeSQLServer;" _
          & "Initial Catalog=Northwind;" _
          & "User ID=MyUserName;" _
          & "Password=MyPassword;"
  %>
 现在,我们就用3种方式把我们得到的记录集转换成XML格式。
 首先,我们可以遍历整个记录集,采用XML DOM(Document Object Model),建立XML节点树:


  <%
  Dim objXMLDOM, objRootNode, objNode
  Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument")
 
  Set objRootNode = objXMLDOM.createElement("xml")
  objXMLDOM.documentElement = objRootNode
 
  Do While NOT objRecordset.EOF
      Set objRowNode = objXMLDOM.createElement("row") 
      Set objNode = objXMLDOM.createElement("ProductName")
      objNode.text = objRecordset.Fields.Item("ProductName").Value
      objRowNode.appendChild(objNode)
 
      Set objNode = objXMLDOM.createElement("UnitPrice")
      objNode.text = objRecordset.Fields.Item("UnitPrice").Value
      objRowNode.appendChild(objNode) (责任编辑:编辑部)

顶一下
(0)
0%
踩一下
(0)
0%
0
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
栏目列表
推荐内容