ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 如何实现多记录的分页显示(转)

如何实现多记录的分页显示(转)

原创 Linux操作系统 作者:jcszjswkzhou 时间:2018-12-16 16:33:03 0 删除 编辑
代码很典型,大家自己看看把。
<%@ LANGUAGE="VBSCRIPT" %>
           <% Option Explicit %>
           <!--#include virtual="/ADOVBS.inc"-->
           <%
             '设置你一页要显示多少记录
             Const NumPerPage = 10

             '取得当前所在页
             Dim CurPage
             If Request.QueryString("CurPage") = "" then
               CurPage = 1 'We're on the first page
             Else
               CurPage = Request.QueryString("CurPage")
             End If

             Dim conn
             Set conn = Server.CreateObject
("ADODB.Connection")
             conn.Open "DSN=MyDB"

             
             Dim rs
             Set rs = Server.CreateObject
("ADODB.Recordset")

             '设置游标属性
             rs.CursorLocation = adUseClient

             '设置缓存大小 = 每页需显示的记录数目
             rs.CacheSize = NumPerPage

             Dim strSQL
             strSQL = "SELECT Name,Salary FROM Employee
ORDER BY Name"
             rs.Open strSQL, Conn

             rs.MoveFirst
             rs.PageSize = NumPerPage

             '计算最多有多少页
             Dim TotalPages
             TotalPages = rs.PageCount

             rs.AbsolutePage = CurPage

             Dim count
           %>

           
           
           姓名 - 薪水

           <%
             Count = 0
             Do While Not rs.EOF And Count < rs.PageSize
               Response.Write(rs("Name") & " - " & rs
("Salary") & "
")
               Count = Count + 1
               rs.MoveNext
             Loop

             Response.Write("第 " & CurPage & " 页,共 "
& TotalPages & "页

")

             '显示 Next / Prev 按钮
             if CurPage > 1 then
               Response.Write("VALUE=PREV
           ONCLICK=""document.location.href='thisfile.asp?
curpage=" & curpage - 1
           & "';"">")
             End If

           if CInt(CurPage) <> CInt(TotalPages) then
               Response.Write("VALUE=NEXT
           ONCLICK=""document.location.href='thisfile.asp?
curpage=" & curpage + 1
           & "';"">")
             End If

           %>

           
           


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-124508/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2007-08-29

  • 博文量
    170
  • 访问量
    94898