搞了一天也没搞顶！！谢谢两位斑猪。
我用最愚蠢的办法！
效果这样。
我用最愚蠢的办法！
效果这样。
<%
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"<br>"
rs.movenext
Next
'Loop
rs.close
set rs=Nothing%>
[ 本帖最后由 xing599666 于 2011-2-11 16:41 编辑 ]
