如何把数据储存到XML⽂件通常，我们在数据库中存储数据。不过，如果希望数据的可移植性更强，我们可以把
数据存储 XML ⽂件中。
创建并保存 XML ⽂件
如果数据要被传送到⾮ Windows 平台上的应⽤程序，那么把数据保存在 XML ⽂件中
是有好处的。请记住，XML 有很强的跨平台可移植性，并且数据⽆需转换！
⾸先，我们将学习如何创建并保存⼀个 XML ⽂件。下⾯的这个 XML ⽂件将被命名为
"l"，并被保存在服务器上的 c ⽬录中。我们将使⽤ ASP 和微软的 XMLDOM 对
象来创建并保存这个 XML ⽂件：
<%
Dim xmlDoc, rootEl, child1, child2, p
'创建XML⽂档
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
'创建根元素并将之加⼊⽂档
Set rootEl = ateElement("root")
xmlDoc.appendChild rootEl
'创建并加⼊⼦元素
Set child1 = ateElement("child1")
Set child2 = ateElement("child2")
rootEl.appendChild child1
rootEl.appendChild child2
'创建 XML processing instruction
'并把它加到根元素之前
Set ateProcessingInstruction("xml","version='1.0'")
xmlDoc.insertBefore p,xmlDoc.childNodes(0)
'把⽂件保存到 C ⽬录
xmlDoc.Save "c:\l"
%>
如果您打开这个被保存的⽂件，它会使这个样⼦ ("l")：
<?xml version="1.0"?>createprocessa
<root>
<child1 />
<child2 />
</root>
真实的表单例⼦
现在，我们看⼀个真实的表单例⼦。
我们⾸先看⼀下这个被⽤在例⼦中的 HTML 表单：下⾯的HTML表单要求⽤户输⼊他
们的名字、国籍以及电⼦邮件地址。随后这些信息会被写到⼀个 XML ⽂件，以便存
储。
"customers.htm":
<body>
<form action="saveForm.asp" method="post">
<h1>请输⼊您的联系信息：</h1>
<label>名字: </label>
<p><input type="text" id="firstName" name="firstName"></p>
<label>姓⽒: </label>
<p><input type="text" id="lastName" name="lastName"></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 xmlDoc
dim rootEl,fieldName,fieldValue,attID
dim p,i
'如果有错误发⽣，不允许程序终⽌
On Error Resume Next
Set xmlDoc = server.CreateObject("Microsoft.XMLDOM") xmlDoc.preserveWhiteSpace=true
'创建并向⽂档添加根元素
Set rootEl = ateElement("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 = ateElement("field")
Set fieldValue = ateElement("value")
Set attID = ateAttribute("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 = ateProcessingInstruction("xml","version='1.0'") xmlDoc.insertBefore p,xmlDoc.childNodes(0)
'保存 XML ⽂件
xmlDoc.save "c:\l"
'释放所有的对象引⽤
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 ⽂件会由上⾯的代码⽣成，⼤致的样⼦是这样的：("l"):
<?xml version="1.0" ?>
<customer>
<field id="firstName">
<value>David</value>
</field>
<field id="lastName">
<value>Smith</value>
</field>
<field id="country">
<value>China</value>
</field>
<field id="email">
<value>mymail@myaddress</value>
</field>
</customer>

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。