当前位置:编程学习 > asp >>

傻瓜型的分页实现

答案:刚才看到一个网友提到分页的问题,就想起以前为了弄个分页功能伤透了脑筋,现在我将分页做成自认为是最简单的效果,让大家参考。
  这一段是打开表并进行要素的赋值(省去了连接数据库的操作,请大家自行解决):
<%sql="……………………"
rs.open sql,conn,1,1 '连接表
rs.pagesize=10 '这是每页显示几条记录10代表是10条
page=clng(request("page")) '取得页码值
if page="" or page<1 then page=1 '处理非法页码问题
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage=page%>

  接下来将下面的代码放到需要的位置,用于显示翻页链接:
<%if page<>1 then%><a href=><%if page>1 then%><a href=><%if page<rs.pagecount then%><a href=><%if page<>rs.pagecount then%><a href=>共<%=rs.pagecount%>页/第<%=page%>页/<%=rs.recordcount%>条记录

  再接下来将没有用分页时的语句:
While not rs.eof
……
rs.movenext
wend

  替换为以下代码:
for ipage=1 to rs.pagesize
…………
if rs.eof then exit for '最后记录跳出循环
rs.movenext
next


  好了,这样够简单吧。。我刚开始玩这个的时候找来找去都是一易做图代码,弄得我头都快晕了。。但愿对大家有所帮助。

  第一次在这里贴“原创”,但不知道够不够资格上“文档中心”哦。。呵呵。。

SunLine
2003.1.10

上一个:万年历原程序
下一个:ASP无组件上传·从原理剖析到实践(下)

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,