建立一个小型的购物车程序（转）

最新推荐文章于 2022-07-29 22:14:37 发布

cuankuangzhong6373

最新推荐文章于 2022-07-29 22:14:37 发布

阅读量203

点赞数

文章标签： java 数据库

博客展示了购物车功能的代码实现，包含创建购物车、添加商品、移除商品等函数，还涉及根据不同请求动作调用相应操作，以及获取购物车商品总数的功能，整体围绕购物车功能的代码逻辑展开。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

　" items(s) in your cart"%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124755/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124755/