| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 674 人关注过本帖
标题:ASP分页,急急急!!!!!!!!
只看楼主 加入收藏
linjirongkk
Rank: 2
等 级:论坛游民
帖 子:92
专家分:20
注 册:2007-9-21
结帖率:78.95%
收藏
 问题点数:0 回复次数:4 
ASP分页,急急急!!!!!!!!
那位朋友可以发段ASP分页代码给我吗?要显示页码那种的,如

[上一页]1 2 3 4 5 [下一页]


我要这种效果的,单是上一页下一页的代码我会写但就是不会写显示页码那种,要控制得了显示的页码,如上面显示1到5页码,按下一页的时候会继续显示2 3 5 6,如此类推,谢谢那位高人帮一下手,发一个给我,明天急着用.
搜索更多相关主题的帖子: ASP 页码 效果 代码 高人 
2008-06-05 20:48
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
显示导航的时候不从1开始,从当前页的页码开始

2008-06-05 21:35
ilovey4
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-6-21
收藏
得分:0 
自己网上找下啊  
不会的问题先百度 google  那才是最好的老师

新手!
2008-06-06 03:37
zhangyao3287
Rank: 2
来 自:黑龙江省
等 级:论坛游民
威 望:2
帖 子:173
专家分:51
注 册:2008-5-25
收藏
得分:0 
Function Makepage(RecordCounts,ThisPage,FrontPage,AllPage,PageCounts)

if  ThisPage < 1  then
    ThisPage = 1
elseif ThisPage > PageCounts then
    ThisPage = PageCounts
end if

if AllPage > PageCounts then
    AllPage = PageCounts
end if
    
if ThisPage - FrontPage < 1 then
    Start = 1
    sEnd = AllPage
elseif ThisPage + AllPage - FrontPage > PageCounts  then
    Start = PageCounts - AllPage + 1
    sEnd = PageCounts
else
    Start = ThisPage - FrontPage
    sEnd = ThisPage - FrontPage + AllPage - 1
end if    

for i = Start to sEnd
if i = 1 then
    Url = "1"
else
    Url = i
end if
    if i = ThisPage then
        Pages = Pages & "<font color=""#ff0000""><b>["&i&"]</b></font>&nbsp;"
    else
        Pages = Pages & "<a href=""../"&Url&"/"">["&i&"]</a>&nbsp;"
    end if    
next

if ThisPage = 1 then
    Fpage = "首页"
    Lpage = "上一页"
else
    Fpage = "<a  href=""../1/"">首页</a>"
    if ThisPage = 2 then
        Fpage = "<a  href=""../1/"">上一页</a>"
    else
        Lpage = "<a  href=""../"&ThisPage - 1&"/"">上一页</a>"
    end if
end if

if ThisPage = PageCounts then
    Npage = "下一页"
    Rpage = "尾页"
else
    Npage = "<a  href=""../"&ThisPage + 1&"/"">下一页</a>"
    Rpage = "<a  href=""../"&PageCounts&"/"">尾页</a>"
end if

Makepage = "共"&RecordCounts&"条记录&nbsp;&nbsp;页次:"&ThisPage&"/"&PageCounts&"页&nbsp;&nbsp;"&Fpage&"&nbsp;&nbsp;"&Lpage&"&nbsp;&nbsp;"&Pages&"&nbsp;&nbsp;"&Npage&"&nbsp;&nbsp;"&Rpage&"&nbsp;&nbsp;"
Makepage = Makepage & "<select name=""page"" onChange=javascript:location.href=""../""+document.all.page.options[document.all.page.selectedIndex].value+""/"" size=""1"">"
for i = 1 to PageCounts
Makepage = Makepage & "    <option value="""&i&""" "
if ThisPage = i then Makepage = Makepage & "selected"
Makepage = Makepage & ">第"&i&"页</option>"
next
Makepage = Makepage & "</select>"

End Function
2008-06-06 08:29
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
楼主论坛的精华帖子里这种分页的代码已经有不少了,楼主没看精华帖子专区?
2008-06-06 10:01
快速回复:ASP分页,急急急!!!!!!!!
数据加载中...
 
   



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

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