ASP网站制作之购物车典范（处置页面）

由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；<!--put2bag.asp-->

<%@Language=VBScript%>
<%
id_type=request("id_type")

onerrorresumenext
Response.Buffer=true
Response.Expires=0
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_temp
p_id----商品id号
p_name----商品称号
p_price----原价单价
p_manu----商品打造商
p_type----商品式样
p_size----商品尺寸
p_color----商品色彩
p_num----商品数目
p_temp----一时寄存p_num


ifsession("login")=""then
response.write"<scriptlangue=""javascript"">"&chr(13)
response.write"alert(""请先登录"");"&chr(13)
response.write"history.go(-1);"&chr(13)
response.write"</script>"&chr(13)
else
初始化购物车内变量
p_id=trim(request("id"))
P_manu=trim(request("manu"))
p_type=trim(request("type"))
p_name=replace(trim(request("name1")),"","")
p_price=trim(request("price"))
p_size=trim(request("size"))
p_color=trim(request("color"))
p_num=trim(request("num"))

if((notIsNumeric(p_num))or(p_num<="0")or(instr(1,p_num,".")0))then
p_num=1‘假如商品数目小于0大概有小数点，取1
endif

ifp_name""then
假如有购物信息传进则筹办装如购物车
假如还没有购物车则新建dictionary工具

ifisobject(Session("Bag"))then假如有购物车则更新
response.write"isobject(Session(""Bag""))="&isobject(Session("Bag"))&"<br>"
setobj_bag=Session("Bag")
ifobj_bag.exists(p_name)then假如以后购物车中已有该商品
iferrthen
response.writeerr.description
err.clear
endif

response.writeisobject(obj_Bag)

p_temp=obj_bag.item(p_name)(6)将p_num的值寄存于p_temp中
response.write"p_num="&p_num&"<br>"
p_num=cint(p_num)+cint(p_temp)购置的商品数目累加

bag_item=array(p_name,p_manu,p_type,p_size,p_color,p_price,p_num,p_id)
obj_bag.item(p_name)=bag_item
else
bag_item=array(p_name,p_manu,p_type,p_size,p_color,p_price,p_num,p_id)
obj_bag.Addp_name,bag_item
endif

else没有购物车天生新的
setobj_bag=server.CreateObject("Scripting.Dictionary")
bag_item=array(p_name,p_manu,p_type,p_size,p_color,p_price,p_num,p_id)
response.writebag_item(0)
obj_bag.Addp_name,bag_item
endif
setSession("Bag")=obj_Bag更新购物车
endif

Response.Redirect("checkbag.asp?obj="&request("obj")&"")转向显现购物车页面
endif
%>
asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。