buy.asp:顯示商品和用戶購物！

DbPath = SERVER.MapPath("ShopBag.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath

CategoryID=Request("CategoryID")

Description=Request("Description")

Head="會文書城[" & Description & "] 區"

sql = "Select * From Products Where CategoryID=" & CategoryID

sql = sql & " Order By ProductID"

Set rs = conn.Execute( sql )

%>

挑選

書刊編號

書刊名稱

價格

書刊簡介

While Not rs.EOF

IsCheck=""

If InStr(Session("ProductList"), rs("ProductID")) > 0 Then

IsCheck="Checked"

End If

%>

" >

>

rs.MoveNext

Wend

%>

---

查看購物袋

退回所有物品