ASP中实现分页显示的七种武器

　2006-04-07 11:58:01　来源：WEB开发网　　　

核心提示： 第七种暂取名叫“DEOM法”，它也是利用了VI6.0中建立的数据环境对象模型（Data Environment Object Model）建立Recordset对象，ASP中实现分页显示的七种武器(2)，这也是在网页编程上比较少见的新方法，与SOM模型相比，网页的名

第七种暂取名叫“DEOM法”。它也是利用了VI6.0中建立的数据环境对象模型（Data Environment Object Model）建立Recordset对象。这也是在网页编程上比较少见的新方法，与SOM模型相比，自有它的优点，这将在后文详述。

在后面所举的所有例子源代码，都可以直接拷贝使用，你甚至可以不懂其原理，只要把其中的粗斜体字部分换成相应自己的数据库名或字段名就可以了。

在开始详细介绍各种分页方法前，让我们先创建一个数据库：用Office97中的access自创一个Employee.mdb，其中建一个表emp，只设三个字段：emp ID，last name和first name。为什么这么简单，是因为我们关心的是怎样处理recordset的结果。

第一种：参数直接代入法

这种方法是用手工建立Recordset对象，利用其pagesize（每页指定显示记录数），pagecount（总页码数）和absolutepage（当前页码数）属性来控制分页的输出。分页采用＜href＞直接带页码参数的方法来控制翻页。网页的名字为emp1.asp。源代码如下：

＜%//建立与employee.mdb数据库的连接。 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=employee.mdb" //建立emp表的Recordset对象实例rs。 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "emp", conn, 3 PageSize = 10 //pagesize属性指定了每页要显示的记录条数 Page = CLng(Request("Page")) ’string型转化为long型 If Page ＜ 1 Then Page = 1 If Page ＞ rs.PageCount Then Page = rs.PageCount If Page ＜＞ 1 Then 　Response.Write "＜A HREF=emp1.asp?Page=1＞第一页＜/A＞" 　Response.Write "＜A HREF=emp1.asp?Page=" & (Page-1) & "＞上一页＜/A＞" End If If Page ＜＞ rs.PageCount Then 　Response.Write "＜A HREF=emp1.asp?Page=" & (Page+1) & "＞下一页＜/A＞" 　Response.Write "＜A HREF=emp1.asp?Page="&rs.PageCount & "＞最后一页＜/A＞" End If Response.write"页码：" & Page & "/" & rs.PageCount & "＜/font＞" //每一页的显示 //显示表头 Response.Write "＜CENTER＞＜TABLE BORDER=1＞" Response.WRITE "＜TR＞＜TD＞" & rs.Fields("emp ID").Name & "＜/TD＞" Response.WRITE "＜TD＞" & rs.Fields("last name").Name & "＜/TD＞" Response.WRITE "＜TD＞" & rs.Fields("first name").Name & "＜/TD＞＜/TR＞" //循环显示每条记录 rs.AbsolutePage = Page //把页码赋给absolutepage属性从而知当前页的首条记录号 For iPage = 1 To rs.PageSize // Response.WRITE "＜TR＞＜TD＞" & rs.Fields("emp ID").Value & "＜/TD＞" Response.WRITE "＜TD＞" & rs.Fields("first name").Value & "＜/TD＞" Response.WRITE "＜TD＞" & rs.Fields("last name").Value & "＜/TD＞＜/TR＞" rs.MoveNext If rs.EOF Then Exit For Next Response.Write "＜/TABLE＞＜/CENTER＞"%＞