content_class.asp

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

<!--#include file="conn.asp"-->
<!--#include file="request.asp"-->
<%
bid=request("bid")
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"booklist where id="&bid&""
rs.open sql,conn,1,1
title=rs("booktitle")
writer=rs("bookwriter")
rs.close



Set rs= Server.CreateObject("adodb.recordset")
Rs.open "select * from "&prefix&"bookchapter where bookid="&bid&" order by id asc " ,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=""chapter.asp?cid="&rs("id")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&replace(rs("nclass"),"&","&amp;")&" "&replace(rs("booktexttitle"),"&","&amp;")&"</a><br/>"


n=n+1 
rs.movenext '显示页面的数据 
wend 
list_page=list_page&"共"&tatalrecord&"章（"&nowpage&"/"&tatalpages&"页）<br/>"
list_page=list_page&"跳至<input type=""text"" name=""gonum"" size=""3"" value=""1"" maxlength=""4"" format=""*N""/>"
list_page=list_page&"<a href=""content.asp?bid="&bid&"&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=""content.asp?bid="&bid&"&amp;page=1&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">首页</a> "
else 
end if 
if nowpage < tatalpages then
list_page=list_page&"<a href=""content.asp?bid="&bid&"&amp;page="&nowpage+1&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">下一页</a>"
else
end if
if nowpage>1 then
list_page=list_page&" <a href=""content.asp?bid="&bid&"&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=""content.asp?bid="&bid&"&amp;page="&tatalpages&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">最后页</a><br/>"
else
end if
end if
rs.close

%>