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>