ASP

[ggygd]

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

[zhuowei]

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

[擒兽]

<%
'页面顶部
'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'><font face=webdings title=第1页>9</font></a> "
Response.Write "<a href='" & Url & "&page=" & PagePrev & "'><font face=webdings title=前" & PageShowSize & "页>7</font></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 "<B>["& PageLink &"]</B> "
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 & "'><font face=webdings title=后" & PageShowSize & "页>8</font></a>"
Response.Write " <A href='" & Url & "&page=" & Pagetpage & "'><font face=webdings title=最末页，第"& Pagetpage &"页>:</font></A>"
End if
End Function
%>

翻页的地方 直接调函数

[ggygd]

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

[ccghghgj]

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


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

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

[ccghghgj]

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


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