网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > ASP > 正文
在ASP中轻松实现记录集分页显示
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/11/25
下载{$ArticleTitle}原创论文样式
  大家都知道在Dreamwerver中可以很方便地实现记录集的分页显示,但是生成的代码的确很庞大,影响了网页的显示速度,看起来条理也不是很清晰,那么,可不可以用简单的方式实现同样的功能呢?当然可以,笔者通过以下一些简单的代码就实现了记录集的分页显示,现在拿出来大家一起分享。

  主要代码如下:

<%
 If rs1.recordcount>0 Then '' 记录集不为空则处理记录
  rs1.pagesize = 10 '' 设置每页显示的记录数
  num=rs1.recordcount '' 记录总数
  pagenum=rs1.pagecount '' 页总数
  page=request("page") '' 获取页码的原始信息
  '' 处理页码原始信息的开始!
  If page <> "" then
   page = cint(page)
  if err.number <> 0 then
   err.clear
   page = 1
  end if
  if page < 1 then
   page = 1
  end if
 else
  page = 1
 End if
 if page*rs1.pagesize > num and not((page-1)*rs1.pagesize < num)then
  page=1
 end if
 '' 处理页码原始信息的结束!设置当前页码
 rs1.absolutepage = page
%>
<!--判断当前页是否是最后一页,并根据判断设置记录的重复显示-->
<% if page<>pagenum then
   lablenum=rs1.pagesize
  else
   lablenum=num-(page-1)*rs1.pagesize
  end if
  for i=1 to lablenum
%>
<tr bgcolor="#FFFFFF">
 <td height="25"><div align="center"><%=(rs1.Fields.Item("id").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("名称").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("地址").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("类别").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("最后修改").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("修改人").Value)%></div></td>
</tr>
<%
 rs1.movenext
next
%>
<!--当前页的记录显示结束,以下代码为记录集分页链接代码-->
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr>
  <td height="35">
   <div align="right">
    <font color="#333333">
     共有 <%=num%> 个链接 |
     <a href=linkadmin.asp?page=1>首页</a> |
     <%if page>1 then%><a href=linkadmin.asp?page=<%=page-1%>><%end if%>上一页</a> |
     <%if page<pagenum then%><a href=linkadmin.asp?page=<%=page+1%>><%end if%>下一页</a> |
     <a href=linkadmin.asp?page=<%=pagenum%>>尾页</a> |
      页次:<%=page%>/<%=pagenum%>页 |
      共<%=pagenum%>页
    </font>
   </div>
  </td>
 </tr>
</table>
<!--记录集分页链接代码结束,记录集为空时执行以下代码-->
<%else%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="6"><div align="center"><% response.Write("没有结果可显示!") %>
</div></td>
</tr>
<%
end if
rs1.Close()
Set rs1 = Nothing
%>

  好了,很简单吧!只要简单地修改一下就能插入到你的网页显示记录的地方了,赶快试试吧!

(责任编辑:admin)

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号