位置：首页>> 网络编程>> Asp编程>> 一个asp简单购物车教程（2）

一个asp简单购物车教程（2）

　　发布时间：2007-09-17 11:02:00　

标签：购物车,asp

下面是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="http://edu.chinaz.com/Get/Program/Asp/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>

第一页上一页 1

3 4 下一页

投稿

一个asp简单购物车教程（2）

猜你喜欢