asp如何制作一个小巧的购物车？

如何制作一个小巧的购物车？
主程序如下：
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

roleproxy.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
<％="您已经购买了" & Response.Write CartObj.CartStatus & _
  " 款时装了."％>