通常，我們?cè)跀?shù)據(jù)庫(kù)中存儲(chǔ)數(shù)據(jù)。不過(guò)，如果希望數(shù)據(jù)的可移植性更強(qiáng)，我們可以把數(shù)據(jù)存儲(chǔ) XML 文件中。

創(chuàng)建并保存 XML 文件

如果數(shù)據(jù)要被傳送到非 Windows 平臺(tái)上的應(yīng)用程序，那么把數(shù)據(jù)保存在 XML 文件中是有好處的。請(qǐng)記住，XML 有很強(qiáng)的跨平臺(tái)可移植性，并且數(shù)據(jù)無(wú)需轉(zhuǎn)換！

首先，我們將學(xué)習(xí)如何創(chuàng)建并保存一個(gè) XML 文件。下面的這個(gè) XML 文件將被命名為 "test.xml"，并被保存在服務(wù)器上的 c 目錄中。我們將使用 ASP 和微軟的 XMLDOM 對(duì)象來(lái)創(chuàng)建并保存這個(gè) XML 文件：

<%Dim xmlDoc, rootEl, child1, child2, p'創(chuàng)建XML文檔Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")'創(chuàng)建根元素并將之加入文檔Set rootEl = xmlDoc.createElement("root")xmlDoc.appendChild rootEl'創(chuàng)建并加入子元素Set child1 = xmlDoc.createElement("child1")Set child2 = xmlDoc.createElement("child2")rootEl.appendChild child1rootEl.appendChild child2'創(chuàng)建 XML processing instruction'并把它加到根元素之前Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'")xmlDoc.insertBefore p,xmlDoc.childNodes(0)'把文件保存到 C 目錄xmlDoc.Save "c:/test.xml"%>

如果您打開(kāi)這個(gè)被保存的文件，它會(huì)使這個(gè)樣子 ("test.xml")：

<?xml version="1.0"?>    

真實(shí)的表單例子

現(xiàn)在，我們看一個(gè)真實(shí)的表單例子。

我們首先看一下這個(gè)被用在例子中的 html 表單：下面的HTML表單要求用戶輸入他們的名字、國(guó)籍以及電子郵件地址。隨后這些信息會(huì)被寫(xiě)到一個(gè) XML 文件，以便存儲(chǔ)。

"customers.htm":

請(qǐng)輸入您的聯(lián)系信息：
名字: 
姓氏: 
國(guó)家: 
郵件: 

用于以上 HTML 表單的 action 被設(shè)置為 "saveForm.asp"。"saveForm.asp" 文件是一個(gè) ASP 頁(yè)面，可循環(huán)遍表單域，并把它們的值存儲(chǔ)在一個(gè) XML 文件中：

<%dim xmlDocdim rootEl,fieldName,fieldValue,attIDdim p,i'如果有錯(cuò)誤發(fā)生，不允許程序終止On Error Resume NextSet xmlDoc = server.CreateObject("Microsoft.XMLDOM")xmlDoc.preserveWhiteSpace=true'創(chuàng)建并向文檔添加根元素Set rootEl = xmlDoc.createElement("customer")xmlDoc.appendChild rootEl'循環(huán)遍歷 Form 集for i = 1 To Request.Form.Count  '除去表單中的 button 元素  if instr(1,Request.Form.Key(i),"btn_")=0 then    '創(chuàng)建 field 和 value 元素，以及 id 屬性    Set fieldName = xmlDoc.createElement("field")    Set fieldValue = xmlDoc.createElement("value")    Set attID = xmlDoc.createAttribute("id")    '把當(dāng)前表單域的名稱設(shè)置為 id 屬性的值    attID.Text = Request.Form.Key(i)    '把 id 屬性添加到 field 元素    fieldName.setAttributeNode attID    '把當(dāng)前表單域的值設(shè)置為 value 元素的值    fieldValue.Text = Request.Form(i)    '將 field 元素作為根元素的子元素進(jìn)行添加    rootEl.appendChild fieldName    '將 value 元素作為 field 元素的子元素進(jìn)行添加    fieldName.appendChild fieldValue  end ifnext'添加 XML processing instruction'并把它加到根元素之前Set p = xmlDoc.createProcessingInstruction("xml","version='1.0'")xmlDoc.insertBefore p,xmlDoc.childNodes(0)'保存 XML 文件xmlDoc.save "c:/Customer.xml"'釋放所有的對(duì)象引用set xmlDoc=nothingset rootEl=nothingset fieldName=nothingset fieldValue=nothingset attID=nothingset p=nothing'測(cè)試是否有錯(cuò)誤發(fā)生if err.number<>0 then  response.write("Error: No information saved.")else  response.write("Your information has been saved.")end if%>

注釋：如果指定的 XML 文件名已經(jīng)存在，那個(gè)文件會(huì)被覆蓋！

XML 文件會(huì)由上面的代碼生成，大致的樣子是這樣的：("Customer.xml"):

<?xml version="1.0" ?>      David         Smith         China         mymail@myaddress.com