| 最后版本 |
您的文本 |
| 第4行： |
第4行： |
|
| |
|
|
| |
|
| 通常，我们在数据库中存储数据。不过，如果希望数据的可移植性更强，我们可以把数据存储 XML 文件中。 <br>
| |
|
| |
|
| == 创建并保存 XML 文件 ==
| |
|
| |
| 如果数据要被传送到非 Windows 平台上的应用程序，那么把数据保存在 XML 文件中是有好处的。请记住，XML 有很强的跨平台可移植性，并且数据无需转换！<br>
| |
|
| |
| 首先，我们将学习如何创建并保存一个 XML 文件。下面的这个 XML 文件将被命名为 "test.xml"，并被保存在服务器上的 c 目录中。我们将使用 ASP 和微软的 XMLDOM 对象来创建并保存这个 XML 文件：<br>
| |
|
| |
| <%<br>
| |
| Dim xmlDoc, rootEl, child1, child2, p<br>
| |
|
| |
| '创建XML文档<br>
| |
| Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")<br>
| |
|
| |
| '创建根元素并将之加入文档<br>
| |
| Set rootEl = xmlDoc.createElement("root")<br>
| |
| xmlDoc.appendChild rootEl<br>
| |
|
| |
| '创建并加入子元素<br>
| |
| Set child1 = xmlDoc.createElement("child1")<br>
| |
| Set child2 = xmlDoc.createElement("child2")<br>
| |
| rootEl.appendChild child1<br>
| |
| rootEl.appendChild child2<br>
| |
|
| |
| '创建 XML processing instruction<br>
| |
| '并把它加到根元素之前<br>
| |
| Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'")<br>
| |
| xmlDoc.insertBefore p,xmlDoc.childNodes(0)<br>
| |
|
| |
| '把文件保存到c目录<br>
| |
| xmlDoc.Save "c:\test.xml"<br>
| |
| %>如果您打开这个被保存的文件，它会使这个样子 ("test.xml")：<br>
| |
|
| |
| <?xml version="1.0"?><br>
| |
| <root><br>
| |
| <child1 /><br>
| |
| <child2 /><br>
| |
| </root><br>真实的表单例子<br>
| |
| 现在，我们看一个真实的表单例子。<br>
| |
|
| |
| 我们首先看一下这个被用在例子中的 HTML 表单：下面的HTML表单要求用户输入他们的名字、国籍以及电子邮件地址。随后这些信息会被写到一个 XML 文件，以便存储。<br>
| |
|
| |
| "customers.htm":<br>
| |
| <nowiki> <html></nowiki><br>
| |
| <nowiki><body></nowiki><br>
| |
| <nowiki><form action="saveForm.asp" method="post"></nowiki><br>
| |
| <nowiki><h1>请输入您的联系信息：</h1></nowiki><br>
| |
| <nowiki><label>名字: </label></nowiki><br>
| |
| <nowiki><p><input type="text" id="fname" name="fname"></p></nowiki><br>
| |
| <nowiki><label>姓氏: </label></nowiki><br>
| |
| <nowiki><p><input type="text" id="lname" name="lname"></p></nowiki><br>
| |
| <nowiki><label>国家: </label></nowiki><br>
| |
| <nowiki><p><input type="text" id="country" name="country"></p></nowiki><br>
| |
| <nowiki><label>邮件: </label></nowiki><br>
| |
| <nowiki><p><input type="text" id="email" name="email"></p></nowiki><br>
| |
| <nowiki><p></nowiki><br>
| |
| <nowiki><input type="submit" id="btn_sub" name="btn_sub" value="Submit"></nowiki><br>
| |
| <nowiki><input type="reset" id="btn_res" name="btn_res" value="Reset"></nowiki><br>
| |
| <nowiki></p></nowiki><br>
| |
| <nowiki></form></nowiki><br>
| |
| <nowiki></body></nowiki><br>
| |
|
| |
| <nowiki></html><br>用于以上 HTML 表单的 action 被设置为 "saveForm.asp"。"saveForm.asp" 文件是一个 ASP 页面，可循环遍表单域，并把它们的值存储在一个 XML 文件之中：</nowiki><br>
| |
|
| |
| <%<br>
| |
| dim xmlDoc<br>
| |
| dim rootEl,fieldName,fieldValue,attID<br>
| |
| dim p,i<br>
| |
|
| |
| '如果有错误发生，不允许程序终止<br>
| |
| On Error Resume Next<br>
| |
|
| |
| Set xmlDoc = server.CreateObject("Microsoft.XMLDOM")<br>
| |
| xmlDoc.preserveWhiteSpace=true<br>
| |
|
| |
| '创建并向文档添加根元素<br>
| |
| Set rootEl = xmlDoc.createElement("customer")<br>
| |
| xmlDoc.appendChild rootEl<br>
| |
|
| |
| '循环遍历Form集<br>
| |
| for i = 1 To Request.Form.Count<br>
| |
| '除去表单中的button元素<br>
| |
| if instr(1,Request.Form.Key(i),"btn_")=0 then<br>
| |
| '创建field 和 value 元素，以及 id 属性<br>
| |
| Set fieldName = xmlDoc.createElement("field")<br>
| |
| Set fieldValue = xmlDoc.createElement("value")<br>
| |
| Set attID = xmlDoc.createAttribute("id")<br>
| |
| '把当前表单域的名称设置为id属性的值<br>
| |
| attID.Text = Request.Form.Key(i)<br>
| |
| '把id属性添加到field元素<br>
| |
| fieldName.setAttributeNode attID<br>
| |
| '把当前表单域的值设置为value元素的值<br>
| |
| fieldValue.Text = Request.Form(i)<br>
| |
| '将field元素作为根元素的子元素进行添加<br>
| |
| rootEl.appendChild fieldName<br>
| |
| '将value元素作为field元素的子元素进行添加<br>
| |
| fieldName.appendChild fieldValue<br>
| |
| end if<br>
| |
| next<br>
| |
|
| |
| '添加XML processing instruction<br>
| |
| '并把它加到根元素之前<br>
| |
| Set p = xmlDoc.createProcessingInstruction("xml","version='1.0'")<br>
| |
| xmlDoc.insertBefore p,xmlDoc.childNodes(0)<br>
| |
|
| |
| '保存XML文件<br>
| |
| xmlDoc.save "c:\Customer.xml"<br>
| |
|
| |
| '释放所有的对象引用<br>
| |
| set xmlDoc=nothing<br>
| |
| set rootEl=nothing<br>
| |
| set fieldName=nothing<br>
| |
| set fieldValue=nothing<br>
| |
| set attID=nothing<br>
| |
| set p=nothing<br>
| |
|
| |
| '测试是否有错误发生<br>
| |
| if err.number<>0 then<br>
| |
| response.write("Error: No information saved.")<br>
| |
| else<br>
| |
| response.write("Your information has been saved.")<br>
| |
| end if<br>
| |
| %>注释：如果指定的 XML 文件名已经存在，那个文件会被覆盖！<br>
| |
|
| |
| XML 文件会由上面的代码生成，大致的样子是这样的：("Customer.xml"):<br>
| |
|
| |
| <?xml version="1.0" ?><br>
| |
| <customer><br>
| |
| <field id="firstName"><br>
| |
| <value>David</value> <br>
| |
| </field><br>
| |
| <field id="lastName"><br>
| |
| <value>Smith</value> <br>
| |
| </field><br>
| |
| <field id="country"><br>
| |
| <value>China</value> <br>
| |
| </field><br>
| |
| <field id="email"><br>
| |
| <value>mymail@myaddress.com</value> <br>
| |
| </field><br>
| |
| </customer><br>
| |
|
| |
|
|
| |
|
