在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＞