ASP 上移下移问题 - ASP技术论坛

已结贴√ 问题点数：10 回复次数：12

ASP 上移下移问题

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

<%
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")&"   "&rs("名字")&""
Response.Write "  <a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
Response.Write "  <a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
Response.Write" "
rs.movenext
Loop
rs.close
set rs=Nothing%>

没分了！

搜索更多相关主题的帖子: 名字　

第 2 楼

得分:4

数据库里加一个顺序字段，最后一条的下一条数据肯定rs.eof=true，第一条上一条数据是rs.bof=true，判断一下即可。

第 3 楼

得分:0

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

帮我改下！

第 4 楼

得分:0

好像不行哦！
<%
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")&"   "&rs("名字")&""
if rs.eof=true Then
Else
Response.Write "  <a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
end If
if rs.bof=true Then
Else
Response.Write "  <a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
end If
Response.Write" "
rs.movenext
Loop
rs.close
set rs=Nothing%>

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

第 5 楼

得分:0

<%
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
t=0
do while not rs.eof
 Response.Write ""&rs("sid")&"   "&rs("名字")&""
 if t<>0 Then
 Response.Write "  <a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
 end If
 if t<rs.recordcount Then
 Response.Write "  <a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
 end If
 Response.Write" "
 rs.movenext
 t=t+1
Loop
rs.close
set rs=Nothing
%>

第 6 楼

得分:0

你上面的代码显示结果为

而我的代码是：

<%
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")&"   "&rs("名字")&""

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

显示结果为：

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

第 7 楼

得分:0

<%
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
t=0
do while not rs.eof
Response.Write ""&rs("sid")&"   "&rs("名字")&""
if t<>0 then Response.Write "  <a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
if rs.recordcount>rs("sid") Then Response.Write "  <a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
Response.Write" "
rs.movenext
t=t+1
Loop
rs.close
set rs=Nothing%

第 8 楼

得分:0

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

23.rar (9.67 KB)

第 9 楼

得分:0

好像是要用

rs.movefirst
rs.movenext

这两个语句来操作~

第 10 楼

得分:4

不要用SID来排序，用ID来做即可！
1.asp代码如下：

<%Dim conn,rs
Dim connstr
Dim sqlCmd
'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("x.mdb")
conn.open connstr%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
 <title> new document </title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
 <meta name="generator" content="editplus" />
 <meta name="author" content="" />
 <meta name="keywords" content="" />
 <meta name="description" content="" />
</head>

<body>

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

Q:1428196631，百度：开发地即可找到我,有事请留言！