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