使用XML技术实现OWC对数据库的展示 --范文123网

站内搜索

最新论文TOP10

·保持共产党员先进性教育心得体会

·工商局2006年度工作计划

热点论文TOP10

·小学数学论文的撰写

·毕业论文范文

·年度个人述职报告

·毛泽东思想概论心得

·寒假社会调查报告

·开题报告范文

·寒假社会调查报告

·寒假社会实践调查报告

·计算机毕业论文

·述职报告

相关论文TOP10

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

作者：佚名来源：网络时间：2005-12-9 10:43:11 浏览：

概述:   本文档介绍了如何借助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>

本新闻共2页,当前在第1页 1 2

首席范文网版权与免责声明：

①	凡本网注明“来源：范文123网（范文网123）”的所有作品，版权均属于范文123网（范文网123），未经本网授权不得转载、摘编或利用其它方式使用上述作品。已经本网授权使用作品的，应在授权范围内使用，并注明“来源：范文123网”。违反上述声明者，本网将追究其相关法律责任。

②	凡本网注明“来源：XXX（非范文123网）”的作品，均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。

③	如因作品内容、版权和其它问题需要同本网联系的，请在30日内进行。