把HTML表单提交的数据转化成XML文件
把HTML表单提交的数据转化成XML文件
发布时间:2016-12-29 来源:查字典编辑
摘要:通常,在asp中进行的form表单提交的数据都被写进数据库管理系统中去,如果你想要你的数据是方便携带的数据,你可以把它写进一个XML文件中去...

通常,在asp中进行的form表单提交的数据都被写进数据库管理系统中去,如果你想要你的数据是方便携带的数据,你可以把它写进一个XML文件中去。这种方法是跨平台的,因此你所收集的信息不需要进行转换。

为了实现上面的想法,你必须先利用MicrosoftXMLDOM建立一个XML文件,MicrosoftXMLDOM对象有一个扩展对象库,它可以创建组成XML文件所需要的元素、属性、属性值。

当XMLDOM对象实例化以后,必须对各个元素进行引用来建立XML的结构,下面的例子就是先建立根元素,并把她追加到XML文件中;然后创建各个子元素,并追加元素的属性值。最后保存为XML文件。

实例化MicrosoftXMLDOMObject:

复制代码 代码如下:

<%

DimobjDom

DimobjRoot

DimobjChild1

DimobjChild2

DimobjPI

SetobjDom=Server.CreateObject("Microsoft.XMLDOM")

SetobjRoot=objDom.createElement("rootElement")

objDom.appendChildobjRoot

SetobjChild1=objDom.createElement("childElement1")

objRoot.appendChildobjChild1

SetobjChild2=objDom.createElement("childElement2")

objRoot.appendChildobjChild2

SetobjPI=objDom.createProcessingInstruction("xml","version='1.0'")

objDom.insertBeforeobjPI,objDom.childNodes(0)

objDom.Save"c:MyXMLDoc.xml"

%>

一旦你保存了文件,用IE5+打开后,样式如下[当然,属性还没有被赋值]:

MyXMLDoc.xml:<?xmlversion="1.0"?>

<rootElement>

<childElement1/>

<childElement2/>

</rootElement>

下面我们来看看怎样利用这个对象来存储用户的输入信息。

首先建立输入表单的页面。

EnterContact.html:

复制代码 代码如下:

<html>

<head>

<title>

通讯信息

</title>

</head>

<body>

<formaction="processForm.asp"method="post">

<h3>请输入您的通讯信息:</h3>

姓名:<inputtype="text"id="Name"name="姓名"><br>

性别:<inputtype="text"id="sexName"name="性别"><br>

地址:<inputtype="text"id="address"name="地址"><br>

工作单位:<inputtype="text"id="company"name="工作单位"><br>

电话:<inputtype="text"id="phone"name="电话"><br>

电子邮件:<inputtype="text"id="email"name="电子邮件"><br>

<inputtype="submit"id="btnSub"name="btnSub"value="提交"><br>

</form>

</body>

</html>

然后编写ASP代码,遍历表单元素,并把输入的信息写进XML文件。

processForm.asp:

复制代码 代码如下:

<%

'--------------------------------------------------------------------

'函数"ConvertFormtoXML"接收传递的参数。

'strXMLFilePath-XML存放的物理地址。

'strFileName-要保存的XML文件的名字。

'--------------------------------------------------------------------

FunctionConvertFormtoXML(strXMLFilePath,strFileName)

'定义本地变量.

DimobjDom

DimobjRoot

DimobjField

DimobjFieldValue

DimobjattID

DimobjattTabOrder

DimobjPI

Dimx

'实例化MicrosoftXMLDOM对象.

SetobjDom=server.CreateObject("Microsoft.XMLDOM")

objDom.preserveWhiteSpace=True

'创建XML文档的根元素contact,并追加到XML文档中。

SetobjRoot=objDom.createElement("通讯录")

objDom.appendChildobjRoot

'遍历Request对象Form元素的集合。

Forx=1ToRequest.Form.Count

Ifinstr(1,Request.Form.Key(x),"btn")=0Then

'创建元素"field".

SetobjField=objDom.createElement("field")

'创建属性"id".

SetobjattID=objDom.createAttribute("id")

'设定id属性的值等于Form中各元素的值。

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

'setAttributeNode方法把id属性值追加到field元素。

objField.setAttributeNodeobjattID

'创建属性taborder。

SetobjattTabOrder=objDom.createAttribute("taborder")

'设定taborder的属性值

objattTabOrder.Text=x

'把taborder的属性值追加到field元素中去。

objField.setAttributeNodeobjattTabOrder

'创建一个新的元素field_value.

SetobjFieldValue=objDom.createElement("field_value")

'赋值

objFieldValue.Text=Request.Form(x)

'追加field元素为根元素的子元素。

objRoot.appendChildobjField

'追加field_value做为子元素的内容

objField.appendChildobjFieldValue

EndIf

Next

'创建xml声明

SetobjPI=objDom.createProcessingInstruction("xml","version='1.0'encoding='gb2312'")

'把xml生命追加到xml文档

objDom.insertBeforeobjPI,objDom.childNodes(0)

'保存xml文件

objDom.savestrXMLFilePath&""&strFileName

'释放所有对象所引用的值

SetobjDom=Nothing

SetobjRoot=Nothing

SetobjField=Nothing

SetobjFieldValue=Nothing

SetobjattID=Nothing

SetobjattTabOrder=Nothing

SetobjPI=Nothing

EndFunction

'发生错误时继续执行

OnErrorResumeNext

'调用函数ConvertFormtoXML把文件存放到指定的文件目录和文件名。

ConvertFormtoXML"D:aspexam","Contact.xml"

'如果发生错误,提示用户,否则报告成功。

Iferr.number<>0then

Response.write("保存form值出现错误!!!")

Else

Response.write("提交成功!!")

EndIf

%>

用IE5+打开Contact.xml文件.

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新XML/RSS学习
热门XML/RSS学习
编程开发子分类