CDSN上一页下一页功能模仿
来源:互联网 发布:java运行ant 编辑:程序博客网 时间:2024/04/28 02:40
从后台读取记录,如果数据过多,就需要划分多页去显示,本章就是模仿CDSN来实现该功能的,采用asp动态语言实现的,求喷我,css这部分我完全是copy过来的,只改了一点,我主要完成的是asp后面的代码。本章也是做一个记录,方便后面项目中使用,如上图所示。
新建pagelist.css文件:
/* CSS Document */.pagelist{clear:both;padding:15px 0;color:#666;font:normal 12px/24px Arial;text-align:center}.pagelist a{display:inline-block;height:22px;margin:0 2px;padding:0 8px;border:solid 1px #dbe5ee;background:#fff;color:#333;font:normal 12px/22px Arial,Helvetica,sans-serif;cursor:pointer;text-decoration : none;}.pagelist strong{display:inline-block;height:24px;margin:0 3px;padding:0 8px;border:0;background:#07519a;color:#fff;font-weight:normal;line-height:24px;text-decoration:none}.pagelist a:hover{height:24px;margin:0 3px;border:0;background:#07519a;color:#fff;line-height:24px;text-decoration:none}.pagelist a.select{cursor:default}新建main.css文件:
<!DOCTYPE><html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>上一页 下一页</title></head><link rel="stylesheet" type="text/css" href="pagelist.css" /><body><%@LANGUAGE='VBSCRIPT' CODEPAGE='65001'%><div class="pagelist"><%dim page,startPos,endPosdim urlurl = "main.asp?page="page = cint(request.QueryString("page"))set conn=Server.CreateObject("ADODB.Connection")conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("info.mdb")set rs=server.createobject("adodb.recordset")sql = "select * from client"rs.open sql,conn,1,3rs.pagesize = 2'每页有多少数据,这里设置为2主要是方便测试allpage = rs.pagecount'一共有多少页if page < 1 then page = 1if page > allpage then page = allpagers.absolutepage=pageresponse.Write("<span> " & cstr(rs.recordcount) & "条数据 共" & cstr(allpage) & "页" & "</span>" + vbcrlf)if page > 1 thenresponse.Write("<a href = " & url & "1" &">首页</a>" + vbcrlf)response.Write("<a href = " & url & cstr(page - 1) &">上一页</a>" + vbcrlf)end ifstartPos = page - 3'该数字可以更改,自己试试看,我就不表达了,意会就行了endPos = page + 3if startPos < 1 thenstartPos = 1elseif startPos > 1 thenresponse.Write("<a href = " & url & cstr(startPos - 1) & ">...</a>" + vbcrlf)end ifif endPos > allpage thenendPos = allpageend iffor i = startPos to endPosif i = page thenresponse.Write("<strong>" & cstr(i) & "</strong>")elseresponse.Write("<a href = " & url & cstr(i) & ">" & cstr(i) & "</a>" + vbcrlf)end ifnextif endPos < allpage thenresponse.Write("<a href = " & url & cstr(endPos + 1) & ">...</a>" + vbcrlf)end ifif page <> allpage thenresponse.Write("<a href = " & url & cstr(page + 1) &">下一页</a>" + vbcrlf)response.Write("<a href = " & url & cstr(allpage) &">尾页</a>" + vbcrlf)end ifrs.closeconn.close%></div></div></body></html>
这里还需要建立名字为info.mdb的access数据库,在里面添加client的表,添加user字段。
0 0
- CDSN上一页下一页功能模仿
- ListView 实现上一页下一页功能
- js上一页,下一页
- 上一页下一页js
- listview实现上一页下一页
- 分页(上一页,下一页)
- wordpress post 的上一页 下一页
- dede 分页 上一页 下一页
- 织梦只调用上一页下一页链接
- jquery实现上一页 下一页
- jquery实现上一页下一页
- 万能分页显示上一页下一页
- servlet+mysql分页(上一页,下一页)
- 【Javascript】返回上一页 返回下一页
- 左右切换上一页下一页
- jquery实现上一页下一页插件
- 点击切换下一页上一页
- 分页实现-----首页、上一页、下一页、最后一页
- mongodb入门之mongodb内存原理
- 六星经典CSAPP笔记(2)信息的操作和表示
- Leetcode: Fraction to Recurring Decimal
- wegweg
- Android 属性动画 源码解析 深入了解其内部实现
- CDSN上一页下一页功能模仿
- JSP 入门教程一[基础内容]
- myeclipse常用快捷键
- OSSEC Log Management with Elasticsearch
- mongodb入门之mongodb安装
- 厦门大学线下编程比赛第一题:求和
- PassThru驱动扩展
- LeetCode--Reverse Nodes in k-Group
- 初始化列表