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

📄 booklist.asp

📁 是运行在asp环境下寻梦书库管理系统
💻 ASP
字号:
🔍 
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<%Response.Expires = 600
kindid=request("kindid")
kindid=replace(kindid, ".htm", "")
if len(kindid)>0 then
set Rs_k = conn.execute("select kindname from kind where kindid="&kindid&"")
if Rs_k.eof then
    response.redirect"wrongurl.asp?url=3"
end if
kindname=Rs_k("kindname")
XmSqlL="select top 20 bookid,bookname from book where kindid="&kindid&""
XmSqlM="select * from book where kindid="&kindid&""
else
kindname="全部书籍"
XmSqlL="select top 20 bookid,bookname from book where kindid>0"
XmSqlM="select * from book where kindid>0"
Showkind="ture"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>寻梦书库-<%=kindname%>-浏览书籍</title>
<meta name="keywords" content="寻梦书库,寻梦船,<%=Rs_k("kindname")%>,寻梦船在线书库,寻梦书库管理系统,潇湘,文学,红楼梦,电子书下载">
<meta name="description" content="<%=Rs_k("kindname")%>类书籍在线阅读,寻梦书库,电子书下载">

<!--#include file="head.asp"-->
<table width="760" border="1" bgcolor=#7BD676 align="center" cellpadding="0" cellspacing="3">
  <tr><td width="160" valign="top" bgcolor=#F0F7FF>

<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>

<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
  <tr bgcolor=#FFF8F0><td style="word-break:break-all"><%
TXmSql=XmSqlL & " and tuijian=5 order by bookid desc"
set Rs_t=conn.execute(TXmSql)
Rs_t.open sql_t,conn,1,2
if rs_t.eof then
Response.Write "　本类暂无推荐作品！"
end if
dim i
i=1
do while not rs_t.eof
%>
<b><a href="bookread.asp?bookid=<%=Rs_t("bookid")%>" target="blank">[<%=Rs_t("bookname")%>]</a></b></br>
<%
		i=i+1
		rs_t.movenext
if i>20 then exit do
	loop
        set rs_t=nothing
	rs_t.close
%>

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

<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>

<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
  <tr bgcolor=#F0F7FF><td style="word-break:break-all">
<%
HXmSql=XmSqlL & " order by hit desc"
set Rs_h=conn.execute(HXmSql)
dim j
j=1
do while not rs_h.eof
%>
(<%=j%>)<a href="bookread.asp?bookid=<%=Rs_h("bookid")%>" target="blank"><%=Rs_h("bookname")%></a></br>
<%
		j=j+1
		rs_h.movenext
if j>20 then exit do
	loop
        set rs_h=nothing
	rs_h.close
%>

 </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> <%=kindname%> <i>□□□</i></b></font>
</td></tr></table>
<div width=100% align="right"><FONT style="BACKGROUND-COLOR: #E1F8D8">　排序：
时间<a href="booklist.asp?kindid=<%=kindid%>&XmOrder=4">↓</a><a href="booklist.asp?kindid=<%=kindid%>&XmOrder=3">↑</a>
点击<a href="booklist.asp?kindid=<%=kindid%>&XmOrder=2">↓</a><a href="booklist.asp?kindid=<%=kindid%>&XmOrder=1">↑</a>
字数<a href="booklist.asp?kindid=<%=kindid%>&XmOrder=6">↓</a><a href="booklist.asp?kindid=<%=kindid%>&XmOrder=5">↑</a>
推荐<a href="booklist.asp?kindid=<%=kindid%>&XmOrder=8">↓</a><a href="booklist.asp?kindid=<%=kindid%>&XmOrder=7">↑</a>
　</font></div>
<%if showkind="ture" then%>
<TABLE align=center bgColor=#3c8830 border=0 cellPadding=1 cellSpacing=1 width=95%>
              <TR bgColor=#a5db97>
                <TD align=center>
<TABLE border=0 cellPadding=4 cellSpacing=1 class=46C92F width=100%><TR bgColor=#fafef4><TD align=center>
<a href=booklist.asp?kindid=1>古典文学</a>
<a href=booklist.asp?kindid=2>中外散文</a>
<a href=booklist.asp?kindid=3>诗歌戏剧</a>
<a href=booklist.asp?kindid=131>校园文学</a>
<a href=booklist.asp?kindid=79>传记纪实</a>
<a href=booklist.asp?kindid=80>文学理论</a>
<a href=booklist.asp?kindid=134>网络原创</a>
<a href=booklist.asp?kindid=132>科普哲学</a><br>
<a href=booklist.asp?kindid=4>古典小说</a>
<a href=booklist.asp?kindid=5>现代小说</a>
<a href=booklist.asp?kindid=78>外国小说</a>
<a href=booklist.asp?kindid=133>科幻小说</a>
<a href=booklist.asp?kindid=135>恐怖灵异</a>
<a href=booklist.asp?kindid=125>言情小说</a>
<a href=booklist.asp?kindid=126>玄幻小说</a>
<a href=booklist.asp?kindid=81>综合类别</a>
</TD></TR></TABLE></TD></TR></TABLE>
<%end if%>
<table width="100%" border="0" cellpadding="8" cellspacing="0">
  <tr><td style="border-collapse: collapse word-break:break-all">

<%
XmOrder=request("XmOrder")
select CASE XmOrder
  case 1
    sql=XmSqlM &" order by hit asc "
  case 2
    sql=XmSqlM &" order by hit desc "
  case 3
    sql=XmSqlM &" order by bookid asc "
  case 4
    sql=XmSqlM &" order by bookid desc "
  case 5
    sql=XmSqlM &" order by strn asc "
  case 6
    sql=XmSqlM &" order by strn desc "
  case 7
    sql=XmSqlM &" order by tuijian asc "
  case 8
    sql=XmSqlM &" order by tuijian desc "
  case else
    sql=XmSqlM &" order by bookid desc "
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
dim k
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>
　　推荐度：<%=encode1(rs("tuijian"))%>　总被点击 <b><%=Rs("hit")%></b> 人次　(<%=Rs("adder")%><%=Rs("addtim")%>)<br>
　　<%=Rs("adv")%>
<%if Rs("lzai")=0 then%><i><font color=#999999>[连载中]</font></i><%end if%>
<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=booklist.asp?kindid="&kindid&"&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=booklist.asp?kindid="&kindid&"&XmOrder="&XmOrder&"&page="&go&">["&go&"]</a>"
   next
  if pbb<Rs.pagecount then
     response.write"…<a href=booklist.asp?kindid="&kindid&"&XmOrder="&XmOrder&"&page="&Rs.pagecount&">["&Rs.pagecount&"]</a>"
  end if
%>页
  </td></tr></table>
<%
set Rs_k=nothing
Rs_k.close
Rs.close
set conn=nothing%>
<!--#include file="foot.asp"-->

⌨️ 快捷键说明

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