最火下载站首页
手机版
最火下载站
关注公众号
最火下载站

当前位置:首页 > 网络知识 > Web前端 > 工具与技巧> XML入门教程:向XML文件存储数据

XML入门教程:向XML文件存储数据

文章作者:网友投稿 发布时间:2008-08-22 11:03:05 来源:网络

通常,我们在数据库中存储数据。不过,如果希望数据的可移植性更强,我们可以把数据存储XML文件中。   创建并保存XML文件   如果数据要被传送到非Windows平台上的应用程序,那么把数据保存在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>

  <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>
#p#副标题#e#
用于以上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.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>mymail@myaddress.com</value>

  </field>

  </customer>

上一篇: 当XML存储遭遇SOA的挑战

下一篇: Dreamweaver进阶-标签选择器的妙用

共有0条评论网友评论