购物车范例(处理页面)
类别: ASP教程
<!--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
%>
<%@ 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
%>
- 上一篇: 购物车范例(购物车页面 )
- 下一篇: GB码和BIG5码的互换技术
-= 资 源 教 程 =-
文 章 搜 索