什么是购物推车? 你一定去过超级市场吧。在那里你可以推着推车,将中意的商品放进推车,或者把推车里的商品取出来重新放到货架,最后你推着推车去结账。 那么,在网上超市,客户也应该可以在浏览商品目录时,将中意的商品放进"电子推车"。电子推车是超级市场推车的电子化。在网上商店里,这种电子推车又称为"购物推车",英文是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-123 ID-310 ID-236 ID-21 然后我们把这个二维数组保存到session变量中就可以了。 购物推车类CartKit的设计 请下载:CartKit.asp CreateCart设计: 请看程序代码: Class CartKit REM 开始类CartKit的定义 Sub CreateCart() IFIsArray(Session("Cart")) =falseTHEN Dim mudCart(19,1) Session("Cart") = mudCart ENDIF End Sub 其中:Session("Cart")保存的就是推车的内容。如果推车不存在,我们就定义一个二维数组mudCart来表达推车,并将它保存到session("Cart")中。 CheckCart设计: 本函数判断Cart是否已经创建。比较简单。 Function CheckCart() IFIsArray(Session("Cart")) THEN CheckCart=True ELSE CheckCart=False ENDIF End Function CheckItem设计: 请看代码: Function CheckItem(ID) IF CheckCart=TrueTHEN varMudCart = Session("Cart") FOR i =LBound(varMudCart)TOUBound(varMudCart) IF varMudCart(i,0) = ID THEN CheckItem=TRUE ExitFunction ELSEIF varMudCart(i,0) <> ID THEN CheckItem=FALSE ENDIF NEXT ENDIF 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=falseTHEN CartObj.CreateCart mudCart=Session("Cart") mudCart(0,0)=ID mudCart(0,1)=Qty Session("Cart")=mudCart ExitFunction ELSEIF varCartStatus=trueTHEN IF CartObj.CheckItem(ID) =trueTHEN CartObj.UpdateItem ID,Qty ELSEIF cartObj.CheckItem(ID) =falseTHEN mudCart = Session("Cart") FOR i =LBound(mudCart) TOUBound(mudCart) IF mudCart(i,0) =""THEN mudCart(i,0) = ID mudCart(i,1) = Qty Session("Cart") = mudCart ExitFunction ENDIF NEXT ENDIF ENDIF End Function UpdateItem设计: Function UpdateItem(ID, Qty) mudCart = Session("Cart") FOR i =LBound(mudCart) TOUBound(mudCart) IF mudCart(i,0) = ID THEN mudCart(i,1) = Qty Session("cart")=mudCart ExitFunction ENDIF NEXT End Function ViewItem设计: Function ViewItem() mudCart=Session("Cart") IFisArray(mudCart) THEN %> Item Name Item Quantity <% Response.Write "Item ID: "& mudCart(i,0) &"<--" Response.Write " " Response.Write "Item Qty: "& mudCart(i,1) &"<--" Response.Write " " ENDIF NEXT ELSEIFisArray(mudCart) =FalseTHEN Response.Write "No item in your cart!" Response.Write " " Response.Write "Y don’t you do shop!" ENDIF End Function RemoveItem(ID)设计: Function RemoveItem(ID) mudCart=Session("Cart") ’Find the Postion / Index of given ID. For i =LBound(mudCart) TOUbound(mudCart) IF mudCart(i,0) = ID THEN Pos=i ExitFor ENDIF Next ’Delete Process FOR i = Pos TOUBound(mudCart) -1 IFNot mudCart(i,0) =""THEN mudCart(i,0) = mudCart(i+1,0) ENDIF Next End Function End Class REM 结束类CartKit的定义
Sub CreateCart() If IsArray(Session("Cart")) = false Then Dim mudCart(19,1) Session("Cart") = mudCart End If End Sub
Dim myArray(3,1) ReDim Preserve myArray(3,2) Dim myArrayID(1), myArrayQty(1) 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
Function RemoveItem(ID) mudCart=Session("Cart") For i = LBound(mudCart) TO Ubound(mduCart) If myArray(i,0) = ID Then Pos=i Exit For End If Next
For i = Pos TO UBound(myArray) - 1 If Not myArray(i, 0) = "" Then myArray(i,0) = myArray(i+1,0) myArray(i,1) = myArray(i+1,1)
End If Next End Function
Role of Proxy.asp varAction=CStr(Request.QueryString("ac")) Set mudCartObj = New CartKit varID = CStr(Request.Form("ID")) varQty = Request.QueryString("qty")
If varAction="by" Then mudCartObj.AddItem varID, varQty ElseIf varAction="rm" Then mudCartObj.RemoveItem varID ElseIf varAction="up" Then mudCartObj.UpdateItem varID, varQty ElseIf varAction="ra" Then mudCartObj.RemoveAll ElseIf varAction="co" Then MudcartObj.CheckOut ElseIf varAction="cs" Then MudcartObj.ContinueShopping End If
Function CartStatus() varTotalItems = 0 Set CartObj = New CartKit If CartObj.CheckCart = true Then MudCart = Session("Cart") VarTotalItem = 0 For i = Lbound(mudCart) TO Ubound(mudCart) If mudCart(i,0) <> "" Then varTotalItem = varTotalItem + Cint(mudCart(i,1)) End If Next ElseIf CartObj.CheckCart= False Then varTotalItem="0" End If CartStatus=varTotalItem End Function Set CartObj = Nothing End Function
<%="You have " & Response.Write CartObj.CartStatus & _ " items(s) in your cart"%>