ASP读取数据库并分页显示

<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mdb.mdb")exe="select * from list order by id desc"set rs=server.createobject("adodb.recordset")
rs.open exe,conn,1,1
rs.pagesize =21'每页需要显示的条数
PCount = rs.PageCount
page = int(request.QueryString("page"))
if page <=0 then page =1
if page = "" then page = 1
rs.AbsolutePage = page%>

<%do while not rs.eof%>

• <%=rs("id")%><%=rs("title")%>

共有信息<%=rs.RecordCount%>条 每页显示<%=rs.pagesize%>条 共有<%=rs.PageCount%>页 当前<%=Page%>/<%=rs.PageCount%>页
<%
If page <> 1 then
Response.Write "首页 "
Response.Write "上一页 "
End If
If page <> rs.PageCount then
Response.Write "下一页 "
Response.Write "尾页"
End If
%>
<%rs.movenextloop%>