当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将HTML表单数据存储为XML格式(2)

ASP
ASP系列讲座(十)ASP 内建对象
ASP系列讲座(十一)ActiveX 组件
ASP系列讲座(十二)向浏览器发送内容
ASP系列讲座(十三)向浏览器传送脚本
ASP系列讲座(十四)包含文件
ASP系列讲座(十五)使用 HTML 表格
ASP系列讲座(十六)访问数据库
ASP系列讲座(十七)调试 ASP 脚本
ASP系列讲座(十八)管理应用程序
ASP系列讲座(十九)管理会话
ASP系列讲座(二十)维护 ASP 应用程序的安全
ASP系列讲座(二十一)创建事务性脚本
ASP系列讲座(二十二)使用国际站点
ASP系列讲座(二十三)编写跨平台应用程序
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (一)
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (二)
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (三)
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (四)
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (五)
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 (六)

ASP 中的 将HTML表单数据存储为XML格式(2)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 99 ::
收藏到网摘: n/a

       文档被存档之后,如果你再打开这个文档,那么则会以如下代码列表形式出现:
  
  MyXMLDoc.xml:
  
  <?xml version="1.0"?>
  <rootElement>
  <childElement1 />
  <childElement2 />
  </rootElement>
  
    在"MyXMLDoc.xml"文档中,childElement1 和 childElement2 会以空的elements形式出现。如果它们被赋值,那么每个值都将由标记符括起来。
  
    现在,让我们来思考一下如何将HTML数据写到XML文档中去。我们已经知道该如何创建和存储XML文档。将一个表单数据写到XML文档中去的过程,现在已演变成为Request Object"s Form Collection以及将每一个表单域的value书定到XML element value 中去的步骤重复。以上可以通过ASP来完成。
  
  例:将数据输送到XML
  
    现在,我们举一个普通的HTML表单的例子来说明。此Form有用户名,地址,电话,以及E-MAIL等几个域。并将这些信息写入XML文件中并保存。
  
  EnterContact.html:
  <html>
  <head>
  <title>
  Contact Information
  </title>
  </head>
  <body>
  <form action="processForm.asp" method="post">
  
  <h3>请输入你的联系方式</h3>
  First Name: <input type="text" id="firstName" name="firstName"><br>
  Last Name: <input type="text" id="lastName" name="lastName"><br>
  Address #1: <input type="text" id="address1" name="address1"><br>
  Address #2: <input type="text" id="address2" name="address2"><br>
  Phone Number: <input type="text" id="phone" name="phone"><br>
  E-Mail: <input type="text" id="email" name="email"><br>
  <input type="submit" id="btnSub" name="btnSub" value="Submit"><br>
  </form>
  </body>
  </html>
  
    将Form 中数据发送到processForm.asp.。这是一个ASP页面,在这个ASP中将反复调用同一个函数将form数据写入XML文件。
  
  processForm.asp:
  
  <%
  "--------------------------------------------------------------------
  "The "ConvertFormtoXML" Function accepts to parameters.
  "strXMLFilePath - The physical path where the XML file will be saved.
  "strFileName - The name of the XML file that will be saved.
  "--------------------------------------------------------------------
  
  Function ConvertFormtoXML(strXMLFilePath, strFileName)
  
  "Declare local variables.
  
  Dim objDom
  Dim objRoot
  Dim objField
  Dim objFieldValue
  Dim objattID
  Dim objattTabOrder
  Dim objPI
  Dim x
  
  "Instantiate the Microsoft XMLDOM.
  
  Set objDom = server.CreateObject("Microsoft.XMLDOM")
  
  objDom.preserveWhiteSpace = True
  
  "Create your root element and append it to the XML document.
  
  Set objRoot = objDom.createElement("contact")
  objDom.appendChild objRoot
  
  "Iterate through the Form Collection of the Request Object.
  
  For x = 1 To Request.Form.Count
  
  "Check to see if "btn" is in the name of the form element.
  "If it is, then it is a button and we do not want to add it
  "to the XML document.
  
  If instr(1,Request.Form.Key(x),"btn") = 0 Then
  
  "Create an element, "field".
  
  Set objField = objDom.createElement("field")
  
&