日期:2014-05-17  浏览次数:20822 次

一个上下 移动后的翻页问题
在每页的最后一行下移的时候不能到下一页,   这是为什么。   而是直接到了最后一页   同样第二页的第一条上移应该返回第一页啊   他也直接到了第三页
郁闷中   请求帮助
我的翻页是这样的  
  <%
        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 "))%> &nbsp; </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 ")%> &nbsp; </span> <