asp取动态表单中数据并写入xml文件

来源：百度文库 编辑：神马文学网 时间：2024/04/24 13:28:41
1.动态表单的界面，从csdn论坛上参考


无标题文档





请输入经销商的通讯信息：


姓　　名:

地　　址:

电　　话:

请输入库存信息














品名规格库存量操作
    















2.   2.asp文件
<%
‘////////////////////取表单数据
response.write("共"+request.form("count")+"记录")
i=request.form("count")
jxname=request.form("jxname")
jxadd=request.form("jxadd")
jxtel=request.form("jxtel")
response.write(request.form("jxname"))
response.write("
")
response.write(request.form("jxadd"))
response.write("
")
response.write(request.form("jxtel"))
response.write("
")
str1=trim(request.form("id1"))
str2=trim(request.form("id2"))
str3=trim(request.form("id3"))
arrayA=Split(str1,",")
arrayb=Split(str2,",")
arrayc=Split(str3,",")
For i = 0 to UBound(arrayA)
Response.Write "
  • " & arrayc(i)&"--"&arrayb(i)&"--"&arrayA(i)
    Next
    ‘///////////////////写入xml文件
    Dim objDom
    Dim objRoot
    Dim objChild1
    Dim objChild2
    Dim objChild3
    dim objChild4
    Dim objPI
    Dim PINode
    Set objDom = Server.CreateObject("Microsoft.XMLDOM")
    ‘/////写入样式
    Set PINode=objDom.CreateProcessingInstruction("xml-stylesheet", "type=‘text/xsl‘
    href=‘list.xsl‘")
    objDom.appendchild PINode
    ‘/////创建根接点
    Set objRoot = objDom.createElement("kucunbiao")
    objDom.appendChild objRoot
    Set objChild1 = objDom.createElement("jxname")
    objChild1.text=jxname
    objRoot.appendChild objChild1
    Set objChild2 = objDom.createElement("jxadd")
    objchild2.text=jxadd
    objRoot.appendChild objChild2
    set objChild3=objDom.createElement("jxtel")
    objChild3.text=jxtel
    objRoot.appendChild objChild3
    set objChild4=objDom.createElement("kucun")
    objRoot.appendChild objChild4
    For i = 0 to UBound(arrayA)
    Set objField = objDom.createElement("field")
    ‘创建属性taborder。
    Set objattTabOrder = objDom.createAttribute("taborder")
    ‘设定taborder的属性值
    objattTabOrder.Text = i
    ‘把taborder的属性值追加到field元素中去。
    objField.setAttributeNode objattTabOrder
    ‘创建一个新的元素field_value.
    Set objFieldValue2= objDom.createElement("name")
    objFieldValue2.Text = arrayc(i)
    Set objFieldValue = objDom.createElement("guige")
    objFieldValue.Text = arrayb(i)
    set objFieldValue1=objDom.createElement("shuliang")
    objFieldValue1.Text = arrayA(i)
    ‘追加field元素为根元素的子元素。
    objChild4.appendChild objField
    ‘追加field_value做为子元素的内容
    objField.appendChild objFieldValue
    objField.appendChild objFieldValue1
    objField.appendChild objFieldValue2
    next
    Set objPI = objDom.createProcessingInstruction("xml","version=‘1.0‘")
    objDom.insertBefore objPI, objDom.childNodes(0)
    objDom.Save "f:\xml\"&jxname&".xml"
    ‘//////////释放资源
    Set objDom = Nothing
    Set objRoot = Nothing
    Set objField = Nothing
    Set objFieldValue = Nothing
    Set objattID = Nothing
    Set objattTabOrder = Nothing
    Set objPI = Nothing
    Set PINode=Nothing
    %>
    3.  用xsl显示提交的xml，list.xsl





    姓名：


    地址：


    电话：











    名称

    规格

    数量











    感谢http://lucky.diy.myrice.com/index.html技术支持
    • asp取动态表单中数据并写入xml文件 asp取动态表单中数据并写入xml文 ASP中XML的应用 一步一步学会在ASP.NET 4数据绑定控件中启用动态数据(翻译) - longgel -... 怎样向word文档中写入数据 Asp多表单域无组件文件上传的例子 在JSP开发中使用jdom解析临时存放数据的XML文件 项目开发中常用JS表单取值方法 将数据库表里的数据直接转为XML文件 在Struts 2.0中实现表单数据校验（Validation） 鼎峰智能表单系统(ASP) V1.0 Mini 删文件漏洞 bash脚本中取文件路径(文件名) ASP.net中上传文件的操作 ASP.net中上传文件的操作 ASP.NET2.0中"无法显示 XML 页。 使用 XSL 样式表无法查看 XML 输入... 天博论坛-动态脚本-利用userData实现客户端保存表单数据 动态生成HTML表单 动态生成HTML表单 xmlhttp组件获取远程文件并筛选出目标数据 在JDK 6.0中基于StAX分析XML数据 在JDK 6.0中基于StAX分析XML数据 动态生成的ASP文件转换成静态的格式 Web 开发 / ASP ASP.NET 4启用动态数据来绑定数据控件 - 学IT网 xueit.com eclipse中xml文件里自动提示消失解决办法