.net中申請單動態添加實現方法及代碼[2]

根據選擇動態添加數據代碼

 

<script language=vbscript>
dim lcountmx
lcountmx =
function badd(stidstNamevcidvcNameggidggNamedweisliangdjia)
lcountmx=lcountmx+
dim oRowoCellii
set oRow=tabzxinsertRow
orowid=trzx & lcountmx
set ocell=orowinsertcell
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
ocellinnerhtml= sss
ocellclassname=ListCellRow

set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellalign=center
ocellwidth=
ocellinnerhtml=<input type=hidden name=vcName & lcountmx & value= & vcName & >& vcName

set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellalign=center
ocellwidth=
ocellinnerhtml=<input type=hidden name=ggName & lcountmx & value= & ggName & >& ggName

set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellalign=center
ocellwidth=
ocellinnerhtml=<input type=text size= name=thao & lcountmx & value=>

set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellalign=center
ocellwidth=
ocellinnerhtml=<input type=hidden name=dwei & lcountmx & value= & dwei & >& dwei

set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellalign=center
ocellwidth=
ocellinnerhtml=<input type=text size= name=sliang & lcountmx & onchange=changeFun( & lcountmx & ) value=>
<%
set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellalign=center
ocellwidth=
ocellinnerhtml=<input type=text size= name=djia & lcountmx & onchange=changeFun( & lcountmx & ) value=>
%>

[]  []  []  

From:http://tw.wingwit.com/Article/program/net/201311/15115.html