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

clear.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  
8Session("ProductList") = ""   
9Session("First")="yes"

 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> <a href="Clear.asp">退回所有物品</a><p>

ListCategory conn

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