【ASP】文章分页过多，每页文字过少，如何解决？

来源：百度知道编辑：UC知道时间：2024/06/10 11:22:42

<%
sql="select top 6 * from news where bigclassname='"&bigname&"' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
Response.Write " <div align='center'>暂无新闻!</div>"
end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="table1" align=center>
<%IF not rs.eof Then
proCount=rs.recordcount
rs.PageSize=5 '定义显示数目（把5设置成其他数字完全没反应，怎么回事）
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end

问题出现在循环上

问题出现在循环上
表格的几行几列显示数据，不应该用循环
首先告诉你错误在哪，等我晚上有时间再来修正。

我修正一下，试试吧

<%
sql="select top 6 * from news where bigclassname='"&bigname&"' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
Response.Write " <div align='center'>暂无新闻!</div>"
end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="table1" align=center>
<TR>
<%IF not rs.eof Then
proCount=rs.recordcount
rs.PageSize = 3 '每页显示记录数
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1

求助：长文章分页显示(控制每页显示的行数，而非字数)(ASP代码) asp长文章分页显示代码 ASP如何实现长文章分页 ASP文章过长自动分页代码 asp长文章分页的一点疑问 asp类别新闻文章分页请教！ ASP 长篇文章分页怎么实现！！！ ASP 文章分页遇到的一些问题！ ASP文章分页，我从数据库中读出文章，然后将文章分页显示 asp如何让他分页显示?.每页显示10行