资源描述：
《session购物车》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、ClassUserCart '建立购物车 SubCreateCart() DimCFlag dimmCart(6,0) CFlag=CheckCart() ifCFlag=falsethen ForiCount=LBound(mCart,2)toUBound(mCart,2) mCart(0,iCount)="" next Session("UserCart")=mCart endif E
2、ndSub '检查购物车 PublicFunctionCheckCart() IFIsArray(Session("UserCart"))THEN CheckCart=true ELSE CheckCart=false ENDIF EndFunction '检查购物车是否为空 FunctionCheckEmtpy() dimmCart mCart=Session("UserCart") Fori=LBoun
3、d(mCart,2)toUBound(mCart,2) ifmCart(0,i)<>""then CheckEmtpy=false ExitFunction endif next CheckEmtpy=True EndFunction '添加商品 FunctionAddItem(aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage) dimmCart A
4、ddItem=false ifCheckItem(aID)=falsethen '无此商品 mCart=Session("UserCart") Fori=LBound(mCart,2)toUBound(mCart,2) ifmCart(0,i)=""then mCart(0,i)=aID mCart(1,i)=aName mCart(2,i)=aPr
5、ice1 mCart(3,i)=aPrice2 mCart(4,i)=aPrice3 mCart(5,i)=aCount mCart(6,i)=aImage session("UserCart")=mCart AddItem=true exitFunction endif
6、 next i=i+1 RedimpreservemCart(6,i) mCart(0,i)=aID mCart(1,i)=aName mCart(2,i)=aPrice1 mCart(3,i)=aPrice2 mCart(4,i)=aPrice3 mCart(5,i)=aCount mCart(6,i)=aImage session("U
7、serCart")=mCart AddItem=True Else '有此商品,则商品数目+1 ModifItemaID,aCount,0 AddItem=True Endif EndFunction '修改商品数目 SubModifItem(mID,mCount,mFlag) 'mFlag－标志0－添加1－删除,2-修改3-清空 'mID-商品ID 'mCount
