 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--put2bag.asp--> <%@ Language=VBScript %> <% \\\'id_type=request("id_type") on error resume next Response.Buffer = true Response.Expires = 0 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_temp \\\'p_id ----商品id号 \\\'p_name ----商品名称 \\\'p_price ----原价单价 \\\'p_manu ----商品制造商 \\\'p_type ----商品式样 \\\'p_size ----商品尺寸 \\\'p_color ----商品颜色 \\\'p_num ----商品数量 \\\'p_temp ----临时存放p_num if session("login")="" then response.write"<script langue=""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 ((not IsNumeric(p_num)) or (p_num<="0") or (instr(1,p_num,".")<>0)) then p_num=1 ‘假如商品数量小于0或者有小数点，取1 end if if p_name <>"" then \\\'假如有购物信息传入则预备装如购物车 \\\'假如还没有购物车则新建dictionary对象 if isobject(Session("Bag")) then \\\'假如有购物车则更新 \\\'response.write "isobject(Session(""Bag""))=" & isobject(Session("Bag")) & "<br>" set obj_bag=Session("Bag") if obj_bag.exists(p_name) then \\\'\\\'假如当前购物车中已有该商品 if err then response.write err.description err.clear end if \\\'response.write isobject(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.Add p_name,bag_item end if else \\\'没有购物车生成新的 set obj_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.write bag_item(0) obj_bag.Add p_name,bag_item end if set Session("Bag") = obj_Bag \\\'更新购物车 end if Response.Redirect ("checkbag.asp?obj="& request("obj") &"") \\\'转向显示购物车页面 end if %> 返回类别: 教程 上一教程: 在ASP中使用FSO组件生成HTML页面 下一教程: ASP操作EXCEL技术总结 您可以阅读与"购物车范例(处理页面)"相关的教程: · 购物车范例(购物车页面 ) · 购物车中数据的存放方法 · COOKIE的功能与购物车 · 在电子商务中实现购物车的方式 · 简朴购物车教程 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
