会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>用ASP设计购物推车
推荐给你的朋友阅读:

用ASP设计购物推车

来源:互联网 发表日期: 2006-05-01 00:17:30

    你一定去过超级市场吧。在那里你可以推着推车,将中意的商品放进推车,或者把推车里的商品取出来重新放到货架,最后你推着推车去结账。

    那么,在网上超市,客户也应该可以在浏览商品目录时,将中意的商品放进"电子推车"。电子推车是超级市场推车的电子化。在网上商店里,这种电子推车又称为"购物推车",英文是Shopping Cart。
    购物推车的设计目标

    从程序员的观点来看,购物推车是维护购物者商品选购、允许察看、允许修改的一个对象。购物推车本身是一个非常简单的程序,但开发者要考虑它将连接到商品目录子系统、订单子系统、客户账号子系统、站点管理子系统等等,形成功能完整的网上商店。

    下面是购物推车的设计目标:

    1、 持续性:购物推车应该从它的前一次会话中记住其内容。
    2、 购物推车和客户相关,而不是和客户的电脑相关。客户可以从另外的电脑或浏览器来访问购物推车。
    3、 当新的商品被加入推车或者从推车去掉时,推车的内容可以被显示给用户。
    4、 推车可以容纳很多甚至无限的商品。
    系统设计/流程设计

    在编写我们的购物推车之前,我们看看它的系统架构和流程。请看下图:

    如果客户从商品目录中选择了一件商品,这时我们传递客户的请求到proxy.asp,同时传递的是动作变量"增加商品"。Proxy.asp读取这个变量,并决定执行购物推车的哪个动作。这些动作包括:增加商品、更新商品数量、移除商品或者察看购物推车。

    有些动作被作为内部调用。如创建推车之前,我们需要检查推车是否已经存在(CheckCart)。在增加、删除或者更新商品及其数量时,我们要确认此商品是否已经存在于我们的购物推车之中(CheckItem)。下面我们将为购物推车设计8个方法,分别是:

    ViewItem 察看推车
    CheckCart 检查推车
    CreateCart 创建推车
    AddItem(ID, Qty), 增加商品
    RemoveItem(ID) 删除商品
    UpdateItem(ID, Qty), 更新数量
    RemoveAll 全部清空
    CheckItem(ID) 商品检查

    购物推车的设计

    购物推车需要三个要素:一个VBScript 5的类class CartKit,一个多维数组mudCart,一个session变量Session("Cart")。

    这个VBScript 类,我们称为CartKit,包含了8个方法,如上表所示。在本文我们只用了ID和Qty,分别表示商品编号和数量。

    这样我们就可以用一个二维数组来表达这个推车,象下面这样? br> 商品编号 商品数量

    ID-1 23
    ID-3 10
    ID-23 6
    ID-2 1

    然后我们把这个二维数组保存到session变量中就可以了。

    购物推车类CartKit的设计

    请下载:CartKit.asp

    CreateCart设计:

    请看程序代码:

    Class CartKit REM 开始类CartKit的定义
    Sub CreateCart()
     IF IsArray(Session("Cart")) = false THEN
      Dim mudCart(19,1)
      Session("Cart") = mudCart
     END IF
    End Sub
    其中:Session("Cart")保存的就是推车的内容。如果推车不存在,我们就定义一个二维数组mudCart来表达推车,并将它保存到session("Cart")中。

    CheckCart设计:

    本函数判断Cart是否已经创建。比较简单。
    Function CheckCart()
    IF IsArray(Session("Cart")) THEN
      CheckCart=True
     ELSE
      CheckCart=False
     END IF
    End Function

    CheckItem设计:

    请看代码:
    Function CheckItem(ID)
    IF CheckCart=True THEN
      varMudCart = Session("Cart")
      FOR i = LBound(varMudCart)TO UBound(varMudCart)
     IF varMudCart(i,0) = ID THEN
      CheckItem=TRUE
     Exit Function
     ELSEIF varMudCart(i,0) $#@60;$#@62; ID THEN
      CheckItem=FALSE
     END IF
      NEXT
     END IF
    End Function

    首先判断推车是否存在。然后将商品的编号ID和购物推车中的商品编号逐一比较。如果有相等的,返回真。否则为假。

    

1 2 下一页

0
0
[作者:不详 关键词:购物车 录入:raincity 责编:raincity 阅读次数:9699]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:109.38ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]