类似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>
<!--//分页程序-->


猜你喜欢
- 使用Django意味着后台框架的几乎所有内容都会和Django产生互动,排除功能全部手撸的情况.Django 后台admin有大量的属性和方
- 通常来说Python中任何值都是一个对象,因此任何类型(int、str、list…)都是一个类。而类就必然有它的方法或属性,我们要记下这么多
- 最近在做编程练习,发现有些结果的值与答案相差较大,通过分析比较得出结论,大概过程如下:定义了一个计算损失的函数:def error(yhat
- 虽然每个图像具有多个通道和多层卷积层。例如彩色图像具有标准的RGB通道来指示红、绿和蓝。但是到目前为止,我们仅展示了单个输入和单个输出通道的
- 基于邮件通知的服务监控和告警系统主要功能点:配置专用日志格式记录耗时日志格式:'simple':{'format
- 1.从官网下载mysql-5.7.21-windowx64.zip mysql下载页面2.解压到合适的位置(E:\mysql) 这名字是我改
- 本文为大家分享了SQL Server使用row_number分页的实现方法,供大家参考,具体内容如下1、首先是select ROW_NUMB
- 与前面一样我们会用fso来对文件或文件夹进行创建与删除操作了,其实fso有强大的功能但非常危险的哦,下面我们不来看看删除实例吧,在这些例子,
- JavaScript(JS)网页–动态生成表格,供大家参考,具体内容如下在网页中,动态生成列表的内容,将数组中的object加入到列表中(没
- 我们先看一下相关数据结构的知识。 在学习线性表的时候,曾有这样一个例题。 已知一个存储整数的顺序表La,试构造顺序表Lb,要求顺序表Lb中只
- 最近在优化公司框架 trpc 时发现了一个热重启相关的问题,优化之余也总结沉淀下,对 go 如何实现热重启这方面的内容做一个简单的梳理。1.
- SQL Server 2005的新功能为动态管理对象,它们是在指定时间返回某个数据库实例的特殊状态信息的数据库视图或函数。这些对象允许数据库
- c++运算速度快于python,python简单易写。很多时候对于已有的c++代码也不想用python重写,此时就自然而然地想到用pytho
- python turtle自定义画布背景色turtle是python一个简单好用的绘图包,它可以通过设计坐标来实时控制绘图。安装很简单,一行
- 前言超参调优是“模型调优”(Model Tuning)阶段最主要的工作,是直接影响模型最终效果的关键
- python一行输入n个数据有时会碰到一行输入多个数据,这是可以先用str类型存一组数据,然后再迭代的将每个数据追加到新的列表中。方法一先输
- 本文实例讲述了python实现通过pil模块对图片格式进行转换的方法。分享给大家供大家参考。具体分析如下:python的pil模块相当的智能
- 在编程过程中,多了解语言周边的一些知识,以及一些技巧,可以让你加速成为一个优秀的程序员。对于Python程序员,你需要注意一下本文所提到的这
- 由于数据文件平时在数据库运行的时候处于使用状态,故当数据库处于打开状态时,管理员是无法重命名数据文件名字的。那么一定要更改这个数据文件的名字
- 前言对于前端项目而言,ESLint 可以检查代码,统一代码风格,避免不必要的错误。在 vue3 中配置 ESLint,如下所示。环境vite