XML入门教程：向XML文件存储数据.docx

XML入门教程：向XML文件存储数据通常，我们在数据库中存储数据。不过，如果希望数据的可移植性更强，我们可以把数据存储XML文件中。 创建并保存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 child1 rootEl.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文件，以便存储。 以下为引用的内容： customers.htm: html body form action=saveForm.asp method=post h1请输入您的联系信息：/h1 label名字: /label pinput type=text id=fname name=fname/p label姓氏: /label pinput type=text id=lname name=lname/p label国家: /label pinput type=text id=country name=country/p label邮件: /label pinput 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 xmlDoc dim rootEl,fieldName,fieldValue,attID dim p,i 如果有错误发生，不允许程序终止 On Error Resume Next Set 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 if next 添加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=nothing set rootEl=nothing set fieldName=nothing set fieldValue=nothing set attID=nothing set p=nothing 测试是否有错误发生 if err.number0 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 valueHege/value /fie