.net中申请单动态添加实现方法及代码[3]

set ocell=orowinsertcell

ocellclassname=ListCellRow

ocellinnerhtml=<input type=button value=删除 onClick=vbscript:bdel( & lcountmx & ) id=button name=button>

ocellalign=center

documentapplicationsFormypslvalue = lcountmx

end function

function bdel(l)

tabzxdeleteRow documentgetElementById(trzx & l)rowindex

end function

function changeFun(obj)

change obj

end function

function changeFun(obj)

change obj

end function

</script>

选择设备页面的调用代码如下

<SCRIPT LANGUAGE=vbscript>

选择多种用品并返回到主页面

function doOk(sFlag)

Dim StrIDmnewStrIDiinewStrID_

StrID=

for each m in FormEditelements

IF mtype=checkbox then

if mchecked and mname <> selectAllCheck then

if StrID = then

StrID= mvalue

else

StrID=StrID & & mvalue

end if

end if

END IF

NEXT

IF StrID<> THEN

newStrID = Split(StrID)

for ii= to ubound(newStrID)

newStrID(ii) = replace(newStrID(ii)()

newStrID_ = Split(newStrID(ii))

windowopenerbadd newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()

next

if sFlag then

windowclose

end if

else

msgbox 您没有选择任何用品！ vbExclamation提示

exit function

END IF

End function

</SCRIPT>

[] [] []