一个简单的网上书城的例子（六）！

add.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
%>
>

<%=Head%>

---

查看购物袋　
退回所有物品

<% ListCategory conn %>