UC知道asp+access 分页问题
来源：百度知道 编辑：UC知道 时间：2024/06/11 00:51:13
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("wb.mdb")
%>
<%
Set rs = Server.CreateObject ("ADODB.recordset")
rs.open "select * from sjk",conn,1,1
rs.PageSize=1 ①
pagecount=rs.PageCount
page=int(request("page"))
if page<=1 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<%if rs.eof and rs.bof then
response.write("无留言")
else
for i=1 to rs.pagesize
response.write("<br>昵称："& rs("name"))
response.write("<br>时间："& rs("time"))
response.write("<br>内容："& rs("msg"))
rs.movenext
next
end if %>
<%for i=1 to pagecount%>
<a href="index.asp?page=
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("wb.mdb")
%>
<%
Set rs = Server.CreateObject ("ADODB.recordset")
rs.open "select * from sjk",conn,1,1
rs.PageSize=1 ①
pagecount=rs.PageCount
page=int(request("page"))
if page<=1 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<%if rs.eof and rs.bof then
response.write("无留言")
else
for i=1 to rs.pagesize
response.write("<br>昵称："& rs("name"))
response.write("<br>时间："& rs("time"))
response.write("<br>内容："& rs("msg"))
rs.movenext
next
end if %>
<%for i=1 to pagecount%>
<a href="index.asp?page=
将分页代码改成下面这段看看,就知道原因了!
<%
If Not (Rs.Eof or Rs.Bof) Then
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
Rs.PageSize=15
if pagecount>Rs.pagecount or pagecount<=0 then
pagecount=1
end if
Rs.AbsolutePage=pagecount
'.....之后是你上面的代码
%>