一个简单的网上书城的例子(五)
发布时间:2006-10-14 2:58:16   收集提供:gaoqian
add.asp:用户更改所选物品种类与数量!


<!--#include file="Util.asp" -->

<%
Head="您所选购的物品已放入购物袋!"

DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath

ProductList = Session("ProductList")
Products = Split(Request("ProductID"), ", ")
For I=0 To UBound(Products)
   PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
%>

<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODY BACKGROUND="b01.jpg">
<H2 ALIGN=CENTER><%=Head%><HR></H2>
<CENTER>
<A HREF=Check.asp>查看购物袋</A> 
<A HREF=Clear.asp>退回所有物品</A><P>
<% ListCategory conn %>
</CENTER>
</BODY>
</HTML>

 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50