编程资料集中营
 | 网站首页 | 文章中心 | 编程资料2 | 软件下载 | BT下载 | 八卦星闻 | 音乐在线 | 在线游戏 | 免费电影 | 进入问吧 | 
用XML数据岛解决用户界面问题 - 3, 把数据库的表数据保存到文件中我曾答应向你展示如何避免每次请求都要读取数据库和串联成XML字符串的步骤。答案就是把数据库的表数据保存到文件中；这样做有几个好处。读取文件比查询数据库并把记录集格式化成XML要快。这样做也可以简化你的HTML文件，因为你只需在HTML中包含对XML的引用。最后这样做使数据对于客户端来说是透明的。如果你以Listing1中的方式发送XML标记符的话，用户可以通过IE的查看/源文件看到数据。使用文件引用的话，用户只能看到引用标记符，而非数据。只要你的数据库记录不是永不改变的，你就还得在数据改变时查询数据库。例如，你可以在SQLServer中写一个触发器，当Lo,
您现在的位置： 编程资料,学习资料,c,c++,vc,vc++,java,jsp,j2ee,j2me,asp,php >> 文章中心 >> XML 技术 >> 文章正文
【字体：小 大】
用XML数据岛解决用户界面问题 - 3   进入问吧

本站地址:http://www.bajiao123.com

作者：admin    文章来源：不详    点击数：    更新时间：2007-3-7    

用XML数据岛解决用户界面问题 - 3


把数据库的表数据保存到文件中

　　我曾答应向你展示如何避免每次请求都要读取数据库和串联成XML字符串的步骤。答案就是把数据库的表数据保存到文件中；这样做有几个好处。读取文件比查询数据库并把记录集格式化成XML要快。这样做也可以简化你的HTML文件，因为你只需在HTML中包含对XML的引用。最后这样做使数据对于客户端来说是透明的。如果你以Listing 1中的方式发送XML标记符的话，用户可以通过IE的"查看/源文件"看到数据。使用文件引用的话，用户只能看到引用标记符，而非数据。

　　只要你的数据库记录不是永不改变的，你就还得在数据改变时查询数据库。例如，你可以在SQL Server中写一个触发器，当"Location"表发生改变时更新"LastChanged"表中的日期和时间（Listing 3）。对于每一次请求，你可以比较
Location"表与保存数据的XML文件的日期和时间。本文使用的Access数据库不支持触发器，但你可以编写代码来实现当"Location"表发生改变时更新"LastChanged"表的功能。你也可以每隔一段时间，如一天或一个小时就重新生成文件。

　　用Scripting.FileSystemObject 和 Scripting.TextStream对象写XML文件到硬盘中。为了能写XML文件，你必须给IUSR_MACHINENAME匿名用帐户足够的权限以打开、读、写和删除文件（如果你使用的是NTFS格式的分区硬盘的话）。如果你只想利用XML数据重新在客户端建立一个记录集的话，你可以用adPersistXML方法保存记录集到硬盘中。如果你这样做的话，必须注意ADO为了能从XML数据重新建立记录集而把记录集保存成优化的格式。这样生成的XML对于XSL查询语句而言即
不美观又不方便：

　　Dim fs

　　Dim ts

　　dim aFilename

　　aFilename = Server.MapPath _("/XMLDataIslands") & _"locations.xml"

　　set fs = Server.CreateObject _("Scripting.FileSystemObject")

　　set ts = fs.OpenTextFile _(aFilename, ForWriting)

　　ts.Write s

现在，当你收到一个请求时，查看"LastChanged"表中日期和时间：

　　Dim SQL

　　Dim R

　　Dim conn

　　dim tableModifyDate

　　set conn = Server.CreateObject _("ADODB.Connection")

　　conn.mode = adModeRead

　　conn.open "DSN=CheapPC;UID=sa;PWD="

　　SQL = "SELECT " & _"LastChanged.LastChanged " & _"FROM Locations WHERE " & _"Tablename='Locations'"

　　set R = conn.execute(SQL,,adCmdText)

　　tableModifyDate = R("LastChanged")

接下来，通过获取一个File对象来比较XML文件与tableModifyDate的日期和时间，并查看它的FileCreatedOn属性值：

　　dim fs

　　dim aFile

　　dim rewriteFile

　　rewriteFile=False

　　set fs = Server.CreateObject _("Scripting.FileSystemObject")

　　if fs.FileExists(aFilename) then

　　　　Set aFile = fs.GetFile(aFilename)

　　　　If aFile.DateCreated < _LocationsModifiedDate Then

　　　　　rewriteFile=True

　　　　end if

　　else

　　　　rewriteFile=true

　　end if
　　如果XML文件不存在或需要更新时，你必须写文件（Listing 4）。这样就重新从数据库读取数据并格式化成XML，但你只需覆盖旧的XML文件而不必把XML发送到浏览器。现在在你的HTML文件中，你只需引用该XML文件即可。当你的XML文件不需要更新，你的服务器会略过数据的读取与格式化，只是简单地读取XML数据到浏览器。从整体上看，读取XML数据为你的服务器节省了大量的处理能力，使你的页面更有效率。


源代码可以从http://www.yesky.com/34670816/xmldaima.zip下载

本站收录


   

进入问吧

本站地址:http://www.bajiao123.com

文章录入：admin    责任编辑：admin 
  • 上一篇文章：

  • 下一篇文章：
    • 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    相关文章
    普通文章 Absolute Database Personal
    普通文章 AC Report V1.72 For D567 (
    普通文章 AC Report 中国式报表组件 V
    普通文章 AC Report中式报表系统 V1.8
    普通文章 ACCESS/SQL 数据库存取图片演
    普通文章 AccessAdmin v0.10 棕熊数据
    普通文章 ACCESS技巧集(DELPHI AND SQ
    普通文章 AES Advanced Encryption 改
    高级搜索
    编程资料集中营