傻瓜型的分页实现-ASP教程,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="page.asp?page=1">首页</a><%else%>首页<%end if%> |

<%if page>1 then%><a href="page.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%> |

<%if page<rs.pagecount then%><a href="page.asp?page=<%=page+1%>">下一页</a><%else%>下一页<%end if%> |

<%if page<>rs.pagecount then%><a href="page.asp?page=<%=rs.pagecount%>">末页</a><%else%>末页<%end if%> |

共<%=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