关于分页显示的

[hannibal508]

写了一段代码，想实现分页显示，可是发现无论按哪一页，显示只是第一页，现吧代码写下，望高人指点。
dim Strroad,strname,strword,strnow,stra,page,thepagesize,ttlpage,ttlrdcnt
dim objconnection,objrs
dim sql
thepagesize=10
page=request("page")
if not isnumeric(page) or page<1 then
page=1
else
page=clng(page)
end if
set objconnection=server.CreateObject("adodb.connection")
set objrs=server.CreateObject("adodb.recordset")
strroad="Provider=microsoft.jet.oledb.4.0;Data source="& server.MapPath("web.mdb")
objconnection.open strroad
%>
<form name="form2" method="post" action="chat.asp">
<p>
<%=session("strid")%>
<input type="text" name="txttalk">
</p>
<p>
<input type="submit" name="Submit" value="发表言论">
<input type="reset" name="Submit" value="重写">
</p>
</form>
<p><a href="chatx.asp">离开</a></p>
<p>
<%

strword=request.Form("txttalk")
sql="select * from chat"
objrs.open sql,objconnection,1,3
if not objrs.eof then
objrs.pagesize=thepagesize '确定每页显示数
ttlpage=objrs.pagecount
ttlrdcnt=objrs.recordcount
if page>ttlpage then page=ttlpage
objrs.absolutepage=page'把指针移到要选择的页数
end if
response.write(objrs.absolutepage)'因为想看一下值加的，加了后发现值是正确的
objrs.movelast
if strword<>"" then
objrs.addnew
objrs("StrID")=session("strid")
objrs("strsaid")=strword
objrs("dtmtime")=now()
objrs.update
end if
for i=1 to thepagesize
if objrs.eof then exit for
%>
</p>
<table border="0"cellpadding="0" cellspacing="0" width="85%" >
<tr><td width="100%" bgcolor="#C0C0C0"></td></tr>
<tr><td width="100%"><font color="#0000FF">

<%
response.write(objrs("StrID"))
response.write("于")
response.write(objrs("Dtmtime"))
response.write("说:")
response.write(objrs("strsaid"))
%>
</td></tr><tr><td width="100%" bgcolor="#C0C0C0"></td></tr></table><br>
</table>
<%
objrs.moveprevious
next
objrs.close
objconnection.close
set objconnection=nothing
set objrecord=nothing
%>

<table width="899" border="0">
<tr>
<th scope="col"> </th>
<th scope="col"> </th>
<th scope="col">
<a href="chat.asp?page=<% = 1 %>">≤</a>
<% for i= 1 to ttlpage %>
　 <a href="chat.asp?page=<%=i%>"><%=i%></a>
<%next%>
<a href="chat.asp?page=<%=ttlpage%>">≥</a>
</th>
</tr>
</table>
<%
end if

[笨笨兔兔兔兔兔]

if page>ttlpage then page=ttlpage
objrs.absolutepage=page'把指针移到要选择的页数
基本上偶觉得你这里有逻辑没想对

[jarraytan]

<!-- =============================== Version:1.4 By 沙漠孤狐 ======================== -->
<!-- 通用分页模块。
参数：PURL分页页面的除了页码外的基本URL部分；PSize页面最大显示记录数。
-->
<% '==========获取分页数据===========
dim CurrentPage,RNo,PURL,PSize,P
PSize=session("PgSize") '页显示记录数
PURL="1_Sale_2_search.asp?ctype=" & ctype '除页码外的基本URL
currentpage=Trim(Request.Form("CPage")) '直接文本框跳转时
if currentpage="" then currentpage=Trim(Request.QueryString("CPage")) '点链接时
if currentpage="" or not isnumeric(currentpage) then
currentpage=1
else
currentpage=cint(currentpage)
end if
RNo=0
'==========分页数据结束=========== %>

<!-- 打开记录集开始 -->
<% sqls=""
rs.open sqls,conn,1,1
if not rs.eof then
'============分页数据对数据集的操作开始=============
rs.pagesize=PSize
if currentpage<1 then
currentpage=1
elseif currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
rs.absolutepage=currentpage
do while not rs.eof and RNo < PSize
'============分页数据对数据集的操作结束=============
%>

<!-- 这儿显示数据 -->

<% RNo=RNo+1 '计数增加
rs.movenext
loop
else
end if %>

<!-- 页面跳转模块开始 -->
<table width="720" border="0" align="center" cellspacing="2">
<tr bgcolor="#9FBFDF">
<form name="form1" method="post" action="<%= PURL %>"><td height="20"><center>
<strong><font color="#FFFFFF"><% If currentpage>1 Then Response.Write("<a href='" & PURL & "'>" )%>首页</a> ||
<% If currentpage>1 Then Response.Write("<a href="&PURL&"&CPage=" ¤tpage-1&">" )%><<上一页</a> ||
<% for P=1 to 10
if P>rs.pagecount then exit for
if P<>currentpage then Response.Write("<a href='"&PURL&"&CPage=" & P &"'>")
Response.Write("["& P &"]</a> ")
next %> ||
<% If currentpage<rs.pagecount Then Response.Write("<a href="&PURL&"&CPage=" ¤tpage+1 &">" )%>下一页>></a> ||
<% If currentpage<rs.pagecount Then Response.Write("<a href='" & PURL & "&CPage=" & rs.pagecount & "'>")%>尾页</a> ||
<input name="CPage" type="text" id="CPage" size="4" maxlength="5">
<font color="#FFFFFF">页</font> </font></strong> <strong><font color="#FFFFFF">||
第<%= currentpage %>页/共<%= rs.pagecount %>页 || 本页<%= RNo %>条/共<%= rs.recordcount %>条 || 每页<%= PSize %>条</font></strong>
</center></td></form></tr></table>
<!-- 页面跳转模块结束 -->

<% rs.close %> <!-- 注意：rs关闭不能提前 -->
<!-- =============================== MailTo:[e-mail] ======================== -->

[hannibal508]

谢谢各位帮忙，问题出在我把指针给搞错了。里面多了一句movelast .