⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tuijian.asp

📁 是运行在asp环境下寻梦书库管理系统
💻 ASP
字号:
🔍 
<!--#include file="inc/conn.asp"-->
<%Response.Expires = 600 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=WebTitle%>-推荐阅读</title>
<!--#include file="head.asp"-->

<table width="760" border="1" bgcolor=#7BD676 align="center" cellpadding="0" cellspacing="3">
  <tr><td width="160" valign="top" bgcolor=#F7F2EC>
<table align="center" width="100%" border="0" bgcolor=#7BD676>
   <tr><td align="center">
<font color=#FFFFFF><b>　　　</b></font>
</td></tr></table>

</td><td valign="top" background="image/bg.jpg" bgcolor=#FFF8F0>
<table align="center" width="100%" border="0" bgcolor=#7BD676>
   <tr><td align="center">
<font color=#FFFFFF><b><i>□□□</i> 推荐阅读 <i>□□□</i></b></font>
</td></tr></table>
<div width=100% align="right"><FONT style="BACKGROUND-COLOR: #E1F8D8">　排序：
时间<a href="tuijian.asp?XmOrder=4">↓</a><a href="tuijian.asp?XmOrder=3">↑</a>
点击<a href="tuijian.asp?XmOrder=2">↓</a><a href="tuijian.asp?XmOrder=1">↑</a>
字数<a href="tuijian.asp?XmOrder=6">↓</a><a href="tuijian.asp?XmOrder=5">↑</a>
推荐<a href="tuijian.asp?XmOrder=8">↓</a><a href="tuijian.asp?XmOrder=7">↑</a>
　</font></div>
<table width=100% border=0 align="center" cellPadding=8 cellSpacing=0>
  <tr><td>
<%
XmOrder=request("XmOrder")
XmSql="select * from book where tuijian=4 or tuijian=5"
select CASE XmOrder
  case 1
    sql=XmSql &" order by hit asc "
  case 2
    sql=XmSql &" order by hit desc "
  case 3
    sql=XmSql &" order by bookid asc "
  case 4
    sql=XmSql &" order by bookid desc "
  case 5
    sql=XmSql &" order by strn asc "
  case 6
    sql=XmSql &" order by strn desc "
  case 7
    sql=XmSql &" order by tuijian asc "
  case 8
    sql=XmSql &" order by tuijian desc "
  case else
    sql=XmSql &" order by hit asc "
END select

set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=10
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
%>

◆<%=Rs("zuozhe")%>
　<a href="bookread.asp?bookid=<%=Rs("bookid")%>" target="blank"><b>[<%=Rs("bookname")%>]</a></b><%if Rs("Btype")=2 then%><font color=#28C212>〖原创〗</font><%else if Rs("Btype")=1 then%><font color=#F97BF5>〖本站首发〗</font><%end if end if%><br>
　　总被点击 <b><%=Rs("hit")%></b> 人次　(<%=Rs("adder")%><%=Rs("addtim")%>)<br>
　　<%=Rs("adv")%><br>
<%
Rs.movenext
loop
%></td></tr></table>

</td></tr></table>

<table width="760" bgcolor=#E1F8D8 align="center" border=0 cellpadding=0 cellspacing=1 width=100%>
<tr><td align="center" style="line-height: 150%">
转到第<%
 paa=page-8
  if paa<1 then
       paa=1
     end if
  if paa>1 then
     response.write"<a href=tuijian.asp?XmOrder="&XmOrder&"&page=1>[1]</a>…"
     end if
 pbb=paa+8
  if pbb>Rs.pagecount then
     pbb=Rs.pagecount
     end if
   for go=paa to pbb
     response.write"<a href=tuijian.asp?XmOrder="&XmOrder&"&page="&go&">["&go&"]</a>"
   next
  if pbb<Rs.pagecount then
     response.write"…<a href=tuijian.asp?XmOrder="&XmOrder&"&page="&Rs.pagecount&">["&Rs.pagecount&"]</a>"
  end if
%>页
  </td></tr></table>
<%conn.close
set conn=nothing%>
<!--#include file="foot.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -