 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--checkbag.asp--> <!--shoppingcart page--> <% response.expires = 0 response.expiresabsolute = Now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.CacheControl = "no-cache" %> <!--#include file= "conn.asp"--> <!--#include file= "char.inc"--> <% \\\'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 "<script language=""javascript"">" response.write"alert(""购物车为空!"");" & chr(13) response.write "window.location=\\\'index.asp\\\'" response.write "</script>" 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 "<script language=""javascript"">" response.write"alert(""T购物车为空!"");" & chr(13) response.write "window.location=\\\'index.asp\\\'" response.write "</script>" response.end end if end if \\\'response.write "<script>alert("""& isobject(obj_bag) &""")</script>" \\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\' \\\'判定单击的是购物车页面下方的哪一个按钮 \\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\' 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 & "<br>" 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 。。。。。。。。。（略） 返回类别: 教程 上一教程: 通过ADODB.STREAM取得图像(BMP JPG PNG GIF SWF)的高度和宽度 下一教程: 用模板建立动态ASP页 您可以阅读与"购物车范例(购物车页面 )"相关的教程: · 购物车范例(处理页面) · ASPHTTP使用范例-远程读取别人的页面，并自动写入库 · 在电子商务中实现购物车的方式 · 简朴购物车教程 · 购物车中数据的存放方法 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
