Dim dictCart ' as dictionary : cái này là cart
Dim sAction ' as string : cái này nhận action : remove, add, order ...
Dim iItemID ' as integer : ID của sản phẩm
Dim iItemCount ' as integer : số lượng
' Get a reference to the cart if it exists otherwise create it
If IsObject(Session("cart")) Then
Set dictCart = Session("cart")
Else
' We use a dictionary so we can name our keys to correspond to our
' item numbers and then use their value to hold the quantity. An
' array would also work, but would be a little more complex and
' probably not as easy for readers to follow.
Set dictCart = Server.CreateObject("Scripting.Dictionary")
End If
' Get all the parameters passed to the script
sAction = CStr(Request.QueryString("action"))
iItemID = CInt(Request.QueryString("item"))
iItemCount = CInt(Request.QueryString("count"))

Sub AddItemToCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
dictCart(iItemID) = dictCart(iItemID) + iItemCount
Else
dictCart.Add iItemID, iItemCount
End If
Response.Write iItemCount & " of item # " & iItemID & " have been added to your cart.<BR><BR>" & vbCrLf
End Sub

Sub RemoveItemFromCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
If dictCart(iItemID) <= iItemCount Then
dictCart.Remove iItemID
Else
dictCart(iItemID) = dictCart(iItemID) - iItemCount
End If
Response.Write iItemCount & " of item # " & iItemID & " have been removed from your cart.<BR><BR>" & vbCrLf
Else
Response.Write "Couldn't find any of that item your cart.<BR><BR>" & vbCrLf
End If
End Sub

Function GetItemParameters(iItemID)
Dim aParameters : cái này là 1 mảng để lưu từng thông tin của sản phẩm
'Các bạn viết code lấy thông tin sản phẩm và đưa vào mảng kiểu ví dụ sau
aParameters = Array(recordSet("tensanpham"),recordSet("gia"), recordSet("ảnh") )
End Select
GetItemParameters = aParameters
End Function

<%
For Each Key in dictCart
aParameters = GetItemParameters(Key)
%>
<%= aParameters(1) %>
<%= aParameters(2) %>
<%
Next
%>