转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
用ASP设计购物推车    热     ★★★★

用ASP设计购物推车

作者：闵涛 文章来源：闵涛的学习笔记 点击数：633 更新时间：2009/4/23 10:26:49
裁词枪何锿瞥担?
　　你一定去过超级市场吧。在那里你可以推着推车，将中意的商品放进推车，或者把推车里的商品取出来重新放到货架，最后你推着推车去结账。
　　那么，在网上超市，客户也应该可以在浏览商品目录时，将中意的商品放进"电子推车"。电子推车是超级市场推车的电子化。在网上商店里，这种电子推车又称为"购物推车"，英文是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和购物推车中的商品编号逐一比较。如果有相等的，返回真。否则为假。
AddItem(ID,Qty)设计：
请参考本文的附件CartKit.asp，这里介绍的函数我们把它们封装到一个名为CartKit的class中。下面的代码段首先创建了一个CartKit对象，然后检查推车是否已经存在。如果不存在，就创建推车并新增商品；否则，检查商品编号是否已经存在于Cart中。如果是，就更新数量；否则，新增商品。
Function AddItem(ID, Qty)
Set CartObj = New CartKit
varCartStatus = CartObj.CheckCart
　IF varCartStatus=false THEN
　　CartObj.CreateCart
　　mudCart=Session("Cart")
　　mudCart(0,0)=ID
　　mudCart(0,1)=Qty
　　Session("Cart")=mudCart
　　　Exit Function
　ELSEIF varCartStatus=true THEN
　IF CartObj.CheckItem(ID) = true THEN
　　CartObj.UpdateItem ID,Qty
　ELSEIF cartObj.CheckItem(ID) = false THEN
　　mudCart = Session("Cart")
　FOR i = LBound(mudCart) TO UBound(mudCart)
　IF mudCart(i,0) = "" THEN
　　mudCart(i,0) = ID
　　mudCart(i,1) = Qty
　　Session("Cart") = mudCart
　Exit Function
　END IF
　NEXT
　END IF
　END IF
End Function
UpdateItem设计：
Function UpdateItem(ID, Qty)
mudCart = Session("Cart")

　FOR i = LBound(mudCart) TO UBound(mudCart)
　　IF mudCart(i,0) = ID THEN
　　　mudCart(i,1) = Qty
　　　Session("cart")=mudCart
　　　Exit Function
　　END IF
　NEXT
End Function
ViewItem设计：
Function ViewItem()
mudCart=Session("Cart")
IF isArray(mudCart) THEN
%$#@62;
$#@60;table$#@62;
$#@60;tr$#@62;
$#@60;td$#@62;Item Name$#@60;/td$#@62;
$#@60;td$#@62;Item Quantity$#@60;/td$#@62;
$#@60;td$#@62;$#@60;/td$#@62;
$#@60;/tr$#@62;
$#@60;%
FOR i = LBound(mudCart) TO UBound(mudCart)
IF mudCart(i,0) $#@60;$#@62; "" THEN
%$#@62;
$#@60;tr$#@62;
$#@60;td$#@62;$#@60;%=%$#@62;$#@60;/td$#@62;
$#@60;%
Response.Write "Item ID: " & mudCart(i,0) & "$#@60;--"
Response.Write "$#@60;BR$#@62;"
Response.Write "Item Qty: " & mudCart(i,1) & "$#@60;--"
Response.Write "$#@60;BR$#@62;"
END IF
NEXT
ELSEIF isArray(mudCart) = False THEN
Response.Write "No item in your cart!"
Response.Write "$#@60;BR$#@62;"
Response.Write "Y don’t you do shop!"
END IF
End Function
RemoveItem(ID)设计：
Function RemoveItem(ID)
mudCart=Session("Cart")
’Find the Postion / Index of given ID.
For i = LBound(mudCart) TO Ubound(mudCart)
　IF mudCart(i,0) = ID THEN
　　Pos=i
　Exit For
END IF
Next
’Delete Process...
　FOR i = Pos TO UBound(mudCart) - 1
　　IF Not mudCart(i,0) = "" THEN
　　mudCart(i,0) = mudCart(i+1,0)
　END IF
　Next
　End Function
End Class REM 结束类CartKit的定义
proxy.asp的全部代码
请下载：proxy.asp
使用本文购物推车对象的一个例子
请下载：example.htm

本文全部代码下载：cart.zip


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台