| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 752 人关注过本帖
标题:[原创]分页显视详解
只看楼主 加入收藏
心碎无痕
Rank: 1
等 级:新手上路
威 望:1
帖 子:147
专家分:0
注 册:2005-9-16
收藏
 问题点数:0 回复次数:4 
[原创]分页显视详解
<%
dim page_no
'第一步:确定在第几页
'第二步:用循环显示内容
'下面的代码执行的是第一步:
'如果第一次打开,page_no为1,否则由传回的参数决定  request.querystring()
if request.querystring("page_no")="" then
  page_no=1
else
  page_no=Cint(request.querystring("page_no"))
  'Cint()函数,将字符串转换为整数
end if
'-------------------------
'第一步执行结束
'-------------------------
%>
<h2 align="center">我们的通讯录</h2>
<center>
<table border="1" width="90%">
  <tr bgcolor="#b7b7b7" align="center">
    <td width=20%>姓名</td>
    <td width=30%>电话</td>
 <td width=30%>email</td>
  </tr>
<%
'下面的代码执行第二步:
dim strsql,rs
'建立recordset记录集
set rs=server.createobject("adodb.recordset")
strsql="select * from users order by submit_date desc"
rs.open strsql,db,1,2
'用循环显示记录
if not rs.bof and not rs.eof then
   '设置一页显示5条
   rs.pagesize=5
   '设置当前页面
   rs.absolutepage=page_no
   '循环显示当前面的所有记录
   '------------------
   dim i
   i=rs.pagesize
   do while not rs.eof and i>0
     i=i-1
 '每显示一条,i减1,当变成0时,表示本页结束
    %>
   <tr bgcolor="f2f2f2" align="center">
      <td><%=rs("name")%></td>
   <td><%=rs("tel")%></td>
   <td><%=rs("email")%></td>
   </tr>
   <%
     rs.movenext  '记录指针向下移一条
  loop   
   %>
<%   
else
  response.write("没有记录")
end if
%>
</table>
<%
'输出页面信息
' rs.pagecount表示总页数
response.write("<p>一共有"&rs.pagecount&"页,")
response.write("当前是第"&page_no&"页,")
'输出第一页,上一页,下一页,最后一页的链接
'定义两个变量,分别显示上一页和下一页的页码
dim numpre,numnext
numpre=page_no-1
'当前页减1,是上一页
numnext=page_no+1
'当前页加1,是下一页
'先输出第一页的链接
response.write("<a href='index.asp?page_no=1'>第一页</a>")
'输出上一页的链接,如果numpre=0,表示当前已经是第一页了,不加链接
if numpre=0 then
  response.write("  上一页  ")
else
  response.write("  <a href='index.asp?page_no="&numpre&"'>上一页</a>  ")
end if
'输出下一页链接,如果numnext>rs.pagecount,表示已经是最后一页了,不能加链接
if numnext>rs.pagecount then
  response.write("  下一页  ")
else
  response.write("<a href='index.asp?page_no="&numnext&"'>下一页</a>")
end if
'输出最后一页的链接
  response.write("  <a href='index.asp?page_no="&rs.pagecount&"'>最后页</a>")
%>
<br>
<br>
<%
'用数字显示分页
response.write("<p>一共有"&rs.pagecount&"页,")
response.write("当前是第"&page_no&"页,")
response.write("请选择数据页:")
'用循环显示
for i=1 to rs.pagecount
%>
<a href="index.asp?page_no=<%=i%>"><%=i%></a>
<%
  next
%>
搜索更多相关主题的帖子: 详解 page request querystring 
2005-09-21 11:15
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
比较详细 但有重复发贴的嫌疑
2005-09-21 11:17
心碎无痕
Rank: 1
等 级:新手上路
威 望:1
帖 子:147
专家分:0
注 册:2005-9-16
收藏
得分:0 
晕倒,!我老师说一个好的程序员在写代码的时候,
都会注释的很清楚,我现在正在培养这个素质呢!
希望大家在帮别人回答问题的时候,请务必要做好注释,
我们要的不是代码,代码什么地方都可以找得到,我们要的是理论!
我也是一个ASP初学者!希望大家多多关照!!


菜鸟级网站! http://www. 希望大家能多多支持!
2005-09-21 11:25
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
2005-09-21 12:40
twind
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2005-9-5
收藏
得分:0 

鼓励一下,不错啊
继续努力
这种学习态度很好!

-------常在江湖飘,那能不挨刀-------
2005-09-21 12:53
快速回复:[原创]分页显视详解
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019403 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved