asp访google分页代码
发布时间:2009-07-10 13:06:00
<%
on error resume next
dim conn,sql,rs
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.oledb.4.0;data source=" & Server.MapPath("data/note.mdb")
%>
<%
'strconn = "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("fenye.mdb")
'set conn = server.createobject("adodb.connection")
'conn.open strconn
if err then
err.clear
set err = nothing
response.write ("数据库链接出错")
response.end
end if
sql = "select * from say Order by time DESC"
set rs = server.createobject("adodb.recordset")
rs.activeconnection = conn
rs.source = sql
rs.cursortype = 1
rs.locktype =1
rs.open
rs.pagesize = 20 '每页显示的几条数据
if request("Page")<>"" then
page = int(request("page"))
if page<1 then page = 1
if page>rs.pagecount then page = rs.pagecount
else
page = 1
end if
rs.absolutepage = page '设置当前页
for i = 0 to rs.pagesize -1
if rs.eof and rs.bof then exit for '显示数据
response.write(rs("content")&"<br>")
rs.movenext
next
response.write "<a href = 1.asp>首页</a> "
response.write "<a href = 1.asp?page="&page-1&">上一页</a> "
' 重要部分,每次显示 9 个数字分页链接
if page >8 and rs.pagecount > 9 then '判断点击页大于8 并且记录集页数大于9时
if (page + 4)> rs.pagecount then '当点击页加上4 (4 的来历为 8/2) 大于 记录集是
pagenow = rs.pagecount - 8 '首次数字显示页码
else '否则
pagenow = page - 4 '点击页 减 4 (4 的来历为 8/2) 为了让点击页码
'数居中
end if
for b = 1 to 9 '每次显示9 条记录
response.write "<a href=?page="&pagenow&">"&pagenow&"</a> "
pagenow = pagenow+1
next
else
if rs.pagecount<9 then '当记录集小于9时
for b = 1 to rs.pagecount '显示数字分页码
response.write "<a href=?page="&b&">"&b&"</a> "
next
else '当记录集大于9时 但当前页小于9时 执行
for b = 1 to 9
response.write "<a href=?page="&b&">"&b&"</a> "
next
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
response.write "<a href = 1.asp?page="&page+1&">下一页</a> "
response.write "<a href = 1.asp?page="&rs.pagecount&">尾页</a>"
response.write "<br><br>"
%>
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'根据上面的讲解 我们把他做成一个函数 可重复调用
call fenye(page,rs.pagecount,7,"page") '调用函数
'定义函数 page 为当前点击页,maxcount 为记录集总数,a 为显示条目数,p为get变量
'此定义函数对照上面所注释的 就很好理解了...
'不明白的 slvzs-g@yahoo.com.cn 联系我
function fenye(page,maxcount,a,p)
response.write "<a href ='?"&p&"=1'>首页</a> "
response.write "<a href = ?"&p&"="&page-1&">上一页</a> "
if page>a-1 and maxcount >a then
if (page+int((a-1)/2))>maxcount then
pagenow = maxcount - a+1
else
pagenow = page - int((a-1)/2)
end if
for i = 1 to a
response.write "<a href=?"&p&"="&pagenow&">"&pagenow&"</a> "
pagenow = pagenow + 1
next
else
if maxcount < a then
for i = 1 to maxcount
response.write "<a href=?"&p&"="&i&">"&i&"</a> "
next
else
for i = 1 to a
response.write "<a href=?"&p&"="&i&">"&i&"</a> "
next
end if
end if
response.write "<a href = ?"&p&"="&page+1&">下一页</a> "
response.write "<a href = ?"&p&"="&maxcount&">尾页</a>"
end function
-->
猜你喜欢
- 项目:基于Pymysql的专家随机抽取系统引入库函数:>>> import treelib>>> fro
- 本文实例讲述了Python记录详细调用堆栈日志的方法。分享给大家供大家参考。具体实现方法如下:import sysimport osdef
- this指针是面向对象程序设计中的一项重要概念,它表示当前运行的对象。在实现对象的方法时,可以使用this指针来获得该对象自身的引用。和其他
- 这篇文章主要介绍了python chardet库识别编码原理解析,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值
- 一、mysql中实现指定排序需求一般情况下,我们排序都是直接利用 order by 字段 asc/desc;但是如果要排序的字段数据格式并不
- 背景遇到的两个问题:scroll 事件不触发、如何将 loading 状态放在无限加载组件中进行管理。无限加载组件在展示列表页数据时比较常见
- 前言或许你已经用过装饰器,它的使用方式非常简单但理解起来困难(其实真正理解的也很简单),想要理解装饰器,你需要懂点函数式编程的概念,pyth
- 前言本文主要给大家介绍了关于python指定时间调用函数的相关内容,分享出来供大家参考学习,下面话不多说了,来一起看看详细的介绍:在前面的一
- <!doctype html><html><head><meta charset="ut
- 这是一个非常简单的解决方案,柱状图中每一条柱都是一个 div,数据的大小呈现在 div 的宽或高上。 查看演示 例子下载实现的原理
- ul设置浮动后不能自适应高度,也就是不能撑开父容器,不能自适应内容的高度。解决方法是在ul结束标签前加个清除浮动。 &
- 前言最近有人在吐槽项目使用 Vue3 之后,出现一堆问题,填坑困难,甚至是开发中才发现某些第三方库没有推出 Vue3 的版本,因此大发吐槽,
- Cookies的处理作用保存客户端的相关状态在爬虫中如果遇到了cookie的反爬如何处理?手动处理 在抓
- 1 引言各位朋友大家好,欢迎来到月来客栈。今天要和大家介绍的内容是如何在Pytorch框架中对模型进行保存和载入、以及模型的迁移和再训练。一
- 本文实例讲述了python每次处理一个字符的三种方法。分享给大家供大家参考。具体方法如下:a_string = "abccdea&
- 本文实例为大家分享了python实现简单图片物体标注工具的具体代码,供大家参考,具体内容如下# coding: utf-8"&qu
- 前言常见的例子是在银行账户上:假如要在两个银行账户之间执行交易,你必须确保两个账户都被锁定,不受其他交易的影响,以达到正确的资金转移量。在这
- 在看视频教程的时候提到了[{'a' : 97}, {'b' : 98}, {'c' : 99
- CAST、CONVERT都可以执行数据类型转换。在大部分情况下,两者执行同样的功能,不同的是CONVERT还提供一些特别的日期格式转换,而C
- 本篇文章通过调用opencv里的函数简单的实现了对图像里特定颜色提取与定位,以此为基础,我们可以实现对特定颜色物体的前景分割与定位,或者特定