当前位置: 首页 > news >正文 asp 购物车类 news 来源:原创 2024/5/14 0:33:39 <% '购物车类 类名:UserCart '作者:gameing '基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格. '1、2008-11-25修改Function AddItem() by tommy 商品增加在最后 '2、2008-11-25修改by tommy 增加删除商品过程 Sub DelItem() '3、2008-11-25转换一些数据类型才能运算 '========================== Class UserCart '建立购物车 Sub CreateCart() Dim CFlag dim mCart(6,0) CFlag=CheckCart() if CFlag=false then For iCount =LBound(mCart,2) to UBound(mCart,2) mCart(0,iCount)="" next Session("UserCart")=mCart end if End Sub '检查购物车 Public Function CheckCart() IF IsArray(Session("UserCart")) THEN CheckCart = true ELSE CheckCart = false END IF End Function '检查购物车是否为空 Function CheckEmtpy() dim mCart mCart=Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)<>"" then CheckEmtpy=false Exit Function end if next CheckEmtpy=True End Function '添加商品 Function AddItem(aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage) '2008-12-25改进 by tommy 商品增加在最后 dim mCart AddItem=false if CheckItem(aID)=false then '无此商品 mCart=Session("UserCart") i =UBound(mCart,2) i=i+1 Redim preserve mCart(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 ModifItem aID,aCount,0 AddItem=True End if End Function '删除商品数量 Sub DelItem(mID) '改进2008-12-25by tommy 增加删除商品过程 dim mCart response.Write(mID) mCart = Session("UserCart") mount=UBound(mCart,2) If mID=mount Then mount=mount-1 mCart(0,mount+1)="" ReDim Preserve mCart(6,mount) Else mount=mount-1 For i=mID To mount For j=0 To 6 mCart(j,i)=mCart(j,i+1) Next Next mCart(0,mount+1)="" ReDim Preserve mCart(6,mount) End If session("UserCart")=mCart End Sub '修改商品数量 Sub ModifItem(mID,mCount,mFlag) 'mFlag-标志 0-添加 1-删除,2-修改 3-清空 'mID-商品ID 'mCount-修改商品的数量 dim mCart mCart = Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)=mID then select case mFlag case 1 mCart(0,i)=Int(mCart(5,i))-Int(mCount) case 0 mCart(5,i)= Int(mCart(5,i))+Int(mCount) case 2 if mCount=0 then mCart(5,i)=0 mCart(0,i)="" else mCart(5,i)=mCount end if case 3 mCart(5,i)=0 mCart(0,i)="" end select session("UserCart")=mCart exit Sub end if next End Sub '查看推车 Function ViewCart() dim mCart mCart=session("UserCart") ViewCart=mCart End Function '检查商品 Function CheckItem(cID) dim mCart mCart =Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)=cID then CheckItem=True exit Function end if next CheckItem=false End Function '清空购物车 Sub RemoveAll() dim mCart mCart = Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) mCart(0,i)="" next Session("UserCart")=mCart End Sub '商品总价值 Function TPrice() dim mCart,i dim OutPrice(3) mCart=session("UserCart") for i=LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)<>"" then Outprice(0) = Int(Outprice(0)) + Int(mCart(2,i))*Int(mCart(5,i)) Outprice(1) = Int(Outprice(1)) + Int(mCart(3,i))*Int(mCart(5,i)) Outprice(2) = Int(Outprice(2)) + Int(mCart(4,i))*Int(mCart(5,i)) Outprice(3) = Int(OutPrice(3)) + Int(mCart(5,i)) end if next TPrice=OutPrice End Function End Class %> 相关文章: 用js改变css样式 js设置控件的readonly和enabled属性问题 sql内置函数 sql CHARINDEX JS去空格 js验证 服务器端控件三种ID:ID,ClientID和UniqueID IIS 无权查看网页 HTTP 错误 401.2 - 未授权:服务器配置导致登录失败解决方法 access常用函数 access IIf函数 asp输出双引号 asp Jmail发邮件类 asp一些支付接口 Javascript中最常用的55个经典技巧 让Div浮动层浮在Flash上面下去 JS 中的深拷贝与浅拷贝 AzureCon上微软宣布了哪些容器相关的重磅消息 eclipse(luna)创建web工程 Java Agent 学习笔记 Java超时控制的实现 miniui datagrid 的客户端分页解决方案 - CS结合 node 版本过低 SwizzleMethod 黑魔法 vue脚手架vue-cli 笨办法学C 练习34:动态数组 计算机常识 - 收藏集 - 掘金 力扣(LeetCode)357 如何优雅地使用 Sublime Text 什么是Javascript函数节流? 学习笔记DL002:AI、机器学习、表示学习、深度学习,第一次大衰退 UI设计初学者应该如何入门? 软考-高级-系统架构设计师教程(清华第2版)【第9章 软件可靠性基础知识(P320~344)-思维导图】 #100天计划# 2013年9月29日 (1)(1.13) SiK无线电高级配置(六) (13)Hive调优——动态分区导致的小文件问题 (20050108)又读《平凡的世界》 (2009.11版)《网络管理员考试 考前冲刺预测卷及考点解析》复习重点 (二)构建dubbo分布式平台-平台功能导图 (附源码)计算机毕业设计SSM基于健身房管理系统 (转)JVM内存分配 -Xms128m -Xmx512m -XX:PermSize=128m -XX:MaxPermSize=512m (转)微软牛津计划介绍——屌爆了的自然数据处理解决方案(人脸/语音识别,计算机视觉与语言理解)... ***检测工具之RKHunter AIDE .“空心村”成因分析及解决对策122344 .NET CF命令行调试器MDbg入门(二) 设备模拟器 .NET CLR基本术语 .NET 中创建支持集合初始化器的类型 .Net通用分页类(存储过程分页版,可以选择页码的显示样式,且有中英选择) .NET中 MVC 工厂模式浅析 @Bean注解详解 @vue/cli脚手架 [2023年]-hadoop面试真题(一) [codevs 1296] 营业额统计 [emuch.net]MatrixComputations(7-12) [IE编程] IE中使网页元素进入编辑模式 [Invalid postback or callback argument]昨晚调试程序时出现的问题,MARK一下
<% '购物车类 类名:UserCart '作者:gameing '基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格. '1、2008-11-25修改Function AddItem() by tommy 商品增加在最后 '2、2008-11-25修改by tommy 增加删除商品过程 Sub DelItem() '3、2008-11-25转换一些数据类型才能运算 '========================== Class UserCart '建立购物车 Sub CreateCart() Dim CFlag dim mCart(6,0) CFlag=CheckCart() if CFlag=false then For iCount =LBound(mCart,2) to UBound(mCart,2) mCart(0,iCount)="" next Session("UserCart")=mCart end if End Sub '检查购物车 Public Function CheckCart() IF IsArray(Session("UserCart")) THEN CheckCart = true ELSE CheckCart = false END IF End Function '检查购物车是否为空 Function CheckEmtpy() dim mCart mCart=Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)<>"" then CheckEmtpy=false Exit Function end if next CheckEmtpy=True End Function '添加商品 Function AddItem(aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage) '2008-12-25改进 by tommy 商品增加在最后 dim mCart AddItem=false if CheckItem(aID)=false then '无此商品 mCart=Session("UserCart") i =UBound(mCart,2) i=i+1 Redim preserve mCart(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 ModifItem aID,aCount,0 AddItem=True End if End Function '删除商品数量 Sub DelItem(mID) '改进2008-12-25by tommy 增加删除商品过程 dim mCart response.Write(mID) mCart = Session("UserCart") mount=UBound(mCart,2) If mID=mount Then mount=mount-1 mCart(0,mount+1)="" ReDim Preserve mCart(6,mount) Else mount=mount-1 For i=mID To mount For j=0 To 6 mCart(j,i)=mCart(j,i+1) Next Next mCart(0,mount+1)="" ReDim Preserve mCart(6,mount) End If session("UserCart")=mCart End Sub '修改商品数量 Sub ModifItem(mID,mCount,mFlag) 'mFlag-标志 0-添加 1-删除,2-修改 3-清空 'mID-商品ID 'mCount-修改商品的数量 dim mCart mCart = Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)=mID then select case mFlag case 1 mCart(0,i)=Int(mCart(5,i))-Int(mCount) case 0 mCart(5,i)= Int(mCart(5,i))+Int(mCount) case 2 if mCount=0 then mCart(5,i)=0 mCart(0,i)="" else mCart(5,i)=mCount end if case 3 mCart(5,i)=0 mCart(0,i)="" end select session("UserCart")=mCart exit Sub end if next End Sub '查看推车 Function ViewCart() dim mCart mCart=session("UserCart") ViewCart=mCart End Function '检查商品 Function CheckItem(cID) dim mCart mCart =Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)=cID then CheckItem=True exit Function end if next CheckItem=false End Function '清空购物车 Sub RemoveAll() dim mCart mCart = Session("UserCart") For i =LBound(mCart,2) to UBound(mCart,2) mCart(0,i)="" next Session("UserCart")=mCart End Sub '商品总价值 Function TPrice() dim mCart,i dim OutPrice(3) mCart=session("UserCart") for i=LBound(mCart,2) to UBound(mCart,2) if mCart(0,i)<>"" then Outprice(0) = Int(Outprice(0)) + Int(mCart(2,i))*Int(mCart(5,i)) Outprice(1) = Int(Outprice(1)) + Int(mCart(3,i))*Int(mCart(5,i)) Outprice(2) = Int(Outprice(2)) + Int(mCart(4,i))*Int(mCart(5,i)) Outprice(3) = Int(OutPrice(3)) + Int(mCart(5,i)) end if next TPrice=OutPrice End Function End Class %>