ASP教程:表单内容提交到XML文件中
作者 佚名技术
来源 ASP编程
浏览
发布时间 2012-03-12
然后编写ASP代码,遍历表单元素,并把输入的信息写进XML文件processForm.asp: <%
''-------------------------------------------------------------------- ''函数 "ConvertFormtoXML"接收传递的参数。 ''strXMLFilePath - XML存放的物理地址。 ''strFileName - 要保存的XML文件的名字。 ''-------------------------------------------------------------------- Function ConvertFormtoXML(strXMLFilePath, strFileName) ''定义本地变量. Dim objDom Dim objRoot Dim objField Dim objFieldValue Dim objattID Dim objattTabOrder Dim objPI Dim x ''实例化Microsoft XMLDOM对象. Set objDom = server.CreateObject("Microsoft.XMLDOM") objDom.preserveWhiteSpace = True ''创建XML文档的根元素contact,并追加到XML文档中。 Set objRoot = objDom.createElement("通讯录") objDom.appendChild objRoot ''遍历Request对象Form元素的集合。 For x = 1 To Request.Form.Count If instr(1,Request.Form.Key(x),"btn") = 0 Then ''创建元素 "field". Set objField = objDom.createElement("field") ''创建属性 "id". Set objattID = objDom.createAttribute("id") ''设定id属性的值等于Form中各元素的值。 objattID.Text = Request.Form.Key(x) ''setAttributeNode 方法把id属性值追加到field元素。 objField.setAttributeNode objattID ''创建属性taborder。 Set objattTabOrder = objDom.createAttribute("taborder") ''设定taborder的属性值 objattTabOrder.Text = x ''把taborder的属性值追加到field元素中去。 objField.setAttributeNode objattTabOrder ''创建一个新的元素field_value. Set objFieldValue = objDom.createElement("field_value") ''赋值 objFieldValue.Text = Request.Form(x) ''追加field元素为根元素的子元素。 objRoot.appendChild objField ''追加field_value做为子元素的内容 objField.appendChild objFieldValue End If Next ''创建xml声明 Set objPI = objDom.createProcessingInstruction("xml", "version=''1.0'' encoding=''gb2312''") ''把xml生命追加到xml文档 objDom.insertBefore objPI, objDom.childNodes(0) ''保存xml文件 objDom.save strXMLFilePath & "\" & strFileName ''释放所有对象所引用的值 Set objDom = Nothing Set objRoot = Nothing Set objField = Nothing Set objFieldValue = Nothing Set objattID = Nothing Set objattTabOrder = Nothing Set objPI = Nothing End Function ''发生错误时继续执行 On Error Resume Next ''调用函数ConvertFormtoXML把文件存放到指定的文件目录和文件名。 ConvertFormtoXML "D:\aspexam","Contact.xml" ''如果发生错误,提示用户,否则报告成功。 If err.number <> 0 then Response.write("保存form值出现错误!!!") Else Response.write("提交成功!!") End If %> |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇:
ASP实例:是否支持XmlHttp组件的判断
下一篇:
ASP实例:读取xml文件的程序
关于
ASP教程:表单内容提交到XML文件中
的所有评论