<!--checkbag.asp-->

<!--shoppingcart page-->

<%  
    response.expires = 0
    response.expiresabsolute = Now() - 1
    response.addHeader "pragma","no-cache"
    response.addHeader "cache-control","private"
    Response.CacheControl = "no-cache"
%>

<!--#include file= "conn.asp"-->
<!--#include file= "char.inc"-->

<%
    'id_type=request("id_type")
    obj=request("obj")       '用做檢測是否是正常購買后的進入購物車取obj參數
    rid=session("id")         '取出會員id
    dim x,i
    dim obj_bag,bag_item,cart
           'obj_bag          ----購物車
           'bag_item        ----商品的信息數據集合
           'cart                ----一件商品的信息數據集合
    dim p_id,p_name,p_price,p_manu,p_type,p_size,p_color,p_num,p_total,sum
            'p_id               ----商品id號
            'p_name         ----商品名稱
            'p_price          ----價格
            'p_manu         ----制造商
        'p_type           ----商品式樣
            'p_size           ----尺寸
        'p_color          ----顏色
            'p_num           ----數量
            'p_total           ----小計
            'sum              ----合計金額

    dim id1

    if obj="1" then                                     obj為1說明由菜單欄點擊進入的
        if not isobject(Session("Bag")) then            如果Session("Bag")不是對象，說明購物車為空
            response.write "<script language=""javascript"">"
            response.write"alert(""購物車為空!"");" & chr(13)
            response.write "window.location='index.asp'"
            response.write "</script>"
            response.end
        else
            set obj_bag=Session("Bag")           若購物車不為空，將它賦給對象obj_bag
        end if
    else
        if isobject(Session("Bag")) then                  若不是菜單欄點擊進入的，則將購物車信息賦給對象obj_bag

            set obj_bag=Session("Bag")
        else                                                         若購物車為空，說明購物車內沒有商品，則返回首頁
            response.write "<script language=""javascript"">"
            response.write"alert(""T購物車為空!"");" & chr(13)
            response.write "window.location='index.asp'"
            response.write "</script>"
            response.end
        end if
      end if
            'response.write "<script>alert("""& isobject(obj_bag) &""")</script>"
      
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'判斷單擊的是購物車頁面下方的哪一個按鈕
''''''''''''''''''''''''''''''''''''''''

    select case request("action")          取得按鈕信息
   如果選擇刷新則重新計算商品的價值及總價
   將當前信息計算寫入購物車并顯示購物車
        case "refresh"        若為刷新   
            for each cart in obj_bag.items
                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         取得取消單選框的值，如果不為空，即打鉤
                    if obj_bag.Exists(p_name) then         如果商品已存在刪除該商品
                        obj_bag.remove(p_name)
                    end if
                else
                    p_num=trim(request("quantity"&p_name))     若沒有該操作，寫入購物車
                    if ((not IsNumeric(p_num)) or (p_num<="0") or (instr(1,p_num,".")<>0)) then
                        p_num=1
                    end if
                    bag_item=array(p_name,p_manu,p_type,p_size,p_color,p_price,p_num,p_id)
                    'response.write "p_num=" & p_num & "<br>"
                end if
            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
。。。。。。。。。（略）