📄 tuijian.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>推荐阅读</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="middle.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
sql_t="select top 15 * from book where 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>==总点击排行==</b> </td></tr>
</table>
<table align="center" width=100%>
<tr><td><br>
<%
on error resume next
sql_h="select top 15 * from book where tuijian>2 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 '找不到站点资料时忽略错误
sql="select * from book where tuijian=5 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
%>
<%
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> 总被阅读<b><%=Rs("hit")%></b>次<br>
<%=Rs("adv")%>
</td></tr></table>
<%
Rs.movenext
loop
%>
<table align="center" border=0 cellpadding=0 cellspacing=1 width=100%>
<tr><td align="center" style="line-height: 150%">
<p>推荐阅读书籍共<%=Rs.recordcount%>种 <%=page%>/<%=Rs.pagecount%>页跳到第
<% for go=1 to Rs.pagecount
%>
<a href=tuijian.asp?page=<%=go%>><%=go%></a>
<%next%>
页
<% if page=1 then %>
<%else%>
<a href=tuijian.asp?page=<%=page-1%>>上一页</a>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=tuijian.asp?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"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -