ASP超高效分页算法
来源:互联网 发布:javascript环境搭建 编辑:程序博客网 时间:2024/06/04 18:46
'每页的记录数
dim pagesize
pagesize= "30"
'读出总记录数,总页数,飘易注
Dim TotalRecords,TotalPages
SQLstr="Select count(id) As RecordSum From table1"
Set Rs=conn.Execute(SQLstr,0,1)
TotalRecords=Rs("RecordSum")
if Int(TotalRecords/pagesize)=TotalRecords/pagesize then
TotalPages=TotalRecords/pagesize
else
TotalPages=Int(TotalRecords/pagesize)+1
end if
Rs.Close
Set Rs=Nothing
'当前页码,飘易注
dim page
page=Request("page")
if isnumeric(page)=false then
response.write "<SCRIPT language=JavaScript>alert('参数错误!');"
response.write "window.close();</SCRIPT>"
response.end
end if
If page="" or page<1 Then page=1
If page-TotalPages>0 Then page=TotalPages
page=int(page)
if page=1 then
sql="select top "&pagesize&" id,title,time from table1 order by time desc"
else
sql="select top "&pagesize&" id,title,time from table1 where time<(SELECT Min(time) FROM (SELECT TOP "&pagesize*(page-1)&" time FROM table1 ORDER BY time desc) AS T) order by time desc"
end if
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,1,1
Do While Not rs.Eof
response.write "每条记录信息:"&rs("id")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
''翻页代码省略……
%>
- ASP超高效分页算法
- ASP.net高效分页
- 高效分页 asp
- Asp.net列表绑定实现高效分页
- asp.net高效分页的办法
- Eric的超高效数据分页(图示+代码) ^_^
- Eric的超高效数据分页(图示+代码)
- Eric的超高效数据分页(图示+代码)
- Eric的超高效数据分页(图示+代码) ^_^
- (转)一个高效的数据分页算法!
- 带赖子的超高效麻将、跑胡子胡牌算法
- 高效分页
- ::自己写的一个超简单的ASP分页代码::
- ASP.NET中利用DataGrid实现高效分页
- Asp 高效分页代码,带注释,收集中。。
- ASP.NET中利用DataGrid实现高效分页
- Asp.net实现通用以及高效的分页方法
- ASP.NET中利用DataGrid实现高效分页
- NS的调试
- appeal to recycling
- OOP中__set()和__get()方法
- Android系统权限和root权限
- AWK分析无线网络路由负载文件
- ASP超高效分页算法
- 程序员的八个级别,你属于那一个?
- ubuntu重启 强行关闭应用程序
- 怎样优化autoload
- 【转】swing入门教程(二) 简单的swing小部件
- 有关UIView、subview的几个基础知识点-IOS开发
- android intent 用bundle传递数据
- 在Linux系统环境下修改MySQL的root密码
- 债券正回购和逆回购交易操作指南