ASP简单购物车教程

2022-07-15 80酷酷网 80kuku.com

购物车|教程|购物车数据库字段
  表：pro_talbe：
  id 产品编号
  proname 产品名称
  simages 产品小图
  表o_rder:
  id 订单编号
  p_roid 产品编号
  m_um 产品数量
  d_time 订购时间
  表co_table:
  id 客户编号
  nn_ame 客户姓名
  tt_el 联系电话
  ee_m_ail 客户邮箱
  +++++++++++++++++++++++
  index.ASP源码
  +++++++++++++++++++++++

  <%LANGUAGE="VBSCRIPT"%>
  
  <%
  set Recordset1 = Server.CreateObject("ADODB.Recordset")
  Recordset1.ActiveConnection = MM_conn_STRING
  Recordset1.Source = "SELECT * FROM pro_table"
  Recordset1.CursorType = 0
  Recordset1.CursorLocation = 2
  Recordset1.LockType = 3
  Recordset1.Open()
  Recordset1_numRows = 0
  %>
  <%
  Dim Repeat1__numRows
  Repeat1__numRows = -1
  Dim Repeat1__index
  Repeat1__index = 0
  Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
  %>
  <html>
  <head>
  <title>Untitled Document</title>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
  <table width="583" border="0" cellspacing="0" cellpadding="0">
  <%
  While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
  %>
  <tr>
  <td width="140"><%=(Recordset1.Fields.Item("id").Value)%></td>
  <td width="171"><%=(Recordset1.Fields.Item("proname").Value)%></td>
  <td width="272"><%=(Recordset1.Fields.Item("simages").Value)%></td>
  <td width="272"><a href="cart.asp?ProductID=<%=(Recordset1.Fields.Item("id").Value)%>&quantity=1">购买</a></td>
  </tr>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
  Wend
  %>
  </table>
  </body>
  </html>
  <%
  Recordset1.Close()
  %>
  列出产品，这里有一个要点就是：<a href="cart.asp?ProductID=<%=(Recordset1.Fields.Item("id").Value)%>&quantity=1">购买</a>
  这里传递了两个参数：产品ID“ProductID" 数量：“quantity"

  +++++++++++++++++++++++++
  下面是cart.asp的源码:
  +++++++++++++++++++++

  <%LANGUAGE="VBScript"%>
  
  <%
  if not IsObject(session("cart")) then
  Set session("cart")=CreateObject("Scripting.Dictionary")
  end if
  Set cart=session("cart")
  productID=Cstr(request("productID"))
  dim detail(1)
  detail(0)=Int(request("quantity"))
  if request("productID")<>"" then
  if cart.Exists(productID) then
  cart.Remove(productID)
  end if
  cart.add productID,detail
  end if
  keys=cart.keys
  items=cart.items
  set session("cart")=cart
  %>

  <HTML>
  <HEAD>
  <TITLE>浙江广源印刷包装有限公司</TITLE>
  <META http-equiv=Content-Type content="text/html; charset=gb2312">
  <LINK
  href="index/index.css" type=text/css rel=stylesheet>
  <META content="MSHTML 5.50.4807.2300" name=GENERATOR>
  </HEAD>
  <BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  <tr>
  <td width="100%" valign="top">

  <table border="2" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#D00000" height="1" align="center">
  <tr bgcolor="#3399FF">
  <td width="25%" align="center" height="19"><font color="#FFFFFF">商品名称</font></td>
&nbs