实例代码解析:用ASP设计购物推车

网络整理 - 09-01
什么是购物推车?
  你一定去过超级市场吧。在那里你可以推着推车,将中意的商品放进推车,或者把推车里的商品取出来重新放到货架,最后你推着推车去结账。
  那么,在网上超市,客户也应该可以在浏览商品目录时,将中意的商品放进"电子推车"。电子推车是超级市场推车的电子化。在网上商店里,这种电子推车又称为"购物推车",英文是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
%>
Item Name
Item Quantity
<%
Response.Write "Item ID: " & mudCart(i,0) & "<--"
Response.Write "
"
Response.Write "Item Qty: " & mudCart(i,1) & "<--"
Response.Write "
"
END IF
NEXT
ELSEIF isArray(mudCart) = False THEN
Response.Write "No item in your cart!"
Response.Write "
"
Response.Write "Y don’t you do shop!"
END IF
End Function
RemoveItem(ID)设计:
Function RemoveItem(ID)
mudCart=Session("Cart")
’Find the Postion / Index of given ID.
For i = LBound(mudCart) TO Ubound(mudCart)
 IF mudCart(i,0) = ID THEN
  Pos=i
 Exit For
END IF
Next
’Delete Process...
 FOR i = Pos TO UBound(mudCart) - 1
  IF Not mudCart(i,0) = "" THEN
  mudCart(i,0) = mudCart(i+1,0)
 END IF
 Next
 End Function
End Class REM 结束类CartKit的定义



CartKit.asp

'------建立一辆购物车-----
Class 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"%>