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

buy.asp:显示商品和用户购物！

 1   
 2DbPath = SERVER.MapPath("ShopBag.mdb")   
 3Set conn = Server.CreateObject("ADODB.Connection")   
 4conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath   
 5  
 6CategoryID=Request("CategoryID")   
 7Description=Request("Description")   
 8Head="会文书城[" & Description & "] 区"   
 9  
10sql = "Select * From Products Where CategoryID=" & CategoryID   
11sql = sql & " Order By ProductID"   
12Set rs = conn.Execute( sql )   
13

 1<html>
 2<head><title>```
 3=Head
 4```</title></head>
 5<body background="b01.jpg">
 6<font color="blue"><h2 align="CENTER">```
 7=Head
 8```</h2></font>
 9<center>
10<form action="Add.asp" method="POST">
11<table border="1">
12<tr bgcolor="#00FFFF">
13<td>挑选</td><td>书刊编号</td><td>书刊名称</td><td>价格</td><td>书刊简介</td></tr>

While Not rs.EOF
IsCheck=""
If InStr(Session("ProductList"), rs("ProductID")) > 0 Then
IsCheck="Checked"
End If

 1<tr>
 2<td align="Center">
 3<input ```="" ```"="" name="ProductID" productid")="" type="CheckBox" value="```
 4=rs("/&gt;
 5&lt;/td&gt;
 6&lt;td&gt;```
 7=rs("ProductID")
 8```&lt;/td&gt;
 9&lt;td&gt;```
10=rs("ProductName")
11```&lt;/td&gt;
12&lt;td align="Right"&gt;```
13=rs("Price")
14```&lt;/td&gt;
15&lt;td&gt;&lt;a =rs("link")="" ```="" href="```"&gt;```
16=rs("Description")
17```&lt;/a&gt;&lt;/td&gt;
18&lt;/tr&gt;

rs.MoveNext
Wend

1&lt;/table&gt;
2&lt;input type="Submit" value="放入购物袋"/&gt;
3&lt;/form&gt;
4&lt;hr width="70%"/&gt;
5&lt;a href="Check.asp"&gt;查看购物袋&lt;/a&gt;
6&lt;a href="Clear.asp"&gt;退回所有物品&lt;/a&gt;&lt;p&gt;

ListCategory conn

1&lt;/p&gt;&lt;/center&gt;
2&lt;/body&gt;
3&lt;/html&gt;