• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp取动态表单中数据并写入xml文件,用xsl显示
    html>
    head>
    title>无标题文档/title>
    meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    script language="javascript">
    var curRow=null;
    var y=1;

    function selectRow(){
    var e=window.event;
    var tr1=e.srcElement;
    if(curRow)
    curRow.bgColor="#FFFFFF";
    tr1.bgColor="e7e7e7";
    curRow=tr1;
    }
    function addRow(src){
    //alert(src);
    var newrow = src.insertRow(src.rows.length-1);
    newrow.attachEvent("onclick",selectRow);
    newrow.height=20;
    var i=4;

    while(i--){
    var newcell = newrow.insertCell();

    switch(i){
    case 0: newcell.innerHTML= 'input type="button" onClick="javascript:delRow(this.parentElement.parentElement)" value="删除此行">'+(y++);
    document.all.count.value=y-1;
    break;
    case 1:newcell.innerHTML=div2.innerHTML;break;
    case 2:newcell.innerHTML=div3.innerHTML;break;
    case 3:newcell.innerHTML=div4.innerHTML;break;
    default: newcell.innerHTML=div1.innerHTML;break;

    }
    }
    //alert(newrow.outerHTML);
    }

    function delRow(src){

    var tab=src.parentElement;
    var i=tab.rows.length;
    var j=tab.rows.length;
    while(i--){
    if(src==tab.rows[i]){
    //alert("就是这行----"+ i);
    document.all.count.value=j-3;
    tab.deleteRow(i);

    }

    }
    }
    /script>
    /head>

    body>
    form name="form1" action="2.asp" method="post" onsubmit=return(checkv())>
    h3>请输入经销商的通讯信息:/h3>
    姓  名: input type="text"  name="jxname">br>
    地  址: input type="text"  name="jxadd">br>
    电  话: input type="text"  name="jxtel">br>
    请输入库存信息br>
    table id="tb" width="100%"  border="1" align="center" cellpadding="1" cellspacing="1" style="border-collapse:collapse" bordercolor="#111111">
      tr>
        th scope="col" width="25%">品名/th>
        th scope="col" width="25%">规格/th>
        th scope="col" width="25%">库存量/th>
        th scope="col" width="25%">操作/th>
      /tr>
      tr id="blankRow" onClick="addRow(this.parentElement)">
        td>nbsp;/td>
        td>nbsp;/td>
        td>nbsp;/td>
        td>nbsp;/td>
      /tr>
    /table>
    input type="hidden" name="count" value="count">
    input type="submit" id="btnSub" name="btnSub" value="提交">br>
    /form>
    div id="div1" style="display:none ">input id="txt" type="text" name="id" style="width:97%; background-color:#FFFFEF">/div>

    div id="div2" style="display:none ">input id="txt" type="text" name="id1" style="width:97%; background-color:#FFFFEF" value="11">/div>
    /body>
    div id="div3" style="display:none ">select  name="id2" style="width:97%; background-color:#FFFFEF" >
    option value="箱">箱/option>
    option value="件">件/option>

            /select>/div>
    div id="div4" style="display:none ">input id="txt" type="text" name="id3" style="width:97%; background-color:#FFFFEF" value="33">/div>
    script language="javascript">
    function checkv()
    {

    if (form1.jxname.value.length == 0)
       {      
        alert("请填写姓名和地址!");
        form1.jxname.focus();
     return false;
          }

    else if(!(check_number(form1.id1.value)))
      {
       alert("数量只能为数字")
    form1.id1.focus();
    return false;

    else 
    return (true);
    }
    function check_number(myint)
    {

      var checkOK = "0123456789";
      var checkStr = myint;
      var allValid = true;
      var decPoints = 0;
      var allNum = "";
      for (i = 0;  i  checkStr.length;  i++)
      {
        ch = checkStr.charAt(i);
        for (j = 0;  j  checkOK.length;  j++)
          if (ch == checkOK.charAt(j))
            break;
        if (j == checkOK.length)
        {
          allValid = false;
          break;
        }
        allNum += ch;
      }
      if (!allValid)
      {
        return (false);
      }
     return (true);
     }

    /script>
    /html>

    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("br>")
    response.write(request.form("jxadd"))
    response.write("br>")
    response.write(request.form("jxtel"))
    response.write("br>")
    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 "LI>"  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

    ?xml version="1.0" encoding="gb2312" ?>
    xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

    xsl:template match="/">
    html>
    body style="background:#DFEEBB">left>
    h3>姓名:xsl:value-of select="kucunbiao/jxname"/>/h3> 
    h3>地址:xsl:value-of select="kucunbiao/jxadd"/>/h3>

    h3>电话:xsl:value-of select="kucunbiao/jxtel"/>/h3>          
     table border="1" width="600">

         xsl:apply-templates select="kucunbiao/kucun" >

          /xsl:apply-templates>

       /table>/left>
      /body>
      /html>
    /xsl:template>
    xsl:template match="kucun">

      tr> 
        td width="60%">div align="center">名称/div>/td>
        td width="20%">div align="center">规格/div>/td>
        td width="20%">div align="center">数量/div>/td>
        /tr>
    xsl:for-each select="field">
      tr>
    td>xsl:value-of select="name"/>/td>
    td>xsl:value-of select="guige"/>/td>
    td>xsl:value-of select="shuliang"/>/td>
    /tr>
       /xsl:for-each>

      /xsl:template>

    /xsl:stylesheet>

    上一篇:统计有多少行JS代码和ASP代码
    下一篇:实例分析ASP上传漏洞入侵实战及扩展
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp取动态表单中数据并写入xml文件,用xsl显示 asp,取,动态,表单,中,数据,