当前位置:K88软件开发文章中心编程语言AspAsp01 → 文章内容

ASP实现申请单动态添加的代码

减小字体 增大字体 作者:佚名     来源:asp编程网  发布时间:2018-12-30 8:32:34

申请单包含很多个项目,添加申请单时就必须使用动态加入代码的方法来实现。

动态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>

 



ASP实现申请单动态添加的代码