UC知道asp 分页代码出错，高手来帮忙看下谢谢
来源：百度知道 编辑：UC知道 时间：2024/05/21 09:53:43
<%
set rs = server.CreateObject("adodb.recordset")
rs.Pagesize=5
pages=Request.Querystring("page")
If pages="" Then pages=1 End If
If Request.Form("id")="" Then
sql="Select * from Comment1 order by id"
Else
sql="Select * from Comment1 order by id"
End If
rs.Open sql,conn,1,3
If Not rs.Eof Or Not rs.Bof Then
rs.Absolutepage=CInt(pages)
row=0
While Not rs.Eof And row<rs.Pagesize
%>
<tr>
<td width="111" bgcolor="#CCCCFF"> 【<%=rs("CommentDate")%>】</td>
<%=rs("Connent")%></a></td>
</tr>
<%
rs.MoveNext
row=row+1
Wend
%>
</table></td>
</tr>
<% If pages=1 Then %>
<% If pages<>rs.PageCoun
set rs = server.CreateObject("adodb.recordset")
rs.Pagesize=5
pages=Request.Querystring("page")
If pages="" Then pages=1 End If
If Request.Form("id")="" Then
sql="Select * from Comment1 order by id"
Else
sql="Select * from Comment1 order by id"
End If
rs.Open sql,conn,1,3
If Not rs.Eof Or Not rs.Bof Then
rs.Absolutepage=CInt(pages)
row=0
While Not rs.Eof And row<rs.Pagesize
%>
<tr>
<td width="111" bgcolor="#CCCCFF"> 【<%=rs("CommentDate")%>】</td>
<%=rs("Connent")%></a></td>
</tr>
<%
rs.MoveNext
row=row+1
Wend
%>
</table></td>
</tr>
<% If pages=1 Then %>
<% If pages<>rs.PageCoun
你写的判断很乱,判断页码链接逻辑很简单,被你都搞的很复杂了
<% If pages>1 Then %> 当前页大于1就显示第一页,上一页 链接,也就是翻到第二页以后,需要 第一页,上一页 链接
<a href="qisimiaoxiang.asp?id=<%=typeID%>&page=1">第一页</a>
<a href="qisimiaoxiang.asp?id=<%=typeID%>&page=<%=(pages-1)%>">上一页</a>
<%end if%>
当前页小于总页数就显示下一页,最后一页 链接,当前页还没翻到最后一页,需要 下一页,最后一页 链接
<% If pages<rs.PageCount Then %>
<a href="qisimiaoxiang.asp?id=<%=typeID%>&page=<%=(pages+1)%>">下一页</a>
<a href="qisimiaoxiang.asp?id=<%=typeID%>&page=<%=(rs.PageCount)%>">最后一页</a>
<%end if%>
就两个判断就行了,根据这个你自己修改下