一个上下 移动后的翻页问题
在每页的最后一行下移的时候不能到下一页, 这是为什么。 而是直接到了最后一页 同样第二页的第一条上移应该返回第一页啊 他也直接到了第三页
郁闷中 请求帮助
我的翻页是这样的
<%
if request( "new_select ") <> " " then
sql= "lanchina_new_manage_query "&request( "new_select ")& ", ' "&request( "new_key ")& " ' "
else
sql= "lanchina_new_manage "
end if
set rscyc=server.CreateObject( "adodb.recordset ")
rscyc.CursorLocation = 3
rscyc.open sql,conn,1,3
i=0
if rscyc.eof then
response.write( "目前还没有新闻纪录!! ")
else
rscyc.pagesize=5
if request( "page ")= " " then
session( "page ")=1
else
session( "page ")=eval(session( "page ") & request( "page "))
if session( "page ") <1 then
session( "page ")=1
end if
if session( "page ")> rscyc.PageCount then
session( "page ")=rscyc.PageCount
end if
end if
rscyc.AbsolutePage=session( "page ")
j=0
do while not rscyc.eof and j <rscyc.pagesize
j=j+1
i=rscyc.pagesize*(session( "page ")-1)+j
%>
<tr>
<td> <span class= "STYLE9 ">
<label>
<input type= "checkbox " name= "new_id " value= " <%=rscyc( "new_id ")%> "/>
</label>
</span> </td>
<td> <span class= "STYLE9 "> <%=Server.HtmlEncode(left(rscyc( "new_title "),12))%> </span> </td>
<td> <span class= "STYLE9 "> <%=Server.HtmlEncode(rscyc( "new_titlesub "))%> </span> </td>
<td> <span class= "STYLE9 "> <%=Server.HtmlEncode(rscyc( "new_person "))%> </span> </td>
<td> <span class= "STYLE9 "> <%=Server.HtmlEncode(rscyc( "new_readcount "))%> </span> </td>
<td> <span class= "STYLE9 "> <%=rscyc( "new_passed ")%> </span> </td>
<td> <span class= "STYLE9 "> <%=rscyc( "new_top ")%> </span> <