简单购物车教程
点击次数：37 次 发布日期：2008-12-01 17:23:05 作者：源代码网
|
| |
| 数据库字段 表：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"%> <!--#include file="Connections/conn.asp" --> <% 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"%> <!--#include file="Connections/conn.asp" --> <% 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="http://www.wangyeba.com/Article/web01/web01srv/200510/images/ref.gif" width="17" height="19"> </td> <td width="13%" align="center" height="1"><a href="delcart.asp?productID=<%=keys(i)%>"><img src="http://www.wangyeba.com/Article/web01/web01srv/200510/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> 源代码网整理以下 本新闻共2页,当前在第1页 1 2 源代码网推荐 |
源代码网供稿.
