ASP申请单动态添加实现方法及代码

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP申请单动态添加实现方法及代码】，下面是详细的分享！

ASP申请单动态添加实现方法及代码

以下为引用的内容：

<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=http://www.chinaz.com/program/2008/1104/"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>

以上所分享的是关于ASP申请单动态添加实现方法及代码，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：asp.net制作网页申请表中，如何在表中动态插入数据？

　　答：我觉得这个挺简单的埃很好做的，你写一段js,每次动态的生成下一行就行 记住要用循环，在循环之前定义一变量i=0;并且生成一行后在循环里将i+1;这样的目的是给你每行的3个控件拿来做ID唯一识别的。 现在说3个字段数据如何处理：其中第一个字段和第... >>详细

　　相关问题：如何在 asp.net 后台代码中为前台页面动态增加服务...

　　答：增加产品，不同分类的产品，出现不同的产品属性框，应该还是可添加和删除产品属性框的。 实现方法有两种： 1、多放几个Label和Textbox，根据数据库中的产品属性多少，隐藏掉不需要的Label和Textbox，对需要的Label和Textbox的属性进行赋值在后台... >>详细

　　相关问题：asp.net(c#)怎么往表格里加入动态数据

　　答：你好！方法很多，但基本都是拼接HTML。1、服务器端（比如你是从数据库读取数据添加到表格中的话）方法：可以在页面你想生成表格的地方，放一个服务器控件。label 或者literal 等都行 可以如下形式……//记得带上EnableViewState="false“ 出于性能... >>详细