asp access 大数据量的分页的方法

作者：袖梨 2022-06-29

标题

时间

<%=id%>

<%=title%>

<%=updatetime%>

<%
'分页开始
'计算总页数
page_count=1
sql="select count(*) as t from news where 1=1"&q1
rs.open sql,conn,1,1
if rs.eof then
else
recordset_count=rs("t")
if recordset_count mod page_size=0 then
  page_count=recordset_countpage_size
else
  page_count=recordset_countpage_size+1
end if
end if
rs.close
'分页,分页效果：首页上一页 ... 2 3 4 5 6 7 ... 下一页最后一页
if page=1 then
response.write "首页上一页 "
else
response.write "首页上一页 "
end if
if page>4 then
s=page-3
response.write "..."
else
s=1
end if
if page<=page_count-3 then
e=page+3
else
e=page_count
end if
for i=s to e
if i=page then
  response.write ""&i&" "
else
  response.write ""&i&" "
end if
next

if page response.write "..."
end if
if page=CInt(page_count) then
response.write "下一页最后一页"
else
response.write "下一页最后一页"
end if