主页

ASP

ggygd 2005-08-01 07:59:02

如何使记录分页最简单!!

...全文

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

ccghghgj 2005-08-04

这种方式还是很慢的.还是用存储过程再自已写分页吧

================================================================
想去桂林玩的朋友,欢迎访问我公司的网站了解桂林:http://www.guilinlife.com
http://www.gl114.net http://www.lz114.cn
================================================================

回复赞

ccghghgj 2005-08-04

这种方式还是很慢的.还是用存储过程再自已写分页吧

================================================================
此帖通过csdn小助手回复。
CSDN小助手是使用vb.net编写的CSDN论坛脱机“外挂”，她能够在
脱离IE的情况下使用Csdn论坛。程序只加载最核心的数据，所以显示更
快，产生的流量更小。

下载地址：http://qqwwee.com/csdn.rar
================================================================

回复赞

ggygd 2005-08-04

如何从ASP的页面中导出exel表,用button触发.谢谢

回复赞

春三十一郎 2005-08-01

<%
'页面顶部
'PageShowSize = 5 '每页显示多少页
'MyPageSize = 10 '每页显示多少条
'''''''''''''''''''''''''''''page变量默认为1,而且为大于零的正整数''''''''''''''''''''''''''
IF Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End IF
RS.PageSize = MyPageSize '记录指定页面显示数
MaxPages = RS.PageCount '记录总页面数
RS.absolutepage = MyPage '记录当前页数
Total = RS.RecordCount '总记录数
'底部翻页
Function GetPage(Url)
Response.Write "[共"&Total&"条记录，当前第"&Mypage&"/"&Maxpages&"页，每页读取"&MyPageSize&"条记录] "
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/RS.PageSize)+1
IF PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.Write "<a href='" & Url & "&page=1'>9</a> "
Response.Write "<a href='" & Url & "&page=" & PagePrev & "'>7</a> "
End IF
IF MyPage-1 > 0 then
Prev_Page = MyPage - 1
'Response.Write "<a href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>第" & Prev_Page & "页</a> "
End IF
IF Maxpages>=PageNextSize*PageShowSize Then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End IF
IF PageSizeShow < 1 Then PageSizeShow = 1
For PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
IF PageLink <> MyPage Then
Response.Write "<a href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
Else
Response.Write "["& PageLink &"] "
End IF
IF PageLink = MaxPages Then Exit for
Next
IF Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
'Response.Write "<a href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>第" & Next_Page & "页</A>"
End if
IF MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.Write " <a href='" & Url & "&page=" & PageNext & "'>8</a>"
Response.Write " <A href='" & Url & "&page=" & Pagetpage & "'>:</A>"
End if
End Function
%>

翻页的地方直接调函数

回复赞

zhuowei 2005-08-01

http://community.csdn.net/Expert/topic/3991/3991936.xml?temp=.3752558

回复赞

发动态

发帖子

ASP

创建于2007-09-28

加入

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。

申请成为版主

社区公告

暂无公告