[推荐]在ASP中轻松实现记录集分页显示
热 荐 ★★★★
在ASP中轻松实现记录集分页显示
大家都知道在Dreamwerver中可以很方便地实现记录集的分页显示，但是生成的代码的确很庞大，影响了网页的显示速度，看起来条理也不是很清晰，那么，可不可以用简单的方式实现同样的功能呢？当然可以，笔者通过以下一些简单的代码就实现了记录集的分页显示，现在拿出来大家一起分享。
主要代码如下:
＜%
If rs1.recordcount＞0 Then ’ 记录集不为空则处理记录
rs1.pagesize = 10 ’ 设置每页显示的记录数
num=rs1.recordcount ’ 记录总数
pagenum=rs1.pagecount ’ 页总数
page=request(page) ’ 获取页码的原始信息
’ 处理页码原始信息的开始！
If page ＜＞ then
page = cint(page)
if err.number ＜＞ 0 then
err.clear
page = 1
end if
if page ＜ 1 then
page = 1
end if
else
page = 1
End if
if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
page=1
end if
’ 处理页码原始信息的结束！设置当前页码
rs1.absolutepage = page
%＞
＜!--判断当前页是否是最后一页，并根据判断设置记录的重复显示--＞
＜% if page＜＞pagenum then
lablenum=rs1.pagesize
else
lablenum=num-(page-1)*rs1.pagesize
end if
for i=1 to lablenum
%＞
＜tr bgcolor=#FFFFFF＞
＜td height=25＞＜div align=center＞＜%=(rs1.Fields.Item(id).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(名称).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(地址).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(类别).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(最后修改).Value)%＞＜/div＞＜/td＞
＜td＞＜div align=center＞＜%=(rs1.Fields.Item(修改人).Value)%＞＜/div＞＜/td＞
＜/tr＞
＜%
rs1.movenext
next
%＞
＜!--当前页的记录显示结束，以下代码为记录集分页链接代码--＞
＜table width=70% border=0 align=center cellpadding=0 cellspacing=0＞
＜tr＞
＜td height=35＞
＜div align=right＞
＜font color=#333333＞
共有 ＜%=num%＞ 个链接 |
＜a href=linkadmin.asp?page=1＞首页＜/a＞ |
＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一页＜/a＞ |
＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞下一页＜/a＞ |
＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾页＜/a＞ |
页次:＜%=page%＞/＜%=pagenum%＞页 |
共＜%=pagenum%＞页
＜/font＞
＜/div＞
＜/td＞
＜/tr＞
＜/table＞
＜!--记录集分页链接代码结束，记录集为空时执行以下代码--＞
＜%else%＞
＜tr bgcolor=#FFFFFF＞
＜td height=25 colspan=6＞＜div align=center＞＜% response.Write(没有结果可显示！) %＞
＜/div＞＜/td＞
＜/tr＞
＜%
end if
rs1.Close()
Set rs1 = Nothing
%＞
文章录入：cainiaowang 责任编辑：cainiaowang
您现在的位置：