zoukankan      html  css  js  c++  java
  • ASP申请单动态添加实现方法及代码

    一个申请单可以包含N个项目,添加申请单时就需要动态加入代码了。 
    
    动态Table表格 
    
    以下为引用的内容: 
    <table border="0" width="98%" id="tabzx" name="tabzx" align="center" 
    class="table_list"> 
    <tr> 
    <td class="th_list" width="10%"> 
    A列 
    </td> 
    <td class="th_list" width="10%" align="center"> 
    B列 </td> 
    <td class="th_list" width="10%" align="center"> 
    C列 
    </td> 
    <td class="th_list" width="5%" align="center"> 
    D列 
    </td> 
    <td class="th_list" width="5%" align="center"> 
    E列 
    </td> 
    <td class="th_list" width="5%" align="center"> 
    F列 
    </td><%-- 
    <td class="th_list" width="7%" align="center"> 
    G列 
    </td> 
    
    --%><td class="th_list" width="13%"> 
    [ 
    <a href="javascript:doSelect(450,400,'formEdit.supplyId')"><font 
    color="FF0000">选择设备</font> </a>] 
    </td> 
    </tr> 
    </table> 
    
    
    
    JS代码如下(根据条件弹出设备列表,然后选择已有设备) 
    
    function doSelect(Width,Height,ctrlobj){ 
    
    var k; 
    var s = new Object(); 
    k=showModalDialog("/Applications_add_addsearch.jsp",s,"dialogWidth:320px;status:no;scroll:no;dialogHeight:280px");
    if (k!=null) 
    { 
    var url = "/applicationsAction.do?method=insertAddSeach&stId="+k[0]+"&sbId="+k[1]+"&ggId="+k[2]; 
    window.open(url,'newwindow', 'height=600, width=800, toolbar=no, menubar=no, scrollbars=yes, resizable=no,location=no, status=no'); 
    } 
    
    } 
    
    ========================= 
    
    根据选择动态添加数据代码 
    
    
    
    <script language="vbscript"> 
    dim lcountmx 
    lcountmx = 0 
    function badd(stid,stName,vcid,vcName,ggid,ggName,dwei,sliang,djia) 
    lcountmx=lcountmx+1 
    dim oRow,oCell,ii 
    set oRow=tabzx.insertRow 
    orow.id="trzx" & lcountmx 
    set ocell=orow.insertcell 
    dim sss 
    sss="<input type=hidden name=cgdjmx"& lcountmx & " value="""">" 
    sss=sss&"<input type=hidden name=stid"& lcountmx & " value=" & stid & ">" 
    sss=sss&"<input type=hidden name=stName"& lcountmx & " value=" & stName & ">" 
    sss=sss&"<input type=hidden name=vcid"& lcountmx & " value=" & vcid & ">" 
    sss=sss&"<input type=hidden name=ggid"& lcountmx & " value=" & ggid & ">" 
    sss=sss&stName 
    ocell.innerhtml= sss 
    ocell.classname="ListCellRow" 
    
    
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.align="center" 
    ocell.width="60" 
    ocell.innerhtml="<input type=hidden name=vcName" & lcountmx & " value=" & vcName & ">"& vcName 
    
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.align="center" 
    ocell.width="60" 
    ocell.innerhtml="<input type=hidden name=ggName" & lcountmx & " value=" & ggName & ">"& ggName 
    
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.align="center" 
    ocell.width="60" 
    ocell.innerhtml="<input type=text size=10 name=thao" & lcountmx & " value=''>" 
    
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.align="center" 
    ocell.width="60" 
    ocell.innerhtml="<input type=hidden name=dwei" & lcountmx & " value=" & dwei & ">"& dwei 
    
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.align="center" 
    ocell.width="60" 
    ocell.innerhtml="<input type=text size=3 name=sliang" & lcountmx & " onchange='changeFun(" & lcountmx & ")' value=''>" 
    <%-- 
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.align="center" 
    ocell.width="60" 
    ocell.innerhtml="<input type=text size=3 name=djia" & lcountmx & " onchange='changeFun1(" & lcountmx & ")' value=''>" 
    --%> 
    
    
    set ocell=orow.insertcell 
    ocell.classname="ListCellRow" 
    ocell.innerhtml="<input type='button' value='删除' onClick='vbscript:bdel(" & lcountmx & ")' id=button7 name=button7>" 
    ocell.align="center" 
    
    document.applicationsForm.ypsl.value = lcountmx 
    end function 
    
    function bdel(l) 
    tabzx.deleteRow document.getElementById("trzx" & l).rowindex 
    end function 
    
    function changeFun(obj1) 
    change obj1 
    end function 
    
    function changeFun1(obj1) 
    change1 obj1 
    end function 
    </script> 
    <SCRIPT LANGUAGE=vbscript> 
    
    '选择多种用品并返回到主页面 
    function doOk(sFlag) 
    Dim StrID,m,newStrID,ii,newStrID_1 
    StrID="" 
    for each m in FormEdit.elements 
    IF m.type="checkbox" then 
    if m.checked and m.name <> "selectAllCheck" then 
    if StrID = "" then 
    StrID= m.value 
    else 
    StrID=StrID & "," & m.value 
    end if 
    end if 
    END IF 
    NEXT 
    
    IF StrID<>"" THEN 
    newStrID = Split(StrID,",") 
    for ii=0 to ubound(newStrID) 
    newStrID(ii) = replace(newStrID(ii),"(",",") 
    newStrID_1 = Split(newStrID(ii),",") 
    window.opener.badd newStrID_1(0),newStrID_1(1),newStrID_1(2),newStrID_1(3),newStrID_1(4),newStrID_1(5),newStrID_1(6),newStrID_1(7),newStrID_1(8)
    next 
    if sFlag then 
    window.close 
    end if 
    else 
    msgbox "您没有选择任何用品!" ,vbExclamation,"提示" 
    exit function 
    END IF 
    End function 
    </SCRIPT> 
    

      

  • 相关阅读:
    1082 射击比赛 (20 分)
    1091 N-自守数 (15 分)
    1064 朋友数 (20 分)
    1031 查验身份证 (15 分)
    1028 人口普查 (20 分)
    1059 C语言竞赛 (20 分)
    1083 是否存在相等的差 (20 分)
    1077 互评成绩计算 (20 分)
    792. 高精度减法
    791. 高精度加法
  • 原文地址:https://www.cnblogs.com/uuxanet/p/3282828.html
Copyright © 2011-2022 走看看