帮忙看看循环的问题
我要求每24小时，变换一次屏幕的内容，可它一次给我写下来了，代码如下：
<% dim Mytime
Mytime=FormatDateTime(Time,4)
dim I
I=0
for i=1 to 3
if Mytime="00:00" Then
I=I+1
if I>3 Then
I=0
end if
else I=I
end if
if I=1 Then
Response.Write("china")
elseif I=2 Then
Response.Write("Janapanse")
elseif I=3 Then
Response.Write("koreas")
end if
next
%>
问题点数：40、回复次数：12Top
1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 08:55:46 得分 5
你的循环里直接写了3次，所以china janapanse koreas都写了…………逻辑有问题的………………Top
2 楼xczhw（天天向上）回复于 2004-09-04 08:59:18 得分 0
能帮忙改一下吗Top
3 楼zifan1980（zif）回复于 2004-09-04 09:00:21 得分 5
你循环中的I=I+1
不就是要遍历I吗？那就遍历输出了Top
4 楼setcdq9801（蓝鸽@我是你.net）回复于 2004-09-04 09:01:55 得分 5
if I=1 Then
Response.Write("china")
end if
if I=2 Then
Response.Write("Janapanse")
end if
if I=3 Then
Response.Write("koreas")
end if
就行了
Top
5 楼zltostem（五湖沸人）回复于 2004-09-04 09:04:30 得分 5
每次写一个，当然最后3个都被写出来了~~Top
6 楼dayanmao（大眼猫）回复于 2004-09-04 09:04:52 得分 5
For...Next
你的判断显示放在循环里了，当然全会显示~~Top
7 楼zifan1980（zif）回复于 2004-09-04 09:06:56 得分 5
<% dim Mytime
Mytime=FormatDateTime(Time,4)
dim I
if Mytime="00:00" Then
select case I
case 1
Response.Write("china")
case 2
Response.Write("Janapanse")
case 3
Response.Write("koreas")
case else
I=0
end select
end if
%>
Top
8 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 09:14:25 得分 0
楼上正解，不过建议你要刷新一下才行，另偶觉的还是用javascript好，用settimeout可以即使更新Top
9 楼xczhw（天天向上）回复于 2004-09-04 09:18:32 得分 0
不行啊，它干脆什么都不显示了Top
10 楼xczhw（天天向上）回复于 2004-09-04 09:24:58 得分 0
这只是一个值班表安排的模型Top
11 楼dayanmao（大眼猫）回复于 2004-09-04 09:50:07 得分 0
其实我觉得你可以在客户端用Javascript判断时间刷新页面，服务端不用循环直接判断当前时间来显示类型Top
12 楼onkey1999（忆江南信息网：http://www.donfor.com|2006冲刺NET）回复于 2004-09-04 09:58:23 得分 10
加一个中断语句：
if I=1 Then
Response.Write("china")
exit for
elseif I=2 Then
Response.Write("Janapanse")
exit for
elseif I=3 Then
Response.Write("koreas")
exit for
end ifTop
