bsp; next
set Session("Bag")=obj_bag 将obj_bag对象里的信息,写入Session("Bag")
如果选择去收银台则准备开始接收付款
将当前信息写入购物车并转向收银程序
case "check" 按钮为购买的时候
for each cart in obj_bag.items 循环cart将其所有信息都赋给变量
p_name=cart(0)
p_manu=cart(1)
p_type=cart(2)
p_size=cart(3)
p_color=cart(4)
p_price=cart(5)
p_num=cart(6)
p_id=cart(7)
if request("checkBox_" & p_id)="" then 如果取消单选框为空,取id1的值
id1=p_id & "," & id1 将他们有逗号形式连接
end if
next
id1=left(id1,len(id1)-1)
shopping_id=request("id")
set obj_bag=session("bag")
set session("obj_bag")=obj_bag
call insertDB(id1) 调用函数
end select
%>
'输出HTML
。。。。。。。。。(略)
set Session("Bag")=obj_bag 将obj_bag对象里的信息,写入Session("Bag")
如果选择去收银台则准备开始接收付款
将当前信息写入购物车并转向收银程序
case "check" 按钮为购买的时候
for each cart in obj_bag.items 循环cart将其所有信息都赋给变量
p_name=cart(0)
p_manu=cart(1)
p_type=cart(2)
p_size=cart(3)
p_color=cart(4)
p_price=cart(5)
p_num=cart(6)
p_id=cart(7)
if request("checkBox_" & p_id)="" then 如果取消单选框为空,取id1的值
id1=p_id & "," & id1 将他们有逗号形式连接
end if
next
id1=left(id1,len(id1)-1)
shopping_id=request("id")
set obj_bag=session("bag")
set session("obj_bag")=obj_bag
call insertDB(id1) 调用函数
end select
%>
'输出HTML
。。。。。。。。。(略)