我在我的分页代码中明明将rs.pagesize设置为rs.pagesize＝５，可显示记录时却是以显示十条记录来分页的
rs.pagesize = 5
pagecount1 = rs.pagecount
If request.querystring("pagenum") = 0 Or request.querystring("pagenum") = "" Then
pagenum = 1
Else
pagenum = request.querystring("pagenum")
rs.absolutepage = Trim(request.querystring("pagenum"))
End If
<p align="center">[<a href=shijianone.asp?pagenum=1>首页</a>
<%If pagenum > 1 Then%>
<a href=shijianone.asp?pagenum=<%=(pagenum-1)%>>上一页</a>
<%Else%>
上一页
<%pagenum=1%>
<%End If%>

<%If pagenum < Trim(pagecount1) Then%>
<a href=shijianone.asp?pagenum=<%=(pagenum+1)%>>下一页</a>
<%Else%>
下一页
<%pagenum=pagecount1%>
<%End If%>
<a href=shijianone.asp?pagenum=<%=pagecount1%>>尾页</a>]
[页次：<%=pagenum%>/<%=pagecount1%>页] [每页显示<%=rs.pagesize%>条记录/<%=rs.recordcount%>总共条记录]
</p>

那你有没有在记录显示的地方加入计数器?

<%
i=0
do while not rs.eof and i<5
%>
............

<%
i=i+1
rs.movenext
loop
%>

dim counter,howpage
rs.pagesize=4
thesize=rs.pagesize
counter=rs.RecordCount
howpage=rs.pagecount
dim thecursor

If Request.QueryString("PAGE")=""Then
session("intPage")=1
Else
If session("intPage")<1 Then
session("intPage")=1
Else
If session("intPage")>rs.PageCount Then
session("intPage")=rs.PageCount
Else
nowpage=request("page")
session("intPage")=CInt(nowpage)
End If
End If
End If

你没有定义值怎么会有用呢？
<%if not rs.eof then
dim i
i = 1
while not rs.eof and i<rs.pagesize+1%>

<% i=i+1
rs.movenext
%>
你做的时候写到这些了吗？没写到我想你应该这个页面显示也是个错误的提示~

加了的,代码是这样的:
%For iPage = 1 To rs.PageSize%>
<tr>
<td width="55" height="20" align="center"><%=rs("Tijiandanhao")%></td>
<td width="54" height="20" align="center"><%=rs("Tijianshijian")%></td>
<td width="59" height="20" align="center"><%=replace(rs("xin")&"",",","")%></td>
</tr>
<tr>
<% rs.MoveNext
If rs.EOF or rs.bof Then Exit For
Next
Response.Write "</TABLE></CENTER>"

%>
</tr>
现在是这样一个问题,在点击"下一页"时也就是在所有翻页时会报错
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/zj/shijianone.asp, 第 59 行
就是这句话:rs.AbsolutePage = Page

可以帮忙看看我修改的代码吗?这是错误提示:
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/zj/shijianone.asp, 第 56 行
报错代码是:rs.AbsolutePage = Page

你可以不可以把你做的代码全发来呢？可能不是这个地方出错。

可以帮忙看看我修改后的代码吗?错误提示为:错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/zj/shijianone.asp, 第 56 行
错误代码为:rs.AbsolutePage = Page

你把rs.Absolutepage改成 rs.AbsolutePage=session("intPage")
看看吧

把:rs.AbsolutePage = Page改成rs.AbsolutePage=session("intPage")看看有没有用~