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

%>

---

查看购物袋

退回所有物品