asp 分页显示问题，为什么不能变为每页显示5个记录

来源：百度知道编辑：UC知道时间：2024/05/10 09:59:38

<%
'============从表Content中读取用户数据==============
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conn
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM News WHERE fl=1 ORDER BY CreateDate DESC"
'设置每页记录数
rs.PageSize = 5
'读取参数Page，表示当前的页码
Page = CLng(Request("Page"))
'处理不合法的页码
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
%>
<% Dim rs, sql
'定义Recordset对象，用于保存新闻记录集
sql = "Select * From News where fl=1 Order By CreateDate Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
'显示新闻
rs.Open sql,conn,1,1
Do While Not rs.EOF
'显示新闻内容
txtcontent = rs("Memos")
txtcontent = replace(txtcontent, "<br>", chr(13))
txtcontent = replace(txtcontent, " &q

你打开两个记录集，而且两个记录集的名字都一样（rs），所以不能正常分页啊！！
建议：记录集的名称改变（rs1、rs2，sql1、sql2）

"定义Recordset对象，用于保存新闻记录集
sql = "Select * From News where fl=1 Order By CreateDate Desc"
Set rs = Server.CreateObject("ADODB.Recordset") "
去掉吧！！
试一试！

do while not rs.eof 改为
<%
i=1
do while not rs.eof and i<=rs.pagesize
%>

rs.movenext
loop
改为
<%
i+1
rs.movenext
loop

%>

把 rs 改了

asp分页显示问题? asp 分页显示问题 ASP分页显示问题？求助：ASP分页显示功能不分页 ASP分页的显示问题 ASP分页后不显示第二页的问题 ASP问题高分请教 ASP分页显示 asp.net中分页为什么不能显示 asp代码分页显示小问题关于ASP分页显示的问题