简单购物车教程_自动测试脚本语言

简单购物车教程

发表于：2007-06-30来源：作者：点击数：标签：

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

数据库字段
  表：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"> <br>
  <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>
  <td width="25%" align="center" height="19"><font color="#FFFFFF">购买数量</font></td>
  <td width="12%" align="center" height="19"><font color="#FFFFFF">更新</font></td>
  <td width="13%" align="center" height="19"><font color="#FFFFFF">删除</font></td>
  </tr>
  <% For i = 0 To cart.Count -1 %>
  <% Dim list__MMColParam
  list__MMColParam = keys(i) %>
  <% set list = Server.CreateObject("ADODB.Recordset")
  list.ActiveConnection = MM_conn_STRING
  list.Source = "SELECT * FROM pro_table WHERE id = " + Replace(list__MMColParam, "’", "’’") + ""
  list.CursorType = 0
  list.CursorLocation = 2
  list.LockType = 3
  list.Open()
  %>
  <form method="post" action="cart.asp" onSubmit="return checkform(this);"> ’更新产品数量用
  <tr bgcolor="#ECECFF">
  <td width="25%" align="center" height="1"><a href="detail.asp?productID=<%=keys(i)%>"><font color="#000077" ></font></a><%=(list.Fields.Item("proname").Value)%></td>
  <td width="25%" align="center" height="1">
  <input name="quantity" size=4 class="edit" value="<%=items(i)(0)%>">
  <input type="hidden" name="productID" value="<%=keys(i)%>">
  </td>
  <td width="12%" align="center" height="1">
  <input type="image" border="0" name="imageField" src="images/ref.gif" width="17" height="19">
  </td>
  <td width="13%" align="center" height="1"><a href="delcart.asp?productID=<%=keys(i)%>"><img src="images/del.gif" width="17" height="19" border="0"></a></td>
  </tr>
  </form>
  <%
  list.Close()
  %>
  <% next %>
  <tr >
  <td width="75%" bgcolor="#000000" align="center" height="1" colspan="2">
  <p align="right"><font color="#FFFFFF">总价合计：</font>
  </td>
  <td width="25%" bgcolor="#000000" align="center" height="1" colspan="2"><font color="#FFFFFF">￥<%=price%></font></td>
  </tr>
  </table>
  <p align="center"><b><a href="index.asp">继续选购</a> <a href="order.asp">付款</a></b>
  </td>
  </tr>
  </table>
  </BODY>
  </HTML>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >