什么是購物推車? 你一定去過超級市場吧。在那里你可以推著推車,將中意的商品放進推車,或者把推車里的商品取出來重新放到貨架,最后你推著推車去結賬。 那么,在網上超市,客戶也應該可以在瀏覽商品目錄時,將中意的商品放進"電子推車"。電子推車是超級市場推車的電子化。在網上商店里,這種電子推車又稱為"購物推車",英文是shopping cart。 購物推車的設計目標 從程序員的觀點來看,購物推車是維護購物者商品選購、允許察看、允許修改的一個對象。購物推車本身是一個非常簡單的程序,但開發者要考慮它將連接到商品目錄子系統、訂單子系統、客戶賬號子系統、站點管理子系統等等,形成功能完整的網上商店。 下面是購物推車的設計目標: 1、 持續性:購物推車應該從它的前一次會話中記住其內容。 2、 購物推車和客戶相關,而不是和客戶的電腦相關。客戶可以從另外的電腦或瀏覽器來訪問購物推車。 3、 當新的商品被加入推車或者從推車去掉時,推車的內容可以被顯示給用戶。4、 推車可以容納很多甚至無限的商品。 系統設計/流程設計 在編寫我們的購物推車之前,我們看看它的系統架構和流程。
如果客戶從商品目錄中選擇了一件商品,這時我們傳遞客戶的請求到proxy.asp,同時傳遞的是動作變量"增加商品"。proxy.asp讀取這個變量,并決定執行購物推車的哪個動作。這些動作包括:增加商品、更新商品數量、移除商品或者察看購物推車。 有些動作被作為內部調用。如創建推車之前,我們需要檢查推車是否已經存在(checkcart)。在增加、刪除或者更新商品及其數量時,我們要確認此商品是否已經存在于我們的購物推車之中(checkitem)。下面我們將為購物推車設計8個方法,分別是: viewitem 察看推車 checkcart 檢查推車 createcart 創建推車 additem(id, qty), 增加商品 removeitem(id) 刪除商品 updateitem(id, qty), 更新數量 removeall 全部清空 checkitem(id) 商品檢查 購物推車的設計 購物推車需要三個要素:一個vbscript 5的類class cartkit,一個多維數組mudcart,一個session變量session("cart")。 這個vbscript 類,我們稱為cartkit,包含了8個方法,如上表所示。在本文我們只用了id和qty,分別表示商品編號和數量。 這樣我們就可以用一個二維數組來表達這個推車,象下面這樣: 商品編號 商品數量 id-1 23 id-3 10 id-23 6 id-2 1 然后我們把這個二維數組保存到session變量中就可以了。 購物推車類cartkit的設計 請下載:cartkit.asp createcart設計: 請看程序代碼: class cartkit rem 開始類cartkit的定義 sub createcart() if isarray(session("cart")) = false then dim mudcart(19,1) session("cart") = mudcart end if end sub 其中:session("cart")保存的就是推車的內容。如果推車不存在,我們就定義一個二維數組mudcart來表達推車,并將它保存到session("cart")中。 checkcart設計: 本函數判斷cart是否已經創建。比較簡單。 function checkcart() if isarray(session("cart")) then checkcart=true else checkcart=false end if end function checkitem設計: 請看代碼: function checkitem(id) if checkcart=true then varmudcart = session("cart") for i = lbound(varmudcart)to ubound(varmudcart) if varmudcart(i,0) = id then checkitem=true exit function elseif varmudcart(i,0) <> id then checkitem=false end if next end if end function 首先判斷推車是否存在。然后將商品的編號id和購物推車中的商品編號逐一比較。如果有相等的,返回真。否則為假。 additem(id,qty)設計: 請參考本文的附件cartkit.asp,這里介紹的函數我們把它們封裝到一個名為cartkit的class中。下面的代碼段首先創建了一個cartkit對象,然后檢查推車是否已經存在。如果不存在,就創建推車并新增商品;否則,檢查商品編號是否已經存在于cart中。如果是,就更新數量;否則,新增商品。 function additem(id, qty) set cartobj = new cartkit varcartstatus = cartobj.checkcart if varcartstatus=false then cartobj.createcart mudcart=session("cart") mudcart(0,0)=id mudcart(0,1)=qty session("cart")=mudcart exit function elseif varcartstatus=true then if cartobj.checkitem(id) = true then cartobj.updateitem id,qty elseif cartobj.checkitem(id) = false then mudcart = session("cart") for i = lbound(mudcart) to ubound(mudcart) if mudcart(i,0) = "" then mudcart(i,0) = id mudcart(i,1) = qty session("cart") = mudcart exit function end if next end if end if end function updateitem設計: function updateitem(id, qty) mudcart = session("cart") for i = lbound(mudcart) to ubound(mudcart) if mudcart(i,0) = id then mudcart(i,1) = qty session("cart")=mudcart exit function end if next end function viewitem設計: function viewitem() mudcart=session("cart") if isarray(mudcart) then %> |