网络编程
位置:首页>> 网络编程>> Asp编程>> ASP申请单动态添加实现方法及代码(2)

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

作者:佚名 来源:中国IT实验室 发布时间:2008-11-04 11:09:00 

标签:


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

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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com