UC知道asp用access数据库实现留言板分页的问题
来源：百度知道 编辑：UC知道 时间：2024/09/24 11:33:08
我现在在做一个留言板，什么都做好了，就差分页了。用的Acess数据库建了个叫name.mdb的数据库，留言内容放在表messages里，下边有自动编号，昵称，留言内容，留言时间(date)，需要实现分页功能，我在网上找了段代码，但是不知道怎么样，谁帮我解释下这段代码怎么用，谢谢
<% const MaxPerPage=4 '单独页最大记录数 const 用来申明常量
dim sql
dim rs
dim totalPut '总记录
dim CurrentPage '当前页次
dim TotalPages '总页数
dim i
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("？/.mdb")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from [？] order by id desc"
rs.open sql,conn,1,2
%>
<%
rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
rs.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If Curre
<% const MaxPerPage=4 '单独页最大记录数 const 用来申明常量
dim sql
dim rs
dim totalPut '总记录
dim CurrentPage '当前页次
dim TotalPages '总页数
dim i
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("？/.mdb")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from [？] order by id desc"
rs.open sql,conn,1,2
%>
<%
rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
rs.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If Curre
'例如文件名为a.asp
<%'开始分页
Const MaxPerPage=20 '每页显示多少条
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from 表",conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center'> 您还没有添加！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut