如何实现隔一天换一个位置

[myisalan]

N条纪录排列如下：
第一天：
1 2 3 4 5 6 7
第二天
2 3 4 5 6 7 1
。
。
。
第七天
7 1 2 3 4 5 6
第八天
1 2 3 4 5 6 7
。
。
循环至永远

[myisalan]

dnawo() 的WeekDay函数调用~只能局限于7条数据的循环显示~
若是多于7条数据~~则就无法表示了~~
--------------------------------------
现在的问题是：数据库信息条数未知~~如何按条件循环调出~~

[文盲老顾]

x = init
for i = 1 to 7
if x + i > 6 then
response.write wekday(x+i)
else
response.write weekday(x+i-7)
end if
next

[aa6543321]

1先查询间隔多少天p！
2再和n(要循环的数据的个数比较)！~
if p<=n then
查询输出
else
p=p mod n
查询输出
end if

[dnawo]

将当今天显示的记录做个标记
第二天标记下移,并从该记录开始显示

[myisalan]

这个提问本身有问题~~谢谢大家的参与~~
我另开新帖子再行讨论~~
结贴了！~！！

[myisalan]

顶~~~~~~~~~

[chenguang79]

帮顶一下，很有意思的问题

[dnawo]

<%
'声明数组并赋值
Dim arrRecord(7)
arrRecord(1) = 1
arrRecord(2) = 2
arrRecord(3) = 3
arrRecord(4) = 4
arrRecord(5) = 5
arrRecord(6) = 6
arrRecord(7) = 7

Dim i,j
For i = WeekDay(now()) - 1 to 7
Response.Write(arrRecord(i) & "<br/>")
Next

For j = 1 to WeekDay(now()) - 2
Response.Write(arrRecord(j) & "<br/>")
Next
%>

[myisalan]

如果是从数据库动态调出的~如何做？

[aa6543321]

sql1="select * from 表 order by id "
time1=rs1("time") '第一天的日期
time2=now()'今天的日期
p= DateDiff("d", time1, time2)
sql2="select top n * from 表 order by id"
sql3="select * from 表 where id not in (select top n * from 表 order by id) order by id"
if not rs2.eof or rs2.bof then
l=rs2("id")
rs2.move next
end if
if not rs3.eof or rs3.bof then
n=rs3("id")
rs3.move next
end if
response.write(l&n)
==================================================
没测试 不知道行不行！~~~

[dnawo]

<%
'声明数组
Dim arrRecord(7)
'查询数据库并给数组赋值(这不用写了吧)

Dim i,j
For i = WeekDay(now()) - 1 to 7
Response.Write(arrRecord(i) & "<br/>")
Next

For j = 1 to WeekDay(now()) - 2
Response.Write(arrRecord(j) & "<br/>")
Next
%>

[myisalan]

验证结果如下：
静态实现：dnawo() --〉测试通过
动态实现：aa6543321() --〉测试未通过
原因分析:sql1，sql2，sql3语句逻辑有问题~~