📄 booklist.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
if Request.QueryString("Type")<>"" then
session("mytype")=Request.QueryString("Type")
end if
set rs_detail=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM DB_bookinfo WHERE Type = '"& session("mytype") & "'"
rs_detail.open sql,conn,3,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet">
<title>网上书店--图书分类信息</title>
</head>
<body leftmargin="0" topmargin="0">
<table width="528" height="314" border="0" cellpadding="-2" cellspacing="-2">
<tr></tr>
<tr>
<td width="770" valign="top" background="images/bg_listmain.jpg"><table
width="100%" height="192" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="40" colspan="2"><font color="#C60001">
图书类别：<%=rs_detail("Type")%></font></td>
</tr>
<tr>
<td colspan="2"> <table width="97%" height="49" border="0" align="right"
cellpadding="-2" cellspacing="-2">
<tr>
<td height="25" width="20%"><div align="center"><strong>书号</strong></div></td>
<td height="25"> <div align="center"><strong>书名</strong></div></td>
<td width="15%"><div align="center"><strong>作者</strong></div></td>
<td height="25" width="13%"><div align="center"><strong>单价</strong></div></td>
<td height="25"> </td>
</tr>
<%
'分页'
rs_detail.pagesize=7
page=CLng(Request("page"))
if page<1 then page=1
rs_detail.absolutepage=page
for i=1 to rs_detail.pagesize %>
<tr>
<td><%=(rs_detail("BookID"))%></td>
<td ><A HREF="./detail.asp?BookID=<%= rs_detail("BookID") %>">
<%=(rs_detail("BookName"))%></A></td>
<td ><%=(rs_detail("Writer"))%></td>
<td><div align="right"><%=(rs_detail("Price"))%>（元）</div></td>
<td> <a href="buycar_add.asp?bookID=<%= rs_detail("bookID") %>"
target="_blank"><img src="images/add.gif" alt="添加至购物车" width="18"
height="18" border="0"></a></td>
</tr>
<%
rs_detail.movenext
if rs_detail.eof then exit for
next %>
</table></td>
</tr>
<tr>
<td width="513" height="27">
<div align="right">
<% if page<>1 then %><a href=<%=path%>?page=1>第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>rs_detail.pagecount then %>
<a href=<%=path%>?page=<%=(page+1)%>>下一页</a>
<a href=<%=path%>?page=<%=rs_detail.pagecount%>>最后一页</a>
<%end if %>
</div></td>
<td width="15"></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
rs_detail.Close()
Set rs_detail = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -