用ASP設計購物推車

什麼是購物推車？
　　你一定去過超級市場吧。在那裡你可以推著推車，將中意的商品放進推車，或者把推車裡的商品取出來重新放到貨架，最後你推著推車去結賬。
　　那麼，在網上超市，客戶也應該可以在瀏覽商品目錄時，將中意的商品放進"電子推車"。電子推車是超級市場推車的電子化。在網上商店裡，這種電子推車又稱為"購物推車"，英文是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
%>