UC知道asp 分页不成功
来源：百度知道 编辑：UC知道 时间：2024/07/05 14:40:59
头都大了，以前也是这么分的，为什么这次不行了，找不出问题
<%
const MaxPerPage=2
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
set rs=Server.CreateObject("ADODB.RecordSet")
if tp<>"" then
sql="select * from [b_news] where b_type='"& tp & "' order by b_time desc"
else
sql="select * from [b_news] order by b_time desc"
End if
rs.Open sql,conn,1,1
if rs.BOF and rs.EOF then
Response.Write("<tr><td align='center' height='200'>没有相关记录!</td></tr>")
else
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"
<%
const MaxPerPage=2
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
set rs=Server.CreateObject("ADODB.RecordSet")
if tp<>"" then
sql="select * from [b_news] where b_type='"& tp & "' order by b_time desc"
else
sql="select * from [b_news] order by b_time desc"
End if
rs.Open sql,conn,1,1
if rs.BOF and rs.EOF then
Response.Write("<tr><td align='center' height='200'>没有相关记录!</td></tr>")
else
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"
问题出在循环的写法上.
楼主把你的循环改为
for i=1 to rs.pagesize
...
next
if not r_tz.eof then
pages =30 '定义每页显示的记录数
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount '计算一共能分多少页
page = Request.QueryString("page") '通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) <1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page%>
'''''''''''下边是输出每一页，上边是获取值并计算能分多少页
<%if allpages<>1 then%>
分页：
<%for j=1 to allpages%>
<a href='lt_tz.asp?page=<%=j%>&id_tz=<%=application("id_tz")%>'><%=j%></a>
<%next%>
''''''''''下边是循环输出：
<%Do while not rs.eof and pages > 0 %>
..........
............
&