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

add.asp:用户更改所选物品种类与数量！

 1   
 2Head="您所选购的物品已放入购物袋！"   
 3  
 4DbPath = SERVER.MapPath("ShopBag.mdb")   
 5Set conn = Server.CreateObject("ADODB.Connection")   
 6conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath   
 7  
 8ProductList = Session("ProductList")   
 9Products = Split(Request("ProductID"), ", ")   
10For I=0 To UBound(Products)   
11PutToShopBag Products(I), ProductList   
12Next   
13Session("ProductList") = ProductList

 1<html>
 2<head><title>```
 3=Head
 4```</title></head>
 5<body background="b01.jpg">
 6<h2 align="CENTER">```
 7=Head
 8```<hr/></h2>
 9<center>
10<a href="Check.asp">查看购物袋</a>
11<a href="Clear.asp">退回所有物品</a><p>

ListCategory conn

1</p></center>
2</body>
3</html>