| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY 
共有 2077 人关注过本帖
标题:asp如何实现分页
收藏  订阅  推荐  打印 
cyuyan
Rank: 1
等级:新手上路
帖子:16
积分:310
注册:2006-2-10
asp如何实现分页

小弟刚刚开始学asp
不知asp如何实现分页,请说的仔细一点,最好附上带有注释的塬代码

不甚感激
搜索更多相关主题的帖子: asp  
2006-2-13 10:00
piaoxue
Rank: 4
来自:地球
等级:高级会员
威望:2
帖子:573
积分:5850
注册:2005-9-19

<%
dim page_size
dim page_no
dim page_total
dim wenjianming
wenjianming="a.asp"
page_size=10
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
if not(rs.bof or rs.eof) then
rs.absolutepage=page_no
end if
dim i
i=page_size
%>


<%
if page_total=1 then
response.write "首页|上一页|下一页|尾页"
else
response.write "<a href=" & wenjianming & "?page_no=1>首页</a>|"
if page_no-1>0 then
response.write "<a href=" & wenjianming & "?page_no=" & page_no-1 & ">上一页</a>|"
else
response.write "上一页|"
end if
if page_no+1<=page_total then
response.write "<a href=" & wenjianming & "?page_no=" & page_no+1 & ">下一页</a>|"
else
response.write "下一页|"
end if
response.write "<a href=" & wenjianming & "?page_no=" & page_total & ">尾页</a>"
end if
%>


我是做平面设计、网站制作、网站推广、主机域名等业务的站长,有事q我:86895535。
2006-2-13 10:04
yms123
Rank: 12Rank: 12Rank: 12
等级:版主
威望:72
帖子:8010
积分:81726
注册:2004-7-17

以下是引用piaoxue在2006-2-13 10:04:00的发言:

<%
dim page_size
'声明变量这个应该是每页的从数据库中读取的纪录数
dim page_no
'这个变量应该是当前页的页码(也就是记录第几页的变量)
dim page_total
'总页数变量
dim wenjianming
wenjianming="a.asp"
page_size=10'设定每页读取10条数据库记录
if request.querystring("page_no")="" then
'判断当前页的页码,为空证明为第一页
page_no=1'设置为第一页
else
'不为空得到当前页码
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=page_size
'rs.pagesize设定RecordSet对象的pagesize属性该属性已经解释了
page_total=rs.pagecount
'rs.pagesize属性设定后rs.pagecount自动计算一共有多少页。
if not(rs.bof or rs.eof) then'防止错误如果数据库中有记录继续执行
rs.absolutepage=page_no'设定RecordSet对象的当前页
end if
dim i
i=page_size
%>


<%
'一下为翻页的代码防止翻页出错。
if page_total=1 then
response.write "首页|上一页|下一页|尾页"
else
response.write "<a href=" & wenjianming & "?page_no=1>首页</a>|"
if page_no-1>0 then
response.write "<a href=" & wenjianming & "?page_no=" & page_no-1 & ">上一页</a>|"
else
response.write "上一页|"
end if
if page_no+1<=page_total then
response.write "<a href=" & wenjianming & "?page_no=" & page_no+1 & ">下一页</a>|"
else
response.write "下一页|"
end if
response.write "<a href=" & wenjianming & "?page_no=" & page_total & ">尾页</a>"
end if
%>


http://www.lxzhcn.net
临时域名:http://yms126.1.suhai.com.cn/
版块版主招募中
网站论坛发帖无问题,欢迎发帖。
2006-2-13 21:53
rainic
Rank: 12Rank: 12Rank: 12
等级:贵宾
威望:27
帖子:2372
积分:23926
注册:2005-8-9

真耐心,真好人!!!

2006-2-13 22:00
依隅
Rank: 2
等级:注册会员
帖子:73
积分:830
注册:2005-10-17

是呀,GOOD人呀


2006-2-16 10:01
sj1762
Rank: 1
等级:新手上路
帖子:15
积分:250
注册:2006-2-14

学习中!!!!!!!!!!

2006-2-16 13:09
shensi88
Rank: 1
等级:新手上路
帖子:27
积分:386
注册:2007-8-19

为什么我问同样的问题确得不到这样的回答,看来我运气太差了.

奋斗!奋斗!再奋斗!!!!
2007-12-31 17:06
ycb1689110
Rank: 1
等级:新手上路
帖子:8
积分:180
注册:2006-1-2


2007-12-31 21:27
luo123
Rank: 3Rank: 3
等级:中级会员
威望:2
帖子:318
积分:3532
注册:2007-4-13

收下了,

http://passncre.cn    计算机编程网
http://linshaoxin.go.51.net/    ps爱好者群
2008-1-1 12:57
hu9jj
Rank: 12Rank: 12Rank: 12
来自:红土地
等级:贵宾
威望:15
帖子:1174
积分:12178
注册:2006-5-13

7楼不要吃醋了,我们都要谢谢你将这个宝贝挖掘出来了。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2008-1-1 21:55
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.052331 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved