仓酷云
标题:
ASP网站制作之购物车典范(处置页面)
[打印本页]
作者:
活着的死人
时间:
2015-1-16 22:30
标题:
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程序的所有功能,如计数器、留言簿、公告板、聊天室等等。
作者:
小魔女
时间:
2015-1-19 05:46
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
作者:
金色的骷髅
时间:
2015-1-24 07:30
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
作者:
蒙在股里
时间:
2015-1-31 22:06
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
作者:
谁可相欹
时间:
2015-2-7 00:26
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
作者:
admin
时间:
2015-2-19 04:37
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
作者:
小女巫
时间:
2015-3-6 13:05
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
作者:
小妖女
时间:
2015-3-13 01:08
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
作者:
海妖
时间:
2015-3-13 01:08
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
作者:
冷月葬花魂
时间:
2015-3-20 08:40
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
欢迎光临 仓酷云 (http://ckuyun.com/)
Powered by Discuz! X3.2