记录集分页显示的实现

大家都知道在Dreamwerver中可以很方便地实现记录集的分页显示，但是生成的代码的确很庞大，影响了网页的显示速度，看起来条理也不是很清晰，那么，可不可以用简单的方式实现同样的功能呢？当然可以，笔者通过以下一些简单的代码就实现了记录集的分页显示，现在转过来大家一起分享。

主要代码如下：

View Code 
 1 ＜%
 2  If rs1.recordcount＞0 Then ' 记录集不为空则处理记录
 3    rs1.pagesize = 10 ' 设置每页显示的记录数　
 4 　 num=rs1.recordcount ' 记录总数　
 5 　 pagenum=rs1.pagecount ' 页总数　
 6 　 page=request("page") ' 获取页码的原始信息　
 7 　 ' 处理页码原始信息的开始！ 
 8    If page ＜＞ "" then
 9 　　 page = cint(page)　
10 　 if err.number ＜＞ 0 then　
11 　　 err.clear　　
12 　   page = 1　　
13    end if　　
14    if page ＜ 1 then　
15 　　 page = 1　　
16    end if
17  else　　
18    page = 1
19  End if　
20   if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
21 　　page=1
22 　end if
23 　' 处理页码原始信息的结束！设置当前页码
24 　rs1.absolutepage = page
25 %＞
26 
27   ＜!--判断当前页是否是最后一页，并根据判断设置记录的重复显示--＞
28   ＜% if page＜＞pagenum then　
29 　　     lablenum=rs1.pagesize 
30 　　    else
31 　　　   lablenum=num-(page-1)*rs1.pagesize　
32       　end if　　
33         for i=1 to lablenum
34    %＞
35    ＜tr bgcolor="#FFFFFF"＞
36       　＜td height="25"＞＜div align="center"＞
37         ＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
38       　＜td＞＜div align="center"＞
39         ＜%=(rs1.Fields.Item("名称").Value)%＞＜/div＞＜/td＞
40       　＜td＞＜div align="center"＞
41         ＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
42       　＜td＞＜div align="center"＞
43         ＜%=(rs1.Fields.Item("类别").Value)%＞＜/div＞＜/td＞
44       　＜td＞＜div align="center"＞
45         ＜%=(rs1.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞
46       　＜td＞＜div align="center"＞ 
47         ＜%=(rs1.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞＜/tr＞
48    ＜%　rs1.movenext
49     next
50     %＞
51     ＜!--当前页的记录显示结束，以下代码为记录集分页链接代码--＞
52     ＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞
53 　    ＜tr＞
54  　　    ＜td height="35"＞
55       　　　＜div align="right"＞
56         　　　　＜font color="#333333"＞　
57            　　　　共有 ＜%=num%＞ 个链接 | 　
58                　　＜a href=linkadmin.asp?page=1＞首页＜/a＞ | 
59 　　　　　        ＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一页＜/a＞|
60  　　　　　       ＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞下一页＜/a＞| 　
61            　　　＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾页＜/a＞ | 　　　
62                  　　页次:＜%=page%＞/＜%=pagenum%＞页 | 　
63            　　　　　共＜%=pagenum%＞页　　
64              　　＜/font＞
65         　　　＜/div＞
66         　　＜/td＞　
67          ＜/tr＞
68      ＜/table＞
69     ＜!--记录集分页链接代码结束，记录集为空时执行以下代码--＞
70     ＜%else%＞
71     ＜tr bgcolor="#FFFFFF"＞＜td height="25" colspan="6"＞
72     ＜div align="center"＞＜% response.Write("没有结果可显示！") %＞＜/div＞  ＜/td＞
73     ＜/tr＞
74     ＜%end ifrs1.Close()Set rs1 = Nothing%＞
75 
76 
77 本文来自“Qi9电脑知识网”：http://www.qi9.cn 原文地址：http://www.qi9.cn/html/788_2050.html
posted @ 2011-08-19 17:22  清萱  阅读(363)  评论(0)    收藏  举报