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

ASP
asp+的页面指示标识
asp+文件上传增强实例
让ASP也可以连接MYSQL
ASP文件操作--列出目录及文件
将站点加入频道栏源代码
如何在页面上动态的生成 WebForm控件
避免表单的重复提交又一方法(js)
灵活实用的页面广告实例
如何用javascript识别Netscape 6 浏览器
使用javascript实现邮箱快速登录的方法!!
如何从数据库得到一个列表表单
使用Cookie来跟踪用户
用DHTML来模拟实现下拉菜单
javascript做的数据校验(校验IP地址等)
通过网络域名得到这台主机的IP地址
如何在ASP中使用类
SQL Server中单引号的两种处理技巧
Display data From database into 2 Column
存储过程对页面访问速度的影响
在ASP中使用类

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 94 ::
收藏到网摘: 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")

"Create an attribute, "id".

Set objattID = objDom.createAttribute("id")

"Set the value of the id attribute equal the the name of

"the current form field.

objattID.Text = Request.Form.Key(x)

"The setAttributeNode method will append the id attribute
"to the field element.

objField.setAttributeNode objattID

"Create another attribute, "taborder". This just orders the
"elements.

Set objattTabOrder = objDom.createAttribute("taborder")

&quo