通常，我們在數據庫中存儲數據。不過，如果希望數據的可移植性更強，我們可以把數據存儲XML文件中。
如果數據要被傳送到非Windows平臺上的應用程序，那么把數據保存在XML文件中是有好處的。請記住，XML有很強的跨平臺可移植性，并且數據無需轉換！
首先，我們將學習如何創建并保存一個XML文件。下面的這個XML文件將被命名為"test.xml"，并被保存在服務器上的c目錄中。我們將使用ASP和微軟的XMLDOM對象來創建并保存這個XML文件：
<%Dim xmlDoc, rootEl, child1, child2, p'創建XML文檔Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")'創建根元素并將之加入文檔Set rootEl = xmlDoc.createElement("root")xmlDoc.appendChild rootEl'創建并加入子元素Set child1 = xmlDoc.createElement("child1")Set child2 = xmlDoc.createElement("child2")rootEl.appendChild child1rootEl.appendChild child2'創建 XML processing instruction'并把它加到根元素之前Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'")xmlDoc.insertBefore p,xmlDoc.childNodes(0)'把文件保存到c目錄xmlDoc.Save "c:/test.xml"%>如果您打開這個被保存的文件，它會使這個樣子("test.xml")：
<?xml version="1.0"?><root> <child1 /> <child2 /></root>
現在，我們看一個真實的表單例子。
我們首先看一下這個被用在例子中的HTML表單：下面的HTML表單要求用戶輸入他們的名字、國籍以及電子郵件地址。隨后這些信息會被寫到一個XML文件，以便存儲。
<html><body><form action="saveForm.asp" method="post"><h1>請輸入您的聯系信息：</h1><label>名字: </label><p><input type="text" id="fname" name="fname"></p><label>姓氏: </label><p><input type="text" id="lname" name="lname"></p><label>國家: </label><p><input type="text" id="country" name="country"></p><label>郵件: </label><p><input type="text" id="email" name="email"></p><p><input type="submit" id="btn_sub" name="btn_sub" value="Submit"><input type="reset" id="btn_res" name="btn_res" value="Reset"></p></form></body></html>
用于以上HTML表單的action被設置為"saveForm.asp"。"saveForm.asp"文件是一個ASP頁面，可循環遍表單域，并把它們的值存儲在一個XML文件之中：
<%dim xmlDocdim rootEl,fieldName,fieldValue,attIDdim p,i'如果有錯誤發生，不允許程序終止On Error Resume NextSet xmlDoc = server.CreateObject("Microsoft.XMLDOM")xmlDoc.preserveWhiteSpace=true'創建并向文檔添加根元素Set rootEl = xmlDoc.createElement("customer")xmlDoc.appendChild rootEl'循環遍歷Form集for i = 1 To Request.Form.Count '除去表單中的button元素 if instr(1,Request.Form.Key(i),"btn_")=0 then '創建field 和 value 元素，以及 id 屬性 Set fieldName = xmlDoc.createElement("field") Set fieldValue = xmlDoc.createElement("value") Set attID = xmlDoc.createAttribute("id") '把當前表單域的名稱設置為id屬性的值 attID.Text = Request.Form.Key(i) '把id屬性添加到field元素 fieldName.setAttributeNode attID '把當前表單域的值設置為value元素的值 fieldValue.Text = Request.Form(i) '將field元素作為根元素的子元素進行添加 rootEl.appendChild fieldName '將value元素作為field元素的子元素進行添加 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"'釋放所有的對象引用set xmlDoc=nothingset rootEl=nothingset fieldName=nothingset fieldValue=nothingset attID=nothingset p=nothing'測試是否有錯誤發生if err.number<>0 then response.write("Error: No information saved.")else response.write("Your information has been saved.")end if%>注釋：如果被指定的XML文件名已經存在，那個文件會被覆蓋！
XML文件會由上面的代碼生成，大致的樣子是這樣的：("Customer.xml"):
<?xml version="1.0" ?><customer> <field id="firstName"> <value>Hege</value> </field> <field id="lastName"> <value>Refsnes</value> </field> <field id="country"> <value>Norway</value> </field> <field id="email"> <value>[email protected]</value> </field></customer>
新聞熱點
疑難解答
