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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → ASP 上移下移问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1098 人关注过本帖

标题：ASP 上移下移问题

只看楼主加入收藏

xing599666

等　级：论坛游民
帖　子：104
专家分：91
注　册：2005-5-17
结帖率：85%

楼主

已结贴√ 问题点数：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%>

图片附件: 游客没有浏览图片的权限，请登录或注册

没分了！

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

2011-02-11 10:20

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 2 楼

得分:4

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

2011-02-11 11:20

xing599666

等　级：论坛游民
帖　子：104
专家分：91
注　册：2005-5-17

第 3 楼

得分:0

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

帮我改下！

2011-02-11 11:32

xing599666

等　级：论坛游民
帖　子：104
专家分：91
注　册：2005-5-17

第 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 编辑 ]

2011-02-11 11:34

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 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
%>

2011-02-11 12:51

xing599666

等　级：论坛游民
帖　子：104
专家分：91
注　册：2005-5-17

第 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 编辑 ]

2011-02-11 13:01

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 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%

2011-02-11 13:19

xing599666

等　级：论坛游民
帖　子：104
专家分：91
注　册：2005-5-17

第 8 楼

得分:0

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

23.rar (9.67 KB)

2011-02-11 13:36

xing599666

等　级：论坛游民
帖　子：104
专家分：91
注　册：2005-5-17

第 9 楼

得分:0

好像是要用

rs.movefirst
rs.movenext

这两个语句来操作~

2011-02-11 13:41

gupiao175

等　级：版主
威　望：40
帖　子：1787
专家分：7527
注　册：2007-6-27

第 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，百度：开发地即可找到我,有事请留言！

2011-02-11 14:12

快速回复：ASP 上移下移问题