把數據庫的表數據保存到文件中
我曾答應向你展示如何避免每次請求都要讀取數據庫和串聯成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下載