怎么让第一条数据没有上移，而最后一条没下移呢？

<%
Dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from 留言内容 order by sid"
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
end If
do while not rs.eof
Response.Write ""&rs("sid")&"&nbsp;&nbsp;&nbsp;"&rs("名字")&""
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
Response.Write"<br>"
rs.movenext
Loop
rs.close
set rs=Nothing%>



没分了！

我可以实现上移下移~~就是不知道上面怎么来半段第一条没上移，最后一条没下移。

帮我改下！

好像不行哦！
<%
Dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from 留言内容 order by sid"
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
end If
do while not rs.eof
Response.Write ""&rs("sid")&"&nbsp;&nbsp;&nbsp;"&rs("名字")&""
if rs.eof=true Then
Else
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
end If
if rs.bof=true Then
Else
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
end If
Response.Write"<br>"
rs.movenext
Loop
rs.close
set rs=Nothing%>

[ 本帖最后由 xing599666 于 2011-2-11 12:18 编辑 ]

你上面的代码显示结果为






而我的代码是：

<%
Dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from 留言内容 order by sid"
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
end If
do while not rs.eof
Response.Write ""&rs("sid")&"&nbsp;&nbsp;&nbsp;"&rs("名字")&""

'下面不知道怎么判断是否第一条
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
if rs.recordcount=>rs("sid") Then Response.Write "&nbsp;&nbsp;<a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
Response.Write"<br>"
rs.movenext
Loop
rs.close
set rs=Nothing%>

显示结果为：



[ 本帖最后由 xing599666 于 2011-2-11 13:18 编辑 ]

还是不行哦~我给你文件~你试试下。

好像是要用

rs.movefirst
rs.movenext

这两个语句来操作~

可以实现这样的显示：


数据库也有修改排列。

但界面没有变动！自己下载试下。

<%
Dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from 留言内容 order by sid"
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
end If
Dim T

'do while not rs.eof
For t=1 to rs.recordcount

Response.Write ""&rs("id")&"&nbsp;&nbsp;&nbsp;"&rs("名字")&""
If t>1 Then
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
Else
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
End If

If t=>rs.recordcount  Then
ElseIf t>1 Then
Response.Write "&nbsp;&nbsp;<a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
End If

Response.Write"<br>"
rs.movenext
Next
'Loop

rs.close
set rs=Nothing%>


[ 本帖最后由 xing599666 于 2011-2-11 16:41 编辑 ]