一个简单的网上书城的例子（三）
2016-01-29 17:29
一个简单的网上书城的例子（三）,一个简单的网上书城的例子（三）
<!--#include file="Util.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 )
%
<HTML
<HEAD<TITLE<%=Head%</TITLE</HEAD
<BODY BACKGROUND="b01.jpg"
<font color=blue<H2 ALIGN=CENTER<%=Head%</H2</font
<CENTER
<Form Action=Add.asp Method=POST
<TABLE Border=1
<TR BGCOLOR=#00FFFF
<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
%
<TR
<TD Align=Center
<Input Type=CheckBox Name="ProductID" Value="<%=rs("ProductID")%" <%=IsCheck%
</TD
<TD<%=rs("ProductID")%</TD
<TD<%=rs("ProductName")%</TD
<TD Align=Right<%=rs("Price")%</TD
<TD<A HREF=<%=rs("Link")%<%=rs("Description")%</A</TD
</TR
<%
rs.MoveNext
Wend
%
</TABLE
<Input Type=Submit Value="放入购物袋"
</Form
<HR width=70%
<A HREF=Check.asp查看购物袋</A
<A HREF=Clear.asp退回所有物品</A<P
<% ListCategory conn %
</CENTER
</BODY
</HTML
