文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
asp中有关字符编码转换的几个函数
绝妙的asp生成静态页面html函数
Asp计算页面执行时间
一个简单的用存储过程分页
将asp页面转换成htm页面
ASP网站漏洞解析及黑客入侵防范方法
URL编码与SQL注入
几种常用排序算法(asp)
ASP调用带参数存储过程的几种方式
实用的ASP连接数据库的函数
ASP如何获取真实IP地址
ASP中怎么实现SQL数据库备份、恢复
判断Cookies是否处于开启状态
怎样才能将服务器端文件夹下的文件,..
几行Asp代码实现防止表单重复提交
用ASP设计网站在线人数统计程序
asp论坛在线人数统计研究
如何用ASP远程在数据库中创建Table
用ASP调用SQL Server的视图和存储过程
Asp与XML的关系
ASP读取EXCEL
在ASP中使用Oracle数据库技巧
一个通过web.Mail发送邮件的类
几种打开记录集方式的比较
购物车范例(购物车页面 )
如何使用FSO搜索硬盘文件
GB码和BIG5码的互换技术
用ASP开发WEB日期选择器
一个投票系统的源程序(coveryourasp.c..
列出服务器上的打印机


技术教程 -> ASP教程 ->  
购物车范例(购物车页面 )
来源:转载   人气:1899   录入时间:2007-11-8
    <!--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
   。。。。。。。。。(略)
   
   




Copyright(C)2007-2024 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987