| 欧网销售-⑨ |
 |
 |
| 欧网销售-② |
 |
 |
| 欧网销售-④ |
 |
 |
| 欧网销售-③ |
 |
 |
| 欧网技术-⑦ |
 |
 |
| 欧网备案-⑤ |
 |
 |
| 欧网网维-⑧ |
 |
 |
|
|
|
|
XML入门教程：向XML文件存储数据 |
|
[ 作者： | 文章来源： 网页教学网 | 点击数： 1396 | 更新时间： 2007-11-4 8:57:49 ] |
通常，我们在数据库中存储数据。不过，如果希望数据的可移植性更强，我们可以把数据存储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
南通服务器网
|
南通服务器网
|
|
|
|
|
|
