购物车范例（购物车页面 ）
-
<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
'id_type=request("id_type")
obj=request("obj") '用做检测是否是正常购买后的进入购物车取obj参数
rid=session("id") '取出会员id
dim x,i
dim obj_bag,bag_item,cart
'obj_bag ----购物车
'bag_item ----商品的信息数据集合
'cart ----一件商品的信息数据集合
dim p_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 ----合计金额
dim id1
if obj="1" then obj为1说明由菜单栏点击进入的
if not isobject(Session("Bag")) then 如果Session("Bag")不是对象，说明购物车为空
response.write ""
response.end
else
set obj_bag=Session("Bag") 若购物车不为空，将它赋给对象obj_bag
end if
else
if isobject(Session("Bag")) then 若不是菜单栏点击进入的，则将购物车信息赋给对象obj_bag
set obj_bag=Session("Bag")
else 若购物车为空，说明购物车内没有商品，则返回首页
response.write ""
response.end
end if
end if
'response.write ""
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'判断单击的是购物车页面下方的哪一个按钮
''''''''''''''''''''''''''''''''''''''''
select case request("action") 取得按钮信息
如果选择刷新则重新计算商品的价值及总价
将当前信息计算写入购物车并显示购物车
case "refresh" 若为刷新
for each cart in obj_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)
if request("checkBox_" & p_id)<>"" then 取得取消单选框的值，如果不为空，即打钩
if obj_bag.Exists(p_name) then 如果商品已存在删除该商品
obj_bag.remove(p_name)
end if
else
p_num=trim(request("quantity"&p_name)) 若没有该操作，写入购物车
if ((not IsNumeric(p_num)) or (p_num<="0") or (instr(1,p_num,".")<>0)) then
p_num=1
end if
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 & "
"
end if
next
set Session("Bag")=obj_bag 将obj_bag对象里的信息，写入Session("Bag")
如果选择去收银台则准备开始接收付款
将当前信息写入购物车并转向收银程序
case "check" 按钮为购买的时候
for each cart in obj_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)
if request("checkBox_" & p_id)="" then 如果取消单选框为空，取id1的值
id1=p_id & "," & id1 将他们有逗号形式连接
end if
next
id1=left(id1,len(id1)-1)
shopping_id=request("id")
set obj_bag=session("bag")
set session("obj_bag")=obj_bag
call insertDB(id1) 调用函数
end select
%>
'输出HTML
。。。。。。。。。（略）
相关视频
相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
- 文章评论
-
热门文章 没有查询到任何记录。
最新文章
迅雷新手完全入门手册
asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法
人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码
查看所有0条评论>>