在基于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>
文章来源于领测软件测试网 https://www.ltesting.net/
