?? booklist.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<%
kindname=request("kindname")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>尋夢(mèng)書庫-<%=kindname%>-瀏覽書籍</title>
<style type="text/css">
<!--a{color:#009966; text-decoration: none}
a:hover{color:#FF00CC; text-decoration: none}-->
<!--
body,td,th {
font-size: 14px;
color: #009966;
}
body {
background-color: #FFFFFF;
background-image: url(image/bg.gif);
}
-->
</style>
</head>
<!--#include file="fun.asp"-->
<!--#include file="middle.asp"-->
<!--#include file="guanggao.asp"-->
<br>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="10" background="image/left.gif"></td>
<td width="10"></td>
<td width="180" valign="top">
<table align="center" width=80% border="1" bordercolor="#009966">
<tr><td align="center">
<b>==本類推薦==</b> </td></tr>
</table>
<table align="center" width=100%>
<tr><td><br>
<%
on error resume next
kindid=request("kindid")
sql_t="select top 15 * from book where kindid="&kindid&" and tuijian=5 order by hit desc"
set Rs_t = Server.CreateObject("ADODB.Recordset")
Rs_t.open sql_t,conn,1,2
dim i
i=1
do while not rs_t.eof
%>
○<b><a href="bookread.asp?bookid=<%=Rs_t("bookid")%>&bookname=<%=Rs_t("bookname")%>" target="_blank">[<%=Rs_t("bookname")%>]</a></b></br>
<%
i=i+1
rs_t.movenext
if i>18 then exit do
loop
rs_t.close
%>
</td></tr>
</table>
<br>
<table width=95% border="1" bordercolor="009966" align="center" cellpadding="0" cellspacing="0">
<tr><td align="center">
<form method="GET" action="search.asp?ki=<%rs=("ki")%>&key=<%rs=("key")%>" target=_blank>
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="20" align="center">
<br><b>搜索書籍</b><br>
<input type="text" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name="key" size="14">
<br><br>
<select size="1" name="ki">
<option value="1"> 書 籍</option>
<option value="2"> 作 者</option>
</select>
<input type="submit" value="搜 索"><br>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<br>
<table align="center" width=80% border="1" bordercolor="#009966">
<tr><td align="center">
<b>==本類點(diǎn)擊排行==</b> </td></tr>
</table>
<table align="center" width=100%>
<tr><td><br>
<%
on error resume next
kindid=request("kindid")
sql_h="select top 15 * from book where kindid="&kindid&" order by hit desc"
set Rs_h = Server.CreateObject("ADODB.Recordset")
Rs_h.open sql_h,conn,1,2
dim j
j=1
do while not rs_h.eof
%>
●<b><a href="bookread.asp?bookid=<%=Rs_h("bookid")%>&bookname=<%=Rs_h("bookname")%>" target="_blank">[<%=Rs_h("bookname")%>]</a></b></br>
<%
j=j+1
rs_h.movenext
if j>18 then exit do
loop
rs_h.close
%>
</td></tr>
</table>
</td><td width="560" valign="top">
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
on error resume next '找不到站點(diǎn)資料時(shí)忽略錯(cuò)誤
kindid=request("kindid")
sql="select * from book where kindid="&kindid&" order by hit asc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=18
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<%
dim k
do while not Rs.eof
k = k + 1
if k > Rs.pagesize then
exit do
end if
%>
<table width=554 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td height="1" colspan="2" style="word-break:break-all" valign="top">
<%=Rs("zuozhe")%>
<a href="bookread.asp?bookid=<%=Rs("bookid")%>&bookname=<%=Rs("bookname")%>" target="_blank"><b>[<%=Rs("bookname")%>]</a></b><br>
推薦度：<%=encode1(rs("tuijian"))%> 總被閱讀<b><%=Rs("hit")%></b>次<br>
<%=Rs("adv")%>
</td></tr></table>
<%
Rs.movenext
loop
%>
<%
kindname=request("kindname")
%>
<table align="center" border=0 cellpadding=0 cellspacing=1 width=100%>
<tr><td align="center" style="line-height: 150%">
本站目前收錄[<%=kindname%>]<%=Rs.recordcount%>種 <%=page%>/<%=Rs.pagecount%>頁 跳到第
<% for go=1 to Rs.pagecount
%>
<a href=booklist.asp?kindid=<%=kindid%>&kindname=<%=kindname%>&page=<%=go%>><%=go%></a>
<%next%>
頁
<% if page=1 then %>
<%else%>
<a href=booklist.asp?kindid=<%=kindid%>&kindname=<%=kindname%>&page=<%=page-1%>>上一頁</a>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=booklist.asp?kindid=<%=kindid%>&kindname=<%=kindname%>&page=<%=page+1%>>下一頁</a>
<%else%>
<%end if%>
</td></tr></table>
</td>
<td width="10"></td>
<td width="10" background="image/right.gif"></td>
</tr>
</table>
<br>
<!--#include file="foot.asp"-->?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -