类似google的ASP分页代码[测试通过]

来源:风之相随'S BLOG 时间:2009-03-13 12:43:00 

<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
.style1 {font-size: 14px}
-->
</style>

<%
'敛接数据库
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("data/sqdsb.mdb")+";Persist Security Info=False"
set conn = Server.CreateObject("ADODB.Connection")
conn.open strConn
%>
内容显示>>><br><br>
<%
'内容循环前
set rs=server.createobject("adodb.recordset")
sql="select * from tb_article order by id desc"
rs.open sql,conn,1,3
page=1 ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>

<%=rs("title")%><br><br>

<%
rs.movenext
next '循环结束
%>
分页>>><br><br>
<table border="0" cellpadding="0" cellspacing="0">
<tr align="center" valign="top">

<!--控制第一张图片,有没有上一页-->
<td width="68" align="center">
<%if page=1 or page<1 then%>
<img src="nav_first.gif">
<%end if%>
<%if page>1 then%>
<a href="?Page=<%=page-1%>"><img src="nav_previous.gif" width="68" height="26" border="0"><br><span class="style1">上一页</span></a>
<%end if%>
</td>
<!--//-->

<!--当前页面前,循环显示4页-->
<%
'1-4页要特殊对待
if page>1 then a=1
if page>2 then a=2
if page>3 then a=3
if page>4 then a=4
'当前页面前,循环显示4页
for i=page-a to page-1 %>
<td width="16" align="center">
<a href="?Page=<%=i%>"><img src="nav_page.gif" width="16" height="26" border="0"><br><%=i%></a>
</td>
<% next %>

<!--当前所在页面-->
<td width="16" align="center">
<img src="nav_current.gif"><br><font color="#FF0000"><%=page%></font>
</td>
<!--//-->

<!--当前页面后,循环显示4页-->
<%
for i=page+1 to page+4
if i>rs.PageCount then exit for
%>
<td width="16" align="center">
<a href="?Page=<%=i%>"><img src="nav_page.gif" width="16" height="26" border="0"><br><%=i%></a>
</td>
<%
next
%>
<!--//-->

<!--控制最后一张图片,有没有下一页-->
<td width="100" align="center">
<% if page=rs.PageCount or page>rs.PageCount then %>
<img src="nav_last.gif">
<% else %><a href="?Page=<%=page+1%>"><img src="nav_next.gif" width="100" height="26" border="0"><br><span class="style1">下一页</span></a>
<% end if %>
</td>
<!--//-->

</tr>
</table>
<!--//分页程序-->

标签:分页,google分页,代码,asp
0
投稿

猜你喜欢

  • 150行python代码实现贪吃蛇游戏

    2021-07-15 06:43:20
  • Python程序员鲜为人知但你应该知道的17个问题

    2021-06-14 11:37:14
  • Mysql的语句生成后门木马的方法

    2024-01-15 20:46:23
  • Python matplotlib画图时图例说明(legend)放到图像外侧详解

    2021-03-05 13:42:45
  • 安装MSDE2000提示为了安全起见,要求使用强 SA 密码的解决方法

    2024-01-14 08:49:09
  • 关于PyTorch环境配置及安装教程(Windows10)

    2021-04-23 09:04:31
  • mysql之动态增添字段实现方式

    2024-01-27 13:09:23
  • 关于SQL Server中索引使用及维护简介

    2008-12-24 15:39:00
  • Python imgaug库安装与使用教程(图片加模糊光雨雪雾等特效)

    2021-06-23 10:07:16
  • 获取SQL Server数据库元数据的几种方法

    2024-01-17 16:00:44
  • 基于python分享极坐标下的几类典型曲线

    2023-05-02 18:18:37
  • Python实现返回数组中第i小元素的方法示例

    2021-12-23 14:58:44
  • Python+Selenium实现短视频自动上传与发布的实践

    2021-06-12 15:58:46
  • django创建自定义模板处理器的实例详解

    2022-07-29 19:50:00
  • Python Requests 基本使用及Requests与 urllib 区别

    2023-04-07 17:58:11
  • pandas创建DataFrame的7种方法小结

    2022-01-11 19:26:18
  • 在Django中URL正则表达式匹配的方法

    2021-06-09 22:38:57
  • Python实现批量导入1000条xlsx数据

    2021-01-11 05:55:47
  • vue.js的vue-cli脚手架中使用百度地图API的实例

    2024-05-05 09:07:59
  • 使用python+pandas读写xlsx格式中的数据

    2023-03-25 00:55:16
  • asp之家 网络编程 m.aspxhome.com