ADO组件之分页程序

　　应该来说，学会了如何插入记录，如何显示记录，那么现在简单的完整的文章系统、新闻系统和留言系统不成问题。那接着下面的问题就是：随着信息内容的不段增加，单独通过一张页面显示所有信息是不行也是很不理性的。所以，解决的办法就是采用分页技术。

1，rs.RecordCount
很显然，RecordCount就是用来显示数据库表中一共多少条记录的，也可以形象地说表中一共有多少行。经常用在分页中就是一共有N篇文章等总计的信息显示。

2，rs.PageSize
rs.PageSize也就是一页的大小，也就表示一张ASP页可以显示记录的条数。值是自己定义的，比如经常看到的每页显示N篇文章之类的信息。

3，rs.AbsolutePage和rs.pagecount
说到分页，一定不能不提到rs.AbsolutePage。记录集的AbsolutePage属性最主要的作用就是决定着当前显示的是第几页。它的值是有依据的，指定了rs.PageSize，那么rs.pagecount的信息值就是rs.RecordCount和rs.PageSize整除结果。比如：总信息记录rs.RecordCount共20条，每页显示条数rs.PageSize设为5条，那么页数rs.pagecount数就是20/5=4页次，而rs.AbsolutePage则就只能是第1页，第2页……第4页。

说到现在，弄个具体程序来调试一下。继续对showit.asp进行修改如下：


<!--#includefile=conn.asp-->

<%
Setrs=Server.CreateObject(ADODB.Recordset)
sql=Select*fromcnarticleorderbycn_iddesc
rs.Opensql,conn,1,1
%>

<%
page=request.querystring(page)page值为接受值
rs.PageSize=2每页显示记录数
rs.AbsolutePage=Page显示当前页等于接收的页数
%>

<%
Fori=1tors.PageSize利用fornext循环依次读出当前页的记录
ifrs.EOFthen
ExitFor
endif
response.write(<br>文章内容是:rs(cn_content))
rs.MoveNext
next%>

<%
rs.close
Setrs=Nothing
conn.close
setconn=nothing
%>



HERE，你调试的前提就是数据库中的记录相对要大于4条，这样测试效果才明显；还有测试的方法就是在showit.asp后面添加?page=1或者?page=2等调试观察网页显示效果。

其实，说到底，显示数据库内容就是


<%
Fori=1tors.PageSize
ifrs.EOFthen
ExitFor
endif
response.write(<br>文章内容是:rs(cn_content))
rs.MoveNext
next%>


起的作用，但想象一下：该程序应该都只能显示出2条信息（一直不变的2条信息）。但为什么加上?page=1和?page=2会显示不同的结果呢？……那绝对就是rs.AbsolutePage的作用了。这个搞清楚，相信分页的整体架构就有点眉目了。



<!--#includefile=conn.asp-->

<%
Setrs=Server.CreateObject(ADODB.Recordset)
sql=Select*fromcnarticle
rs.Opensql,conn,1,1
%>

<%filepath=request.servervariables(path_info)%>
<%
page=request.querystring(page)page值为接受值
rs.PageSize=2每页显示记录数
ifNotIsEmpty(page)then如果page已经初始化...
ifNotIsNumeric(page)then判断page值是否为数字
page=1
else
Page=cint(page)接收page并化为数字型赋给page变量
endif
ifPage>rs.PageCountthen如果接收的页数大于总页数
rs.AbsolutePage=rs.PageCount设置当前显示页等于最后页
elseifPage<=0then如果page小于等于0
rs.AbsolutePage=1设置当前显示页等于第一页
else
rs.AbsolutePage=Page如果大于零,显示当前页等于接收的页数
endif
else
rs.AbsolutePage=1
endif
Page=rs.AbsolutePage%>

<%
Fori=1tors.PageSize利用fornext循环依次读出当前页的记录
ifrs.EOFthen
ExitFor
endif
response.write(文章标题是:rs(cn_title))
response.write(<br>文章作者是:rs(cn_author))
response.write(<br>文章加入时间是:rs(cn_time))
response.write(<br>文章内容是:rs(cn_content))
response.write(<hr>)
rs.MoveNext
Next
%>

<formaction=<%=filepath%>method=get>
<!--首先保证总页数不为1、不为0-->
<%ifrs.pagecount<>1andrs.pagecount<>0then%>
<!--如果当前页数大于1，无论何时都应显示首页和上一页的连接-->
<%ifpage>1then%>
[<aHref=<%=filepath%>?Page=<%=1%>>首页</a>]
[<aHref=<%=filepath%>?Page=<%=page-1%>>上一页</a>]
<!--如果当前页数大于1并且小于总页面数时，显示出尾页和下一页的连接-->
<%ifpage<rs.pagecountthen%>
[<aHref=<%=filepath%>?Page=<%=page+1%>>下一页</a>]
[<aHref=<%=filepath%>?Page=<%=rs.PageCount%>>尾页</a>]
<!--如果当前页数大于1并且仍大于或等于总页面数时，不显示出尾页和下一页的连接-->
<%else%>
[下一页][尾页]
<%endif%>
<!--否则，当前页数不大于1，则只显示尾页和下一页的连接-->
<%else%>
[首页][上一页]
[<aHref=<%=filepath%>?Page=<%=page+1%>>下一页</a>]
[<aHref=<%=filepath%>?Page=<%=rs.PageCount%>>尾页</a>]
<%endif%>
<!--最终，总页数若为1、为0则没有任何连接-->
<%else%>
[首页][上一页][下一页][尾页]
<%endif%>

[页次:<fontcolor=red><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>篇<fontcolor=red><b><%=rs.PageSize%></b></font>篇/页]
转到<inputname=pagesize=5value=<%=page%>>页
<inputtype=submitvalue=Enter>
</form>

<%
rs.close
Setrs=Nothing
conn.close
setconn=Nothing
%>



效果页面参看：