仓酷云

标题: ASP网页设计实例代码剖析：用ASP计划购物推车 [打印本页]

作者: 精灵巫婆 时间: 2015-1-16 22:20
标题: ASP网页设计实例代码剖析：用ASP计划购物推车
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；计划　　甚么是购物推车？
　　你必定往过超等市场吧。在那边你能够推着推车，将中意的商品放进推车，大概把推车里的商品掏出来从头放到货架，最初你推着推车往结账。
　　那末，在网上超市，客户也应当能够在扫瞄商品目次时，将中意的商品放进"电子推车"。电子推车是超等市场推车的电子化。在网上商铺里，这类电子推车又称为"购物推车"，英文是ShoppingCart。

　　购物推车的计划方针
　　从程序员的概念来看，购物推车是保护购物者商品选购、同意观察、同意修正的一个工具。购物推车自己是一个十分复杂的程序，但开辟者要思索它将毗连到商品目次子体系、定单子体系、客户账号子体系、站点办理子体系等等，构成功效完全的网上商铺。

　　上面是购物推车的计划方针：
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)商品反省

　　购物推车的计划
　　购物推车必要三个要素：一个VBScript5的类classCartKit，一个多维数组mudCart，一个session变量Session("Cart")。
　　这个VBScript类，我们称为CartKit，包括了8个办法，如上表所示。在本文我们只用了ID和Qty，分离暗示商品编号和数目。
　　如许我们就能够用一个二维数组来表达这个推车，象上面如许：
商品编号商品数目
ID-123
ID-310
ID-236
ID-21
然后我们把这个二维数组保留到session变量中就能够了。
购物推车类CartKit的计划
请下载：CartKit.asp

CreateCart计划：
请看程序代码：
ClassCartKit
REM入手下手类CartKit的界说
SubCreateCart()
　IFIsArray(Session("Cart"))=falseTHEN
　　DimmudCart(19,1)
　　Session("Cart")=mudCart
　ENDIF
EndSub
个中：Session("Cart")保留的就是推车的内容。假如推车不存在，我们就界说一个二维数组mudCart来表达推车，并将它保留到session("Cart")中。

CheckCart计划：
本函数判别Cart是不是已创立。对照复杂。
FunctionCheckCart()
IFIsArray(Session("Cart"))THEN
　　CheckCart=True
　ELSE
　　CheckCart=False
　ENDIF
EndFunction

CheckItem计划：
请看代码：
FunctionCheckItem(ID)
IFCheckCart=TrueTHEN
　　varMudCart=Session("Cart")
　　FORi=LBound(varMudCart)TOUBound(varMudCart)
　IFvarMudCart(i,0)=IDTHEN
　　CheckItem=TRUE
　ExitFunction
　ELSEIFvarMudCart(i,0)IDTHEN
　　CheckItem=FALSE
　ENDIF
　　NEXT
　ENDIF
EndFunction
起首判别推车是不是存在。然后将商品的编号ID和购物推车中的商品编号一一对照。假如有相称的，前往真。不然为假。

AddItem(ID,Qty)计划：
请参考本文的附件CartKit.asp，这里先容的函数我们把它们封装到一个名为CartKit的class中。上面的代码段起首创立了一个CartKit工具，然后反省推车是不是已存在。假如不存在，就创立推车并新增商品；不然，反省商品编号是不是已存在于Cart中。假如是，就更新数目；不然，新增商品。
FunctionAddItem(ID,Qty)
SetCartObj=NewCartKit
varCartStatus=CartObj.CheckCart
　IFvarCartStatus=falseTHEN
　　CartObj.CreateCart
　　mudCart=Session("Cart")
　　mudCart(0,0)=ID
　　mudCart(0,1)=Qty
　　Session("Cart")=mudCart
　　　ExitFunction
　ELSEIFvarCartStatus=trueTHEN
　IFCartObj.CheckItem(ID)=trueTHEN
　　CartObj.UpdateItemID,Qty
　ELSEIFcartObj.CheckItem(ID)=falseTHEN
　　mudCart=Session("Cart")
　FORi=LBound(mudCart)TOUBound(mudCart)
　IFmudCart(i,0)=""THEN
　　mudCart(i,0)=ID
　　mudCart(i,1)=Qty
　　Session("Cart")=mudCart
　ExitFunction
　ENDIF
　NEXT
　ENDIF
　ENDIF
EndFunction
UpdateItem计划：
FunctionUpdateItem(ID,Qty)
mudCart=Session("Cart")

　FORi=LBound(mudCart)TOUBound(mudCart)
　　IFmudCart(i,0)=IDTHEN
　　　mudCart(i,1)=Qty
　　　Session("cart")=mudCart
　　　ExitFunction
　　ENDIF
　NEXT
EndFunction
ViewItem计划：
FunctionViewItem()
mudCart=Session("Cart")
IFisArray(mudCart)THEN
%>
ItemName
ItemQuantity
<%
Response.Write"ItemID:"&mudCart(i,0)&"<--"
Response.Write"
"
Response.Write"ItemQty:"&mudCart(i,1)&"<--"
Response.Write"
"
ENDIF
NEXT
ELSEIFisArray(mudCart)=FalseTHEN
Response.Write"Noiteminyourcart!"
Response.Write"
"
Response.Write"Ydon’tyoudoshop!"
ENDIF
EndFunction
RemoveItem(ID)计划：
FunctionRemoveItem(ID)
mudCart=Session("Cart")
’FindthePostion/IndexofgivenID.
Fori=LBound(mudCart)TOUbound(mudCart)
　IFmudCart(i,0)=IDTHEN
　　Pos=i
　ExitFor
ENDIF
Next
’DeleteProcess...
　FORi=PosTOUBound(mudCart)-1
　　IFNotmudCart(i,0)=""THEN
　　mudCart(i,0)=mudCart(i+1,0)
　ENDIF
　Next
　EndFunction
EndClassREM停止类CartKit的界说

CartKit.asp
------创建一辆购物车-----
ClassCartKit

SubCreateCart()
　IfIsArray(Session("Cart"))=falseThen
　　　DimmudCart(19,1)
　　　Session("Cart")=mudCart
　EndIf
EndSub

DimmyArray(3,1)
ReDimPreservemyArray(3,2)
DimmyArrayID(1),myArrayQty(1)
FunctionAddItem(ID,Qty)
　SetCartObj=NewCartKit
　varCartStatus=CartObj.CheckCart
　IfvarCartStatus=falseThen
　　　CartObj.CreateCart
　　　mudCart=Session("Cart")
　　　mudCart(0,0)=ID
　　　mudCart(0,1)=Qty
　　　Session("Cart")=mudCart
　　　ExitFunction
　ElseIfvarCartStatus=trueThen
　　　IfCartObj.CheckItem(ID)=trueThen
　　　　CartObj.UpdateItemID,Qty
　　　ElseifcartObj.CheckItem(ID)=falseThen
　　　　mudCart=Session("Cart")
　　　　Fori=LBound(mudCart)TOUBound(mudCart)
　　　　IfmudCart(i,0)=""Then
　　　　　　mudCart(i,0)=ID
　　　　　　mudCart(i,1)=Qty
　　　　　　Session("Cart")=mudCart
　　　　　　ExitFunction
　　　　EndIf
　　　Next
　　　EndIf
　EndIf
EndFunction

FunctionRemoveItem(ID)
　mudCart=Session("Cart")
　Fori=LBound(mudCart)TOUbound(mduCart)
　　　IfmyArray(i,0)=IDThen
　　　　Pos=i
　　　　ExitFor
　　　EndIf
　Next

　Fori=PosTOUBound(myArray)-1
　　　IfNotmyArray(i,0)=""Then
　　　　myArray(i,0)=myArray(i+1,0)
　　　　myArray(i,1)=myArray(i+1,1)

　　　EndIf
　Next
EndFunction

RoleofProxy.asp
varAction=CStr(Request.QueryString("ac"))
SetmudCartObj=NewCartKit
varID=CStr(Request.Form("ID"))
varQty=Request.QueryString("qty")

IfvarAction="by"Then
　mudCartObj.AddItemvarID,varQty
　ElseIfvarAction="rm"Then
　mudCartObj.RemoveItemvarID
　ElseIfvarAction="up"Then
　mudCartObj.UpdateItemvarID,varQty
　ElseIfvarAction="ra"Then
　mudCartObj.RemoveAll
　ElseIfvarAction="co"Then
　MudcartObj.CheckOut
　ElseIfvarAction="cs"Then
　MudcartObj.ContinueShopping
EndIf

FunctionCartStatus()
　varTotalItems=0
　SetCartObj=NewCartKit
　IfCartObj.CheckCart=trueThen
　　　MudCart=Session("Cart")
　　　VarTotalItem=0
　　　Fori=Lbound(mudCart)TOUbound(mudCart)
　　　IfmudCart(i,0)""Then
　　　　varTotalItem=varTotalItem+Cint(mudCart(i,1))
　　　EndIf
　　　Next
　　　ElseIfCartObj.CheckCart=FalseThen
　　　varTotalItem="0"
　EndIf
　CartStatus=varTotalItemEndFunction
　SetCartObj=Nothing
EndFunction

<%="Youhave"&Response.WriteCartObj.CartStatus&_
　"items(s)inyourcart"%>asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

作者: 因胸联盟 时间: 2015-1-18 15:44
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 山那边是海 时间: 2015-1-22 07:58
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

作者: 第二个灵魂 时间: 2015-1-30 23:55
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 柔情似水 时间: 2015-2-6 17:23
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 灵魂腐蚀 时间: 2015-2-17 15:34
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 小女巫 时间: 2015-3-5 20:38
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

作者: 深爱那片海 时间: 2015-3-12 14:54
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 飘灵儿 时间: 2015-3-19 23:06
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

欢迎光临仓酷云 (http://ckuyun.com/)