=============================================
设置一个recordset页面。在这个例子里，我们已有一个已经做好的数据库，并且把分页的每一页设为显示一条记录
dim conn ado connection dim rs recordset dim ssql sql get
if pagenum = "" then pagenum = 1
set conn = server.createobject("adodb.connection")
conn.open"dsn=databasename "set rs = server.createobject("adodb.recordset")
ssql = "select * from tblorders" rs.open ssql, conn, 3 建立单个页
rs.pagesize = 1 设置在每页显示多少条记录icnt = rs.pagecount 得到recordset里的记录总数
select case request("nav") case "" session("pagenum") = 1
case "first" first record session("pagenum") = 1
case "prev" previous record
if session("pagenum") > 1 then
session("pagenum") = session("pagenum") - 1 end if
case "next" next record
if session("pagenum")< rs.pagecount then
session("pagenum") = session("pagenum") + 1 end if
case "last" last record session("pagenum") = rs.pagecount
end select 转到指定的页面(这里是session("pagenum")
rs.absolutepage = clng(session("pagenum")) // 在form中显示记录转移
// 记录转移按钮设置 <form method="get" action="secureorder.asp">
<p><input type="submit" name="nav" value="first"><input type="submit" value="prev"
name="nav"><input type="submit" value="next" name="nav"><input type="submit" value="last"
name="nav"></p> </form>
=====================================================
这是比较容易实现分页的方法：)yobigd@home.com -----------------------------------------------
asp精品屋 翻译整理by explorer---------------------------------------------
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
