session购物车.docx
- 文档编号:2919916
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:10
- 大小:18.27KB
session购物车.docx
《session购物车.docx》由会员分享,可在线阅读,更多相关《session购物车.docx(10页珍藏版)》请在冰豆网上搜索。
session购物车
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
EndSub
'检查购物车
PublicFunctionCheckCart()
IFIsArray(Session("UserCart"))THEN
CheckCart=true
ELSE
CheckCart=false
ENDIF
EndFunction
'检查购物车是否为空
FunctionCheckEmtpy()
dimmCart
mCart=Session("UserCart")
Fori=LBound(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
AddItem=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)=aPrice1
mCart(3,i)=aPrice2
mCart(4,i)=aPrice3
mCart(5,i)=aCount
mCart(6,i)=aImage
session("UserCart")=mCart
AddItem=true
exitFunction
endif
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("UserCart")=mCart
AddItem=True
Else
'有此商品,则商品数目+1
ModifItemaID,aCount,0
AddItem=True
Endif
EndFunction
'修改商品数目
SubModifItem(mID,mCount,mFlag)
'mFlag-标志0-添加1-删除,2-修改3-清空
'mID-商品ID
'mCount-修改商品的数目
dimmCart
mCart=Session("UserCart")
Fori=LBound(mCart,2)toUBound(mCart,2)
ifmCart(0,i)=mIDthen
selectcasemFlag
case1
mCart(5,i)=mCart(5,i)-mCount
case0
mCart(5,i)=mCart(5,i)+mCount
case2
ifmCount=0then
mCart(5,i)=0
mCart(0,i)=""
else
mCart(5,i)=mCount
endif
case3
mCart(5,i)=0
mCart(0,i)=""
endselect
session("UserCart")=mCart
exitSub
endif
next
EndSub
'查看推车
FunctionViewCart()
dimmCart
mCart=session("UserCart")
ViewCart=mCart
EndFunction
'检查商品
FunctionCheckItem(cID)
dimmCart
mCart=Session("UserCart")
Fori=LBound(mCart,2)toUBound(mCart,2)
ifmCart(0,i)=cIDthen
CheckItem=True
exitFunction
endif
next
CheckItem=false
EndFunction
'清空购物车
SubRemoveAll()
dimmCart
mCart=Session("UserCart")
Fori=LBound(mCart,2)toUBound(mCart,2)
mCart(0,i)=""
next
Session("UserCart")=mCart
EndSub
'商品总价值
FunctionTPrice()
dimmCart,i
dimOutPrice(3)
mCart=session("UserCart")
fori=LBound(mCart,2)toUBound(mCart,2)
ifmCart(0,i)<>""then
Outprice(0)=Outprice(0)+mCart(2,i)*mCart(5,i)
Outprice
(1)=Outprice
(1)+mCart(3,i)*mCart(5,i)
Outprice
(2)=Outprice
(2)+mCart(4,i)*mCart(5,i)
Outprice(3)=OutPrice(3)+mCart(5,i)
endif
next
TPrice=OutPrice
EndFunction
EndClass
'=================================================
'建立购物车对象,该对象用于直接在程序中调用
'=================================================
dimuCart
setuCart=newUserCart
uCart.CreateCart
%>
使用:
第1
'=================================================
'建立购物车对象,该对象用于直接在程序中调用
'=================================================
dimuCart
setuCart=newUserCart
第二
建立一个购物车
uCart.CreateCart (可以重复建立,由于里面有IsArray判定。
所以建议这句在建立购物车对象后必写)
第三
增加购物车里的商品,在客户端点了某产品后,服务器端处理的ASP文件中接受传过来的产品标志,并访问数据库。
分别把AddItem(aID产品标
志如ID,aName产品名称,aPrice1产品价格一,如单价,aPrice2产品价格二如会员价,aPrice3产品价格三如金牌会员价,假如没这么多可以
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- session 购物