使用XML技术实现OWC对数据库的展示（一）

概述:   本文档介绍了如何借助XML语言实现在Web页面上的OWC对数据库中的数据进行展示的方法。由于XML数据可以跨越防火墙，因此该方式可以实现在Inte.net上对数据进行展现。
在基于WEB的数据库分析应用中，常常借助OWC控件结合HTML实现对数据的表格和图表两种方式的展现。一般应用往往采用OWC直接连接数据库的方式，这会使数据库连接口令暴露在客户端，而使数据库的安全性降低。本文介绍的采用XML作为OWC和数据库之间数据交换介质的方式，能够避免这种对数据库造成的不安全危险。同时，这也能带来其他一些好处，例如：使浏览器与WEB服务器及数据库间的交互次数减少，从而加快排序等操作的响应速度，并减少了服务器的负荷。
一、获取XML数据
将数据库中的数据转化为XML格式的方法很多，本文档不过多对此进行介绍。从性能、通用性角度考虑，这里我们采用了ADO直接序列化(持久化Persist)数据的方式，代码如下：

<!--GetData.asp  -->

<%

dim strConn

strConn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=jlwz"

@#----------读取数据----------------

dim conn,rs

set conn=server.CreateObject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

conn.Open strConn

rs.Open "Select Stat_Date,Call_Num,Call_Fee From CallStat",conn

 

@#将ADO转化为xml dom

Const adPersistXML=1

 

dim objXMLDom

set objXMLDom=server.CreateObject("MSXML2.DOMDocument.3.0")

rs.Save objXMLDom,adPersistXML

set rs=nothing

%>

 

这种方式得到的的XML并不够简洁，其中包含了Schema信息。 

尽管对于OWC中的DataSourceControl控件来说，可以直接采用这种形式的XML数据，但考虑到数据从服务器向客户端传输的效率，我们使用XSLT对这种XML数据进行了转化。为此，编写了如下的Clean.xsl文件：

<?xml version="1.0"?>

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

    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">

    <xsl:output omit-xml-declaration="yes"/>

    <xsl:template match="/">

        <xsl:element name="data">

            <xsl:for-each select="/xml/rs:data/z:row">

                <xsl:element name="row">

                    <xsl:for-each select="@*">

                        <xsl:element name="{name()}">

                        <xsl:value-of select="."/>

                        </xsl:element>

                    </xsl:for-each>

                </xsl:element>

            </xsl:for-each>

        </xsl:element>

    </xsl:template>

</xsl:stylesheet>

 

然后，在GetData.asp中通过如下代码对前面的XML数据进行转化：

@#用XSLT清理转化XML数据

Dim strCleanXML,objXSLT

 

set objXSLT=server.CreateObject("MSXML2.DOMDocument")

objXSLT.load(server.MapPath("Clean.xsl"))

strCleanXML=objXMLDom.transformNode(objXSLT)

 

此时，就得到了我们想要的比较简洁的XML结构的字符串，可以简单地将其Response.Write到客户端：

<data>

  <row>

     <Stat_Date>2003-06-01</Stat_Date>

     <Call_Num>100</Call_Num>

     <Call_Fee>200</Call_Fee>

  </row>

  <row>

     <Stat_Date>2003-07-01</Stat_Date>

     <Call_Num>200</Call_Num>

     <Call_Fee>400</Call_Fee>

  </row>

  。。。

</data>

原文转自：http://www.ltesting.net