這邊有壹段代碼
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 & _
" 款時裝了."%>
這邊還有個/show_thread-128-1--5737944-.htm 支付寶社區,去看壹下