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

来源：ddcode.com收集作者：出处：巧巧读书 2006-03-26 进入讨论组

QQRead:http://www.qqread.com/pb/u092952700.html
　　概述: 本文档介绍了如何借助XML语言实现在Web页面上的OWC对数据库中的数据进行展示的方法。由于XML数据可以跨越防火墙，因此该方式可以实现在Internet上对数据进行展现。

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

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

更多内容请看数据库专栏、数据库处理专题、城域网专题专题，或进入讨论组讨论。