 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
大家都知道，ASP有着强盛的数据库操作能力，这与她能方便的调用ActiveX对象是密不可分的。下面我给大家介绍一种ASP利用ADO对象实现对数据库记录分页显示的方式。以下代码均在WIN98+PWS+MSACCESS环境下通过。 在这里我主要通过ADO对象集中的Recordset对象来实现各种数据库操作的。先介绍几个用于分页显示的Recordset属性。 PageSize：每页显示的记录数。 PageCount：根据用户设好的PageSize和表中的总记录数，系统自动算出总页数。 RecordCount：表中的总记录数。 AbsolutePage：表示当前页码。如将AbsolutePage属性设为3，则当前记录移至第3页第1条（也就是第31条）。 看到Recordset有了这几个属性后，相信大家也都觉得做一个分页显示的程序是很简朴的。下面讲一下思路，所有实现这一功能的代码都放在 display.asp中，按执行的顺序分别是：打开数据库及表、读取用户要求的显示方法、设定好PageSize和AbsolutePage、将内容输出到浏览器、设定好导航条。以下是代码： >%\\\'---------------------------打开数据库及表 set conn=server.createobject("ADODB.Connection") filepath=server.mappath("abc.mdb") \\\'-------假设数据库文件是"abc.mdb" conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath set rs=server.createobject("ADODB.Recordset") rs.open "main",conn,3,2 \\\'-------假设表的名字是"main" %> >%\\\'---------------------------读取用户要求的显示方法(通过参数传递) line=cint(request("line")) page=cint(request("page")) %> >%\\\'---------------------------按用户要求设定好显示方法 rs.PageSize=line rs.AbsolutePage=page %> >%\\\'---------------------------显示内容%> >table width="100%" border="1"> >tr> >%for i=0 to rs.Fields.Count-1%> >td>>%=rs.Fields(i).name%>>/td> >%next%> >/tr>>%\\\'-------以上部分显示表头,即字段名%> >%for i=1 to rs.PageSize%> >tr> >%for j=0 to rs.Fields.Count-1%> >td>>%=rs.Fields(j).value%>>/td> >%next%> >/tr> >%rs.movenext%> >%if rs.eof then exit for%> >%next%>>%\\\'-------以上部分显示表的内容%> >/table> >%\\\'---------------------------导航条%> >table width=100% >>tr> >td> >%if page>>1 then%> >a href=display.asp?page=1&line=>%=line%>>第一页>/a> >%else%>第一页>%end if%> >/td> >td> >%if page>1 then%> >a href=display.asp?page=>%=page-1%>&line=>%=line%>>前一页>/a> >%else%>前一页>%end if%> >/td> >td> >%if page>rs.PageCount then%> >a href=display.asp?page=>%=page+1%>&line=>%=line%>>下一页 >%else%>下一页>%end if%> >/td> >td> >%if page>>rs.PageCount then%> >a href=display.asp?page=>%=rs.PageCount%>&line=>%=line%>>最后一页>/a> >%else%>最后一页>%end if%> >/td>>%\\\'-------以上四项都需要进行判定:假如在第一页就不提供“第一页”和“前一页”的链接 \\\'-------假如在最后一页就不提供“最后一页”和“后一页”的链接%> >td> >form method="POST" action="display.asp?line=>%=line%>"> 请输入页码:>input type="text" name="page" size="3" value=">%=page%>"> >/form> >/td> >td> >form method="POST" action="display.asp?page=>%=page%>"> 请设定每页>input type="text" name="line" size="3" value=">%=line%>">行 >/form> >/td>>%\\\'-------因为两个表单都只有一个表单域,所以没有提供发送按钮,直接打回车就行了%> >td> 第>%=page%>页/总>%=rs.PageCount%>页 >/td> >/tr>>/table> 这只是一个最基本的程序，没有进行优化处理，也还有一些bug，下面我们一起来使它更“完美”一些。 一．关于参数传递。如果表中有46条记录，然后我们在地址栏中敲入http.//localhost/display.asp?line=10& page=2（假设这是准确的路径）肯定浏览器将给我们显示第二页的十条记录。但是假如在地址栏中只敲入 http.//localhost/display.asp，浏览器却给我们一个出错信息。如何解决呢？我们必须在读取这些参数时加一个判定，假如参数是空的，就赋给它一个初值，以防出错。将“读取用户要求的显示方法”部分用以下代码代替： >% if request("page")>>"" then page=cint(request("page")) else page=1 \\\'-------假如参数page为空，就给它赋值1 end if if request("line")>>"" then line=cint(request("line")) else line=10 \\\'-------假如参数line为空，就给它赋值10 end if %> 二．参数的合理性问题。假如我们在地址栏中敲入http.//localhost/display.asp?line=20&page=4会出现什么情况呢？浏览器报错。因为表中只有46条记录，而我们要它以每页显示二十条，第四页的二十条记录，也就是第六十一条到第八十条记录。显然会出错。同样情况还会出现在导航条中，假如当前浏览器中显示的是以每页十条，第四页的内容，我们去设定它以每页二十条显示，同样也会出错。解决方式还是相同的，先判定一下参数的合理性，然后再设置显示方法。将“按用户要求设定好显示方法”部分用以下代码代替。 >% if page>(rs.RecordCount-1)line+1 then \\\'-------通过计算可知，最大页数=（总记录数-1）每页行数+1 response.write("error!") \\\'-------假如参数不合实际，输出"error!" response.end \\\'-------终止程序 end if rs.PageSize=line rs.AbsolutePage=page %> 三．验证表单域。导航条中的两个输入文本框输入的都必须是整数，否则也会出错。我们可以利用FrontPage的验证表单域功能开完成，这里就不多说了。 四．优化。到目前为止，这个程序还有一个缺点。在数据库的存取过程中，最花时间的要数是数据库的打开和Recordset对象的建立，而这个程序每次执行都会打开数据库及建立Recordset对象，极大的降低了效率，一旦访问量增大，这个程序也就是去了价值。解决的办法是：第一次执行程序时，打开数据库及建立Recordset对象，并将这些存在session中，下次执行时直接将session中的值返回就行了。用以下代码代替“打开数据库及表”部分。 >% if not isobject(session("conn")) then set conn=server.createobject("ADODB.Connection") filepath=server.mappath("abc.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath set rs=server.createobject("ADODB.Recordset") rs.open "main",conn,3,2 set session("conn")=conn set session("rs")=rs else set conn=session("conn") set rs=session("rs") end if %> 至此，一个比较“完美”的程序完成了。 返回类别: 教程 上一教程: ASP实现结构化列举并查看某路径下所有文件 下一教程: 使用REPEATER模板 您可以阅读与"利用ASP实现对表的分页浏览"相关的教程: · 利用ASP实现对表的分页浏览(上) · 利用ASP实现对表的分页浏览（上） · 利用ASP实现对表的分页浏览（下） · 利用ASP实现对表的分页浏览(下) · ASP实现对新闻的分页例子 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
