高效分页 asp

<%

‘每页的记录数

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

‘‘翻页代码省略……

%>

这是一种非常高效的分页算法。当数据表中的数据量成百上千万的时候，上面的这种分页算法的响应时间是非常短的，通常在几十毫秒之内。原理很简单，就是每次分页，我只取需要的几十条记录而已，使用SELECT TOP也正是基于这样的考虑。

高效分页 asp