ASP网页编程之购物车典范（购物车页面 ）

ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。<!--checkbag.asp-->

<!--shoppingcartpage-->

<%
response.expires=0
response.expiresabsolute=Now()-1
response.addHeader"pragma","no-cache"
response.addHeader"cache-control","private"
Response.CacheControl="no-cache"
%>

<!--#includefile="conn.asp"-->
<!--#includefile="char.inc"-->

<%
id_type=request("id_type")
obj=request("obj")用做检测是不是是一般购置后的进进购物车取obj参数
rid=session("id")掏出会员id
dimx,i
dimobj_bag,bag_item,cart
obj_bag----购物车
bag_item----商品的信息数据汇合
cart----一件商品的信息数据汇合
dimp_id,p_name,p_price,p_manu,p_type,p_size,p_color,p_num,p_total,sum
p_id----商品id号
p_name----商品称号
p_price----代价
p_manu----打造商
p_type----商品式样
p_size----尺寸
p_color----色彩
p_num----数目
p_total----小计
sum----算计金额

dimid1

ifobj="1"thenobj为1申明由菜单栏点击进进的
ifnotisobject(Session("Bag"))then假如Session("Bag")不是工具，申明购物车为空
response.write"<scriptlanguage=""javascript"">"
response.write"alert(""购物车为空!"");"&chr(13)
response.write"window.location=index.asp"
response.write"</script>"
response.end
else
setobj_bag=Session("Bag")若购物车不为空，将它赋给工具obj_bag
endif
else
ifisobject(Session("Bag"))then若不是菜单栏点击进进的，则将购物车信息赋给工具obj_bag

setobj_bag=Session("Bag")
else若购物车为空，申明购物车内没有商品，则前往首页
response.write"<scriptlanguage=""javascript"">"
response.write"alert(""T购物车为空!"");"&chr(13)
response.write"window.location=index.asp"
response.write"</script>"
response.end
endif
endif
response.write"<script>alert("""&isobject(obj_bag)&""")</script>"


判别单击的是购物车页面下方的哪个按钮


selectcaserequest("action")获得按钮信息
假如选择革新则从头盘算商品的代价及总价
将以后信息盘算写进购物车并显现购物车
case"refresh"若为革新
foreachcartinobj_bag.items
p_name=cart(0)将购物车中的信息数据汇合分离赋值给变量
p_manu=cart(1)
p_type=cart(2)
p_size=cart(3)
p_color=cart(4)
p_price=cart(5)
p_num=cart(6)
p_id=cart(7)

ifrequest("checkBox_"&p_id)""then获得作废单选框的值，假如不为空，即打钩
ifobj_bag.Exists(p_name)then假如商品已存在删除该商品
obj_bag.remove(p_name)
endif
else
p_num=trim(request("quantity"&p_name))若没有该操纵，写进购物车
if((notIsNumeric(p_num))or(p_num<="0")or(instr(1,p_num,".")0))then
p_num=1
endif
bag_item=array(p_name,p_manu,p_type,p_size,p_color,p_price,p_num,p_id)
response.write"p_num="&p_num&"<br>"
endif
next
setSession("Bag")=obj_bag将obj_bag工具里的信息，写进Session("Bag")

假如选择往收银台则筹办入手下手吸收付款
将以后信息写进购物车并转向收银程序
case"check"按钮为购置的时分
foreachcartinobj_bag.items轮回cart将其一切信息都赋给变量
p_name=cart(0)
p_manu=cart(1)
p_type=cart(2)
p_size=cart(3)
p_color=cart(4)
p_price=cart(5)
p_num=cart(6)
p_id=cart(7)

ifrequest("checkBox_"&p_id)=""then假如作废单选框为空，取id1的值
id1=p_id&","&id1将他们有逗号情势毗连
endif
next
id1=left(id1,len(id1)-1)
shopping_id=request("id")
setobj_bag=session("bag")
setsession("obj_bag")=obj_bag
callinsertDB(id1)挪用函数
endselect
%>
输入HTML
。。。。。。。。。（略）
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

不能只是将它停留在纸上谈兵的程度上。

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