求一简单的购物车类，以前贴过的，一时找不到，在线等………………

[编程最光荣]

如题

[编程最光荣]

以前看的，好像不是这个东东！

[编程最光荣]

努力的再顶一下！

[nomoodforjoking]

http://expert.csdn.net/Expert/topic/2511/2511697.xml?temp=.6002771
我的,看看行不

[编程最光荣]

看了，还可以，不过以前有一个更简单的，更通用的类！

17：00以前不知能否搞定，我是从上班顶到下班，没有理想的答案！顶到低！

[lqflsh]

在www.chinaz.com
www.k666.com
有很多商店源代码，找一个看看更好。

[编程最光荣]

之所以要一简单的购物车类，主要想自己修改修改，适合自己所用！

再等……

[编程最光荣]

加分再等……！

[vivisogood]

http://expert.csdn.net/Expert/topic/2502/2502537.xml?temp=.9612085

[编程最光荣]

昨天没有解决，今天再顶！

[coffee_cn]

代码都有了，还没有解决啊！！！

[编程最光荣]

谢谢各位的帮忙 我要的就是这个！
<%
Class CartKit '开始类CartKit的定义
Sub CreateCart()
If IsArray(Session("Cart")) = False Then
Dim aryCart(19,2)
Session("Cart") = aryCart
End If
End Sub

Function CheckCart()
If IsArray(Session("Cart")) Then
CheckCart = True
Else
CheckCart = False
End If
End Function

Function CheckItem(ID)
Dim aryCart
If CheckCart = True Then
aryCart = Session("Cart")
For i = LBound(aryCart) To UBound(aryCart)
If aryCart(i,0) = ID Then
CheckItem = True
Exit Function
ElseIf aryCart(i,0) <> ID Then
CheckItem = False
End If
Next
End If
End Function

Function RemoveItem(ID)
dim i,intPos,aryRemoveCart
aryCartRemove = Session("Cart")
For i = LBound(aryCart) To UBound(aryCart)
If aryCart(i,0) = ID Then
intPos = i
Exit For
End If
Next

For i = intPos To UBound(aryRemoveCart) - 1
If Not aryRemoveCart(i,0) = "" Then
aryRemoveCart(i,0) = aryRemoveCart(i+1,0)
aryRemoveCart(i,1) = aryRemoveCart(i+1,1)
aryRemoveCart(i,2) = aryRemoveCart(i+2,2)
End If
Next
Session("Cart") = aryRemoveCart
End Function

Function UpdateItem(ID,Num)
dim aryUpdateCart,i
aryUpdateCart = Session("Cart")
For i = LBound(aryUpdateCart) To UBound(aryUpdateCart)
If aryUpdateCart(i,0) = ID Then
aryUpdateCart(i,1) = Num
Session("Cart") = aryUpdateCart
End If
Next
End Function

Function AddItem(ID,Num)
Dim btnCartStatus,aryAddCart
btnCartStatus = CheckCart
If btnCartStatus = False Then
CreateCart
aryAddCart = Session("Cart")
aryAddCart (0,0) = ID
aryAddCart (0,1) = Num
Session ("Cart") = aryAddCart
Exit Function
ElseIf btnCartStatus = True Then
If CheckItem(ID) = True Then
UpdateItem ID,Num
ElseIf CheckItem(ID) = False Then
aryAddCart = Session("Cart")
For i = LBound(aryAddCart) To UBound(aryAddCart)
If aryAddCart(i,0) = "" Then
aryAddCart(i,0) = ID
aryAddCart(i,1) = Num
Session("Cart") = aryAddCart
Exit Function
End If
Next
End If
End If

End Function

End Class
%>