📄 hotbuy.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->
<!--#include file="function.asp" -->
<%
DbPath = SERVER.MapPath("bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sqltext="select top 10 * from book order by Num Desc"
rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext
%>
<html>
<head>
<title>热卖图书</title>
<base target="main">
</head>
<body bgcolor="#ffffff">
<p align="center"><img src="foto/top.jpg" width="180" height="50">
<form Action="Add.asp" Method="POST">
<table Border="1" align="center" cellspacing="0">
<tr BGCOLOR="#495E5F">
<td align="center" height="25"><font color="#FFFFFF">选中</font></td>
<td align="center" height="25" ><font color="#FFFFFF">商品名称</font></td>
<td align="center" height="25" bgcolor="#495E5F"><font color="#FFFFFF">生产厂家</font></td>
<td align="center" height="25" ><font color="#FFFFFF">型号</font></td>
<td align="center" height="25" ><font color="#FFFFFF">原价</font></td>
<td align="center" height="25" ><font color="#FFFFFF">售价</font></td>
<td align="center" height="25" ><font color="#FFFFFF">详情</font></td>
</tr>
<%
While Not rs.EOF
IsCheck=""
If InStr(Session("ProductList"), rs("bookbm")) > 0 Then
IsCheck="Checked"
End If
%>
<tr BGCOLOR="#D0E1D0" align="center" >
<td Align="Center" >
<input Type="CheckBox" Name="bookbm" Value="<%=rs("bookbm")%>" <%=IsCheck%> ></td>
<td Align="left" ><%=rs("bookname")%></td>
<td Align="Center" ><%=rs("Author")%></td>
<td Align="left" ><% =rs("cd") %></td>
<td align="center" ><% =rs("price") %></td>
<td align="center" ><% =rs("yhj") %></td>
<td align="center" ><a href="fullinfo.asp?bookbm=<% =rs("bookbm") %>" target="_blank">详情</a></td>
</tr>
<%
rs.MoveNext
Wend
%>
<tr>
<td colspan=7 bgcolor="#ffffff"> </td>
</tr>
<tr BGCOLOR="#3A766F">
<td align="left" colspan=4 ><font color="#FFFFFF">选择好商品后,点击"放入购物车"</font></td>
<td colspan=3 align="center">
<input Type="submit" Value="放入购物车"></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -