session购物车Word格式文档下载.docx

session购物车Word格式文档下载.docx

《session购物车Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《session购物车Word格式文档下载.docx（10页珍藏版）》请在冰豆网上搜索。

"

next

Session（"

UserCart"

）=mCart

endif

EndSub

检查购物车

PublicFunctionCheckCart（）

IFIsArray（Session（"

））THEN

CheckCart=true

ELSE

CheckCart=false

ENDIF

EndFunction

检查购物车是否为空

FunctionCheckEmtpy（）

dimmCart

mCart=Session（"

）

Fori=LBound（mCart,2）toUBound（mCart,2）

ifmCart（0,i）<

>

then

CheckEmtpy=false

ExitFunction

endif

next

CheckEmtpy=True

添加商品

FunctionAddItem（aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage）

AddItem=false

ifCheckItem（aID）=falsethen

无此商品

ifmCart（0,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（"

AddItem=true

exitFunction

i=i+1

RedimpreservemCart（6,i）

AddItem=True

Else

有此商品,则商品数目+1

ModifItemaID,aCount,0

Endif

修改商品数目

SubModifItem（mID,mCount,mFlag）

mFlag－标志0－添加1－删除,2-修改3-清空

mID-商品ID

mCount－修改商品的数目

mCart=Session（"

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

case3

endselect

exitSub

查看推车

FunctionViewCart（）

mCart=session（"

ViewCart=mCart

检查商品

FunctionCheckItem（cID）

mCart=Session（"

ifmCart（0,i）=cIDthen

CheckItem=True

CheckItem=false

清空购物车

SubRemoveAll（）

EndSub

商品总价值

FunctionTPrice（）

dimmCart,i

dimOutPrice（3）

fori=LBound（mCart,2）toUBound（mCart,2）

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）

TPrice=OutPrice

EndClass

'

=================================================

建立购物车对象,该对象用于直接在程序中调用

dimuCart

setuCart=newUserCart

uCart.CreateCart

%>

使用：

第1

第二

建立一个购物车

uCart.CreateCart 

（可以重复建立，由于里面有IsArray判定。

所以建议这句在建立购物车对象后必写）

第三

增加购物车里的商品，在客户端点了某产品后，服务器端处理的ASP文件中接受传过来的产品标志，并访问数据库。

分别把AddItem（aID产品标

志如ID,aName产品名称,aPrice1产品价格一，如单价,aPrice2产品价格二如会员价,aPrice3产品价格三如金牌会员价，假如没这么多可以