📄 newbook.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->
<%
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 "
rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext
%>
<html>
<head>
<title>最新图书</title>
<base target="main">
</head>
<body bgcolor="#ffffff">
<form Action="Add.asp" Method="POST">
<table width="80%" border="0" align="center" bordercolorlight="#cccccc" bordercolordark="#999999" cellspacing="0">
<tr align="center">
<td><img src="FOTO/Newbooks.jpg" width="180" height="50"></td>
</tr>
</table>
<table Border="1" align="center" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#999999" width="80%">
<tr BGCOLOR="#495E5F">
<td align="center" height="25" bgcolor="#495E5F"><font color="#FFFFFF" size="3">选中</font></td>
<td align="center" height="25" ><font color="#FFFFFF" size="3">商品名称</font></td>
<td align="center" height="25" bgcolor="#495E5F"><font color="#FFFFFF" size="3">生产厂家</font></td>
<td align="center" height="25" bgcolor="#495E5F" ><font color="#FFFFFF" size="3">型号</font></td>
<td align="center" height="25" ><font color="#FFFFFF" size="3">原价</font></td>
<td align="center" height="25" ><font color="#FFFFFF" size="3">售价</font></td>
<td align="center" height="25" ><font color="#FFFFFF" size="3">详情</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" bgcolor="#D0E1D0" > <font size="3">
<input Type="CheckBox" Name="bookbm" Value="<%=rs("bookbm")%>" <%=IsCheck%> >
</font></td>
<td Align="left" bgcolor="#D0E1D0" ><font size="3"><%=rs("bookname")%></font></td>
<td Align="Center" bgcolor="#D0E1D0" ><font size="3"><%=rs("Author")%></font></td>
<td Align="center" bgcolor="#D0E1D0" ><font size="3"><% =rs("cd") %></font></td>
<td align="center" bgcolor="#D0E1D0" ><font size="3"><% =rs("price") %></font></td>
<td align="center" bgcolor="#D0E1D0" ><font size="3"><% =rs("yhj") %></font></td>
<td align="center" ><font size="3"><a href="fullinfo.asp?bookbm=<% =rs("bookbm") %>" target="_blank">详情</a></font></td>
</tr>
<%
rs.MoveNext
Wend
%>
<tr>
<td colspan=7 bgcolor="#ffffff"><font size="3"></font></td>
</tr>
<tr BGCOLOR="#3A766F">
<td align="left" colspan=4 bgcolor="#3A766F" ><font color="#FFFFFF" size="3">选择好商品后,点击"放入购物车"</font></td>
<td colspan=3 align="center"> <font size="3">
<input Type="submit" Value="放入购物车">
</font></td>
</tr>
</table>
</form>
<hr color="#3A766F" size="3" noshade>
<p align="center" style="margin-top: 0; margin-bottom: 1"><font size="2" face="Lucida Sans Unicode">ANY
COMMENTS OR SURGESTIONS, PLEASE <a href="mailto:ZOUQUAN@SHIP.CETIN.NET.CN">EMAIL</a>
US</font><font size="2">。</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 1"><font size="2" face="Lucida Sans Unicode">COPYRIGHT
2000-2002</font><font size="2">.</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 1"><font size="2" face="Lucida Sans Unicode">BOOK001.COM
ONLINE BOOKSTORE & BEIJIING QIANQIU BOOKSTORE</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 1"><font size="2">100085
北京市海淀区学院南路</font><font size="2" face="Lucida Sans Unicode">4</font><font size="2">号</font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -