📄 buy.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<%
Response.Buffer = True
CategoryID = Request("CategoryID")
Description = Request("Description")
If CategoryID = Empty Then
Response.Redirect "Main.asp"
End If
Head="KJ 电子购物街 - [" & Description & "] 区"
SQL = "Select * From Products Where CategoryID=" & CategoryID
SQL = SQL & " Order By ProductID"
Set rs = GetMdbRecordset( "eShop.mdb", SQL )
%>
<HTML>
<BODY BACKGROUND="../B01.jpg">
<H1 ALIGN=CENTER><%=Head%><HR></H1>
<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=""
ProductList = Request.Cookies( "ProductList" )
If InStr( 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>
<A HREF=Check.asp>查看购物袋</A> <A HREF=Clear.asp>退回所有物品</A><P>
<%
For I = 1 To Request.Cookies("CategoryLinks")
Response.Write Request.Cookies( "CategoryLink" & I ) & " "
Next
%>
</CENTER>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -