#2

yms1232008-06-15 20:15

rs.MoveProvious'移动到当前数据的上一条
rs.MoveNext'移动到当前数据的下一条
rs.MoveFirst'移动到第一条
rs.MoveLast'移动到最后一条
ADODB.RecordSet有这几个方法，来实现上一篇或下一篇的效果。
需要注意的是这种效果RecordSet的Open方法参数要注意
rs.Open "SQL查询语句",[数据库连接对象],1,3
后面的1,3参数要注意，因为某些参数不一样会导致这种操作出现错误。
后面的参数规定了RecordSet的允许的移动方向，有些参数是不能移动到上一条的。

#3

chenjunyong2008-06-15 20:25

代码我倒是能看懂一点..因为我在做那个文章列表重复的时候.我就用到这样的,因为重复了10条记录,在下面要有一个连接到下一页的内容(表里的内容多),代码:
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="23%" align="center"><% If MM_offset <> 0 Then %>
                <a href="<%=MM_moveFirst%>">第一页</a>
                <% End If ' end MM_offset <> 0 %>
            </td>
            <td width="31%" align="center"><% If MM_offset <> 0 Then %>
                <a href="<%=MM_movePrev%>">前一页</a>
                <% End If ' end MM_offset <> 0 %>
            </td>
            <td width="23%" align="center"><% If Not MM_atTotal Then %>
                <a href="<%=MM_moveNext%>">下一页</a>
                <% End If ' end Not MM_atTotal %>
            </td>
            <td width="23%" align="center"><% If Not MM_atTotal Then %>
                <a href="<%=MM_moveLast%>">最后一页</a>
                <% End If ' end Not MM_atTotal %>
            </td>
          </tr>
        </table>
前面定义的代码就不发了.
但这好象不是我想要的~
可能是我的理解能力欠缺吧!
还是谢谢斑竹啦!

#4

yms1232008-06-15 20:33

<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="23%" align="center"><% If MM_offset <> 0 Then %>
                <a href="<%=MM_moveFirst%>">第一页</a>
                <% End If ' end MM_offset <> 0 %>
            </td>
            <td width="31%" align="center"><% If MM_offset <> 0 Then %>
                <a href="<%=MM_movePrev%>">前一页</a>
                <% End If ' end MM_offset <> 0 %>
            </td>
            <td width="23%" align="center"><% If Not MM_atTotal Then %>
                <a href="<%=MM_moveNext%>">下一页</a>
                <% End If ' end Not MM_atTotal %>
            </td>
            <td width="23%" align="center"><% If Not MM_atTotal Then %>
                <a href="<%=MM_moveLast%>">最后一页</a>
                <% End If ' end Not MM_atTotal %>
            </td>
          </tr>
        </table>

这种最好用分页的方法写，用上一篇或下一篇的方法写这个的确很麻烦。

ASP中上一篇下一篇!!