首页 >> 读书频道 >> 电脑 >> 如何实现多记录的分页显示
 
· 在ASP中用集合成批操作
· RecordSet的Lo
· RecordSet的Cu
· ADO Recordse
· 获得删除纪录的个数
· Recordset Cu
· 数据库设计经验谈
· 利用SQL发E-MAIL
· 影响SQL server
· 用ASP调用SQL Se
· 如何操作SQL的TXT字
· 怎样将一个表中的Iden
 
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 红楼梦:120回全本[清
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
· 管理三十六计
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:ASP与数据库 2006-8-28

 

代码很典型,大家自己看看把。
<%@ 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
 %>

 <HTML>
 <BODY>
 <B>姓名 - 薪水</B><BR>
 <%
 Count = 0
 Do While Not rs.EOF And Count < rs.PageSize
 Response.Write(rs("Name") & " - " & rs
("Salary") & "<BR>")
 Count = Count + 1
 rs.MoveNext
 Loop

 Response.Write("第 " & CurPage & " 页,共 "
& TotalPages & "页<P>")

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

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

 %>

 </BODY>
 </HTML>

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

[ 1 ]
如何实现多记录的分页显示 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑