首页 | 免费域名 | 个人服务器 | 一流信息监控拦截系统 | 虚拟主机知识库 | ASP 空间 | ASP技术大全 | 下载中心 | 客户服务中心
  7i24 > ASP技术大全 > 代码乐园 >
    7i24 .Com  
  建立一个小型的购物车程序

7i24.Com不停为您服务
建立一个小型的购物车程序

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

<%="You have " & Response.Write CartObj.CartStatus & _
 " items(s) in your cart"%>

具体请参教导考http://www.asptoday.com/articles/20000512.htm



  2002年1月9日  阅读 1586 次  发送此页给朋友  来源:    版权争议  删除

相关文章:   近期热点:

上一篇: 制作购物车程序!
下一篇: 多层回复的基于 ASP 的留言板(一)
返回上一层...
搜索:

(C)2004-2022 7i24.Com 保留所有权利