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

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