toplist_class.asp

起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构

<!--#include file="conn.asp"-->
<!--#include file="request.asp"-->
<%

sort_id=Array("总点击榜","月点击榜","周点击榜","总推荐榜","月推荐榜","周推荐榜")
sort_q=Array("bookhits","bookmhits","bookzhits","bookrecom","bookmrecom","bookzrecom")
sort=request("sort")
title=sort_id(sort)
Set rs= Server.CreateObject("adodb.recordset")
Rs.open "select * from "&prefix&"booklist order by "&sort_q(sort)&" desc " ,conn,1,1
rs.pagesize=10 '定义一页显示的记录数目 
tatalrecord=rs.recordcount '获取记录总数目 
tatalpages=rs.pagecount '获取分页的数目 
rs.movefirst 
nowpage=request("page")
if nowpage&"x"="x" then '处理页码为空时的情况 
nowpage=1 
else 
nowpage=cint(nowpage) '将页码转换成数字型 
end if
if nowpage>tatalpages then
nowpage=tatalpages
end if
rs.absolutepage=nowpage
n=1
if rs.eof then
list_page="暂时找不到您需要的电子书!"
else
while not rs.eof and n<=rs.pagesize 
b_state=array("连载","全本","其他","其他")
list_page=list_page&"<a href=""show.asp?bid="&rs("id")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&replace(rs("booktitle"),"&","&amp;")&"/"&replace(rs("bookwriter"),"&","&amp;")&"/"&b_state(rs("bookstate"))&"</a><br/>"


n=n+1 
rs.movenext '显示页面的数据 
wend 
list_page=list_page&"共"&tatalpages&"页 当前为:"&nowpage&"页<br/>"
list_page=list_page&"跳至<input type=""text"" name=""gonum"" size=""3"" value=""1"" maxlength=""4"" format=""*N""/>"
list_page=list_page&"<a href=""toplist.asp?sort="&sort&"&amp;page=$(gonum)&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">GO&gt;&gt;</a><br />"
if nowpage<>1 then
list_page=list_page&"<a href=""toplist.asp?sort="&sort&"&amp;page=1&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">首页</a> "
else 
end if 
if nowpage>1 then
list_page=list_page&"<a href=""toplist.asp?sort="&sort&"&amp;page="&nowpage-1&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">上一页</a> "
else
end if
if nowpage < tatalpages then
list_page=list_page&"<a href=""toplist.asp?sort="&sort&"&amp;page="&nowpage+1&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">下一页</a>"
else
end if

if nowpage<>tatalpages then
list_page=list_page&" <a href=""toplist.asp?sort="&sort&"&amp;page="&tatalpages&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">最后页</a><br/>"
else
end if
end if
rs.close
%>