| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 707 人关注过本帖
标题:网页显示问题
只看楼主 加入收藏
青年求知
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2008-10-29
收藏
 问题点数:0 回复次数:4 
网页显示问题
我设置了一页只显示五条纪录,可我想点"下一页"时,把余下的纪录也显示出来,该怎么做呢?

知道的麻烦请教我下,谢谢了.
搜索更多相关主题的帖子: 网页 
2008-11-02 14:37
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
2008-11-02 14:45
shcms
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2008-11-3
收藏
得分:0 
<%
const MaxPerPage=14 '每页显示多少条记录
dim sql
dim rs
dim totalPut   
dim CurrentPage
dim TotalPages
sql = "SELECT * FROM News order by id asc"    'SQL查询不用说了吧
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
if rs.eof then
response.write "<p align='center'> ERROR!</p>"
else
totalPut=rs.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage<totalPut then
rs.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then  
n= totalPut \ MaxPerPage
else  
n= totalPut \ MaxPerPage + 1  
end if
for i= 0 to howmanyfields
next    
i=0
do while not rs.eof and i<maxperpage%>

<%=rs("title")%>   '里边写你要循环的内容

<%
i=i+1
rs.movenext
loop
%>

&nbsp;&nbsp;&nbsp;当前第&nbsp;&nbsp;<%=currentpage%>页&nbsp;&nbsp;共&nbsp;&nbsp;<%=n%>页&nbsp;&nbsp;<%=rs.recordcount%>&nbsp;

纪录
<%k=currentPage
if k<>1 then
response.write "&nbsp;[<b>"+"<a href='?page=1'>首页</a></b>]&nbsp;"
response.write "&nbsp;[<b>"+"<a href='?page="+cstr(k-1)+"'>上一页</a></b>]&nbsp;"
else
Response.Write "&nbsp;[首页]&nbsp;[上一页]&nbsp;"
end if
if k<>n then
response.write "&nbsp;[<b>"+"<a href='?page="+cstr(k+1)+"'>下一页</a></b>]&nbsp;"
response.write "&nbsp;[<b>"+"<a href='?page="+cstr(n)+"'>尾页</a></b>]&nbsp;"
else
Response.Write "&nbsp;[下一页]&nbsp;[尾页]&nbsp;"
end if
end if
rs.close
set rs=nothing
%>
欢迎你到我的博客一起讨论   www.

签名:小李'Blog www. -
2008-11-03 14:09
青年求知
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2008-10-29
收藏
得分:0 
回复 2# 的帖子
谢谢
2008-11-03 19:33
青年求知
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2008-10-29
收藏
得分:0 
回复 3# 的帖子
谢谢
2008-11-03 19:34
快速回复:网页显示问题
数据加载中...
 
   



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

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