1栏分页显示（附显示的形式前页，后页）

显示的形式

id name

1 juliet

2 cristine

3 boy

4 girl

>>首页 前页 后页 尾页 页数:1/4 4记录/页 总记录数:13条

代码：

<%

dim rs

dim sql

msg_per_page = 4 '定义每页显示记录条数

set rs = server.createobject("adodb.recordset")

sql = "select * from page order by id" '改成你自己的SQL语句

rs.cursorlocation = 3 '使用客户端游标，可以使效率提高



rs.pagesize = msg_per_page '定义分页记录集每页显示记录数

rs.open sql,conn,0,1



if err.number<>0 then '错误处理

response.write "数据库操作失败：" & err.description

err.clear

else

if not (rs.eof and rs.bof) then '检测记录集是否为空

totalrec = RS.RecordCount 'totalrec：总记录条数

if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数

n = rs.recordcount\msg_per_page 'n:总页数

else

n = rs.recordcount\msg_per_page+1

end if



currentpage = request("page") 'currentpage:当前页

If currentpage <> "" then

currentpage = cint(currentpage)

if currentpage < 1 then

currentpage = 1

end if

if err.number <> 0 then

err.clear

currentpage = 1

end if

else

currentpage = 1

End if

if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then

currentPage=1

end if

rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头

rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数



dim i

dim k

%>









<%do while="" not="" rs.eof="" and="" rowcount=""> 0%>









<%

rowcount=rowcount-1

rs.MoveNext

loop

end if

end if

rs.close

set rs=nothing

%>

<%

sub listPages()

if n <= 1 then exit sub

%>

>>

<%if currentpage="1">

Top Previous

<%else%>

Top

 

Previous

<%end>

<%if currentpage="n">

Next Bottom

<%else%>

Next

 Bottom

<%end>



  Page:<%=currentpage%>/<%=n%>pages  <%=msg_per_page%>notes/page   Total:<%=totalrec%>notes

<%end>