ASP 上移下移问题 - 编程论坛

#2

yms1232011-02-11 11:20

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

#3

xing5996662011-02-11 11:32

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

帮我改下！

#4

xing5996662011-02-11 11:34

只有本站会员才能查看附件，请登录

好像不行哦！
<%
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

yms1232011-02-11 12:51

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

xing5996662011-02-11 13:01

你上面的代码显示结果为

只有本站会员才能查看附件，请登录

而我的代码是：

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

yms1232011-02-11 13:19

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

xing5996662011-02-11 13:36

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

只有本站会员才能查看附件，请登录

#9

xing5996662011-02-11 13:41

好像是要用

rs.movefirst
rs.movenext

这两个语句来操作~

#10

gupiao1752011-02-11 14:12

不要用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>

#11

xing5996662011-02-11 15:11

可以实现这样的显示：

只有本站会员才能查看附件，请登录

数据库也有修改排列。

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

#12

xing5996662011-02-11 16:35

搞了一天也没搞顶！！谢谢两位斑猪。
我用最愚蠢的办法！
效果这样。

只有本站会员才能查看附件，请登录

<%
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")&"   "&rs("名字")&""
If t>1 Then
Response.Write "  <a href='2.asp?action=up&orderid="&rs("sid")&"'>上移</a>"
Else
Response.Write "  <a href='2.asp?action=down&orderid="&rs("sid")&"'>下移</a>"
End If

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

Response.Write" "
rs.movenext
Next
'Loop

rs.close
set rs=Nothing%>

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

#13

wshiqtb2012-03-30 09:08

http://www.