通常，我们在数据库中存储数据。不过，如果希望数据的可移植性更强，我们可以把数据存储XML文件中。

创建并保存XML文件

南通服务器网

如果数据要被传送到非Windows平台上的应用程序，那么把数据保存在XML文件中是有好处的。请记住，XML有很强的跨平台可移植性，并且数据无需转换！

Www@Spdns@com

首先，我们将学习如何创建并保存一个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) 中国南通服务器网,为中文网南通服务器网 如果您打开这个被保存的文件，它会使这个样子("test.xml")： Www_Spdns_com 以下为引用的内容： Www^Spdns^com 真实的表单例子 南通服务器网 现在，我们看一个真实的表单例子。 中国南通服务器网,为中文网南通服务器网 以下为引用的内容： "customers.htm": 请输入您的联系信息： 名字: 姓氏: 国家: 邮件: 中.国南通服务器网 Www~Spdns~com 用于以上HTML表单的action被设置为"saveForm.asp"。"saveForm.asp"文件是一个ASP页面，可循环遍表单域，并把它们的值存储在一个XML文件之中： Www^Spdns^com 以下为引用的内容： <% 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.number<>0 then response.write("Error: No information saved.") else response.write("Your information has been saved.") end if %> Www_Spdns_com 注释：如果被指定的XML文件名已经存在，那个文件会被覆盖！ Www.Spdns.com XML文件会由上面的代码生成，大致的样子是这样的：("Customer.xml"): Www~Spdns~com 以下为引用的内容： Hege Refsnes Norway mymail@myaddress.com Spdns 南通服务器网 南通服务器网 0 顶一下 返回首页 Tags：XML 文件 存储 数据 责任编辑：阿小

评论 收藏 推荐 打印 关闭 字体：+ - 纠错