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>