asp简单的分页技术

来源：互联网发布：唱歌跑调怎么办软件编辑：程序博客网时间：2024/04/30 12:42

<%@ LANGUAGE="VBSCRIPT" %><%Set rs=Server.CreateObject("ADODB.Recordset")Strconn="driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("../admin/mdb/web.mdb")sql="select * from news order by id desc"%><%Dim RecordPerPage, absPageNum, TotalPages, absRecordNum, rsTest, StrSQL'absPageNum - 当前页为第几页'TotalPages - 总的页数'absRecordNum - 当前页中某一条记录的序号, 如 1-10RecordPerPage = 15 '每页显示的记录数' 取得所输出数据的当前页码If Request.ServerVariables("CONTENT_LENGTH") = 0 Then'若没收到表单递交的数据(如首次加载该页时), 则从第 1 页开始显示absPageNum = 1 Else '取出按按钮时的页码 absPageNum = CInt(Request.Form("PressPageNum")) '如按上一页则页码 -1, 按下一页, 则页码 +1 If Request.Form("Submit") = "上一页" ThenabsPageNum = absPageNum - 1 ElseIf Request.Form("Submit") = "下一页" Then absPageNum = absPageNum + 1 End IfEnd Ifrs.CursorType = adOpenStatic '游标需要前后移动rs.CacheSize = RecordPerPage '设置这个选项会提高性能rs.open sql,Strconn,3,1rs.PageSize = RecordPerPage '设置每一页的记录数If Not(rs.EOF) Thenrs.AbsolutePage = absPageNumEnd IfTotalPages = rs.PageCount%><% ' 下面部分输出当前页的数据至浏览器 %>显示新闻当前共有<%=rs.Recordcount%>条新闻

<% ' 用循环输出当前页的 10 条数据For absRecordNum = 1 to rs.PageSize%> ◇ " target="_blank"><%=rs("title")%> <%=rs("uptime")%> <% rs.MoveNext If rs.EOF ThenExit For ' 如果已到记录尾, 退出 - 如最后一页数据不满页时End IfNextrs.Close Set rs = Nothing : Set Cnn = Nothing%><% ' 下面部分是两个按钮 "上一页" "下一页" %>

[ 第 <%= absPageNum %>页, 共 <%= TotalPages %> 页 ]