《ASP动态网站制作实例教程》第8章：数据库访问.pptVIP

运行效果如下图所示。 数据表中存储的数据记录可能有成千上万条，如果一次全部显示出来会既浪费时间又不便于查看。而如果能想办法实现数据的分页显示，就能很好地解决这个问题，下面将结合具体的程序示例介绍怎样实现数据的分页显示。 首先编写一个自定义过程，用于实现数据的分页输出，该过程的第一个参数rs是Recordset对象的实例，第一个参数page用来控制显示第几页。 自定义过程displayOnePage的程序代码如下： % Sub displayOnePage(rs,page) 输出表头（字段名） Response.Write centertable border=1 Response.Write tr for i = 0 to rs.Fields.Count -1 Response.Write tdcenterb rs(i).Name /b/center/td next 将page参数赋值给AbsolutePage rs.AbsolutePage = page 8.1 Recordset对象 8.1.5 实现数据的分页显示 循环显示数据表的内容（记录） for xPage = 1 to rs.PageSize Response.Write tr RecordNo = ( 1) * rs.PageSize + xPage for i = 0 to rs.Fields.Count -1 Response.Write td rs(i).Value /td next Response.Write /tr rs.MoveNext if rs.EOF then exit for next Response.Write /table/center End Sub % 该过程代码中的PageSize用来确定循环的次数，也就是要显示多少条记录。例如，设PageSize = 6，page = 2。这时，由于AbsolutePage = page，所以当前的记录为第（2 - 1）* 6 + 1 = 7条，然后循环6次，输出显示从第7到第12条的记录，也就是第2页的记录。下例这段代码通过调用displayOnePage过程来实现记录的分页显示。 【例8.5】调用displayOnePage过程显示学生表的第1页的记录。 ASP程序代码如下： !--#include file=displayOnePage.asp-- % Set Conn = Server.CreateObject(ADODB.Connection) Conn.Open DSN=ODBC测试 Set rs = Server.CreateObject(ADODB.Recordset) rs.Open 学生表,Conn,3 % html body h2 align=center显示学生表第1页的记录/h2 hr % rs.PageSize = 2 displayOnePage rs,1 rs.Close Conn.Close set Conn = nothing % hr /body /html 该例中，displayOnePage过程的第2个调用参数为1，又因为PageSize = 2，所以程序执行后会显示“学生表”第1页的有关记录，即“学生表”的前两条记录。执行效果如下图所示。 【例8.6】对上例的程序进行修改，使其具有翻页的功能。 ASP程序代码如下： !--#include file=displayOnePage.asp-- % Set Conn = Server.CreateObject(ADODB.Connection) Conn.Open DSN=ODBC测试 Set rs = Server.CreateObject(ADODB.Recordset) rs.Open 学生表,Conn,3 % html body bgcolor=#CCFFFF h2 align=center显示学生表的记