当前位置:首页 > ASP教程 > ASP基础

ASP编程入门进阶(二十):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进行修改如下:


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

<%
set rs = server.createobject ("adodb.recordset")
sql = "select * from cnarticle order by cn_id desc"
rs.open sql,conn,1,1
%>

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

<%
for i = 1 to rs.pagesize '利用for next 循环依次读出当前页的记录
if rs.eof then
exit for
end if
response.write("<br>文章内容是:"& rs("cn_content"))
rs.movenext
next%>

<%
rs.close
set rs = nothing
conn.close
set conn=nothing
%>



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

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


<%
for i = 1 to rs.pagesize
if rs.eof then
exit for
end if
response.write("<br>文章内容是:"& rs("cn_content"))
rs.movenext
next%>


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



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

<%
set rs = server.createobject ("adodb.recordset")
sql = "select * from cnarticle"
rs.open sql,conn,1,1
%>

<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page") 'page值为接受值
rs.pagesize = 2 '每页显示记录数
if not isempty(page) then '如果page已经初始化...
if not isnumeric(page) then '判断page值是否为数字
page=1
else
page = cint(page) '接收page并化为数字型赋给page变量
end if
if page > rs.pagecount then '如果接收的页数大于总页数
rs.absolutepage = rs.pagecount '设置当前显示页等于最后页
elseif page <= 0 then '如果page小于等于0
rs.absolutepage = 1 '设置当前显示页等于第一页
else
rs.absolutepage = page '如果大于零,显示当前页等于接收的页数
end if
else
rs.absolutepage=1
end if
page = rs.absolutepage%>

<%
for i = 1 to rs.pagesize '利用for next 循环依次读出当前页的记录
if rs.eof then
exit for
end if
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
%>

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

[页次:<font color=red><b><%=page%></b></font>/<%=rs.pagecount%>]
[共<%=rs.recordcount%>篇 <font color=red><b><%=rs.pagesize%></b></font>篇/页]
转到<input name="page" size=5 value="<%=page%>">页
<input type="submit" value="enter">
</form>

<%
rs.close
set rs = nothing
conn.close
set conn=nothing
%>



效果页面参看:
http://www.cnbruce.com/database/

长长的分页代码,搞懂是真不容易,平台引用起来还需要修改也是比较麻烦。最后能做成一个函数,下次调用起来就很方便了。


<%
function pagination(pagecount,pagesize,page,resultcount)
    dim query, a, x, temp
    action = "http://" & request.servervariables("http_host") & request.servervariables("script_name")
    query = split(request.servervariables("query_string"), "&")
    for each x in query
     a = split(x, "=")
     if strcomp(a(0), "page", vbtextcompare) <> 0 then
     temp = temp & a(0) & "=" & a(1) & "&"
     end if
    next    
    response.write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "page='+this.page.value;return false;"">")        
    if page<=1 then
        response.write ("[首页] [上一页] ")
    else        
        response.write("[<a href=" & action & "?" & temp & "page=1>首页</a>] ")
        response.write("[<a href=" & action & "?" & temp & "page=" & (page-1) & ">上一页</a>] ")
    end if

    if page>=pagecount then
        response.write ("[下一页] [尾页]")        
    else
        response.write("[<a href=" & action & "?" & temp & "page=" & (page+1) & ">下一页</a>] ")
        response.write("[<a href=" & action & "?" & temp & "page=" & pagecount & ">尾页</a>]")            
    end if
    response.write("[页次:<font color=red>" & page & "</font>/" & pagecount)    
    response.write("] [共" & resultcount & "条 <font color=red>"& pagesize & "</font>条/页]")
    response.write(" 转到" & "<input name=page size=4 value=" & page & ">" & "页<input type=submit value=go>")
end function
%>



如要引用,则可以:
<%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount) %>
【说明】本文章由站长整理发布,文章内容不代表本站观点,如文中有侵权行为,请与本站客服联系(QQ:)!

相关教程推荐

其他课程推荐