分析如何运用技巧在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>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!