一個(gè)簡(jiǎn)單的網(wǎng)上書城的例子（三）

2019-11-18 20:36:55

字體：大中小

供稿：網(wǎng)友

buy.asp:顯示商品和用戶購(gòu)物！


<%
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="會(huì)文書城[" & Description & "] 區(qū)"

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>書刊編號(hào)</TD><TD>書刊名稱</TD><TD>價(jià)格</TD><TD>書刊簡(jiǎn)介</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="放入購(gòu)物袋">
</Form>
<HR width=70%>
<A HREF=Check.asp>查看購(gòu)物袋</A>　　
<A HREF=Clear.asp>退回所有物品</A><P>
<% ListCategory conn %>
</CENTER>
</BODY>
</HTML>

上一篇：一個(gè)簡(jiǎn)單的網(wǎng)上書城的例子（四）

下一篇：一個(gè)簡(jiǎn)單的網(wǎng)上書城的例子（二）