作业帮asp随机判断错误求解?
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/15 14:53:49
asp随机判断错误求解?
原来是当每超过三条数据的时候判断
If (Total Mod 3)=0 Then
如何改为随机每4-6条数据的时候判断
把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)
If (Total Mod aaa)=0 Then后为什么,明明定义的是4-6条为什么会出现8条、12条等.
以下是部分代码：
If Rs.Bof Or Rs.Eof Then
'Response.write "False"
Else
ydate = GetDate(Lyear,LHour,Lminute)
Do Until Rs.EOF
ydate = DATEADD ("s" ,Int((59 * Rnd) + 1),ydate)
BHour = FormatDateTime(ydate,3)
AHour = Split(LHour,"-",-1,1)
BHour = Split(BHour,":",-1,1)
Aminute= Split(Lminute,"-",-1,1)
LHour = BHour(0)&"-"&AHour(1)
Lminute = BHour(1)&"-"&Aminute(1)
'当每超过三条数据的时候判断
aaa=Int((6 - 4 + 1) * Rnd() + 4)
If (Total Mod aaa)=0 Then
If Total 0 Then
ydate = FormatDateTime(ydate,2)&" "&LLHour(0)&":"&LLminute(0)&":00"
'Response.write ydate
ydate = DATEADD ("d" ,1,ydate)
Lyear = FormatDateTime(ydate,2)
LHour = LLHour(0)&"-"&LLHour(1)
Lminute = LLminute(0)&"-"&LLminute(1)
Total = 0
End If
End If
ydate = GetDate(Lyear,LHour,Lminute)
Response.write "
ID："&Rs("id")&" 更新时间："&ydate&"
"
Sql = "Update Table_1 Set ydate='"&ydate&"' Where id="&Rs("id")
'Response.write Sql
Conn.Execute(Sql)
Total=Total+1
Rs.MoveNext
Loop
End If
Rs.Close
原来是当每超过三条数据的时候判断
If (Total Mod 3)=0 Then
如何改为随机每4-6条数据的时候判断
把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)
If (Total Mod aaa)=0 Then后为什么,明明定义的是4-6条为什么会出现8条、12条等.
以下是部分代码：
If Rs.Bof Or Rs.Eof Then
'Response.write "False"
Else
ydate = GetDate(Lyear,LHour,Lminute)
Do Until Rs.EOF
ydate = DATEADD ("s" ,Int((59 * Rnd) + 1),ydate)
BHour = FormatDateTime(ydate,3)
AHour = Split(LHour,"-",-1,1)
BHour = Split(BHour,":",-1,1)
Aminute= Split(Lminute,"-",-1,1)
LHour = BHour(0)&"-"&AHour(1)
Lminute = BHour(1)&"-"&Aminute(1)
'当每超过三条数据的时候判断
aaa=Int((6 - 4 + 1) * Rnd() + 4)
If (Total Mod aaa)=0 Then
If Total 0 Then
ydate = FormatDateTime(ydate,2)&" "&LLHour(0)&":"&LLminute(0)&":00"
'Response.write ydate
ydate = DATEADD ("d" ,1,ydate)
Lyear = FormatDateTime(ydate,2)
LHour = LLHour(0)&"-"&LLHour(1)
Lminute = LLminute(0)&"-"&LLminute(1)
Total = 0
End If
End If
ydate = GetDate(Lyear,LHour,Lminute)
Response.write "
ID："&Rs("id")&" 更新时间："&ydate&"
"
Sql = "Update Table_1 Set ydate='"&ydate&"' Where id="&Rs("id")
'Response.write Sql
Conn.Execute(Sql)
Total=Total+1
Rs.MoveNext
Loop
End If
Rs.Close
aaa=Int((6 - 4 + 1) * Rnd() + 4)
前面加这一句看看
randomize
再问： 上面是有randomize的，忘记写上了，加randomize也不行？？
再答： randomize aaa=Int((2* Rnd()) + 4)
再问： 不行，还是会出现8到12条
再答： 那你先测试输出一下aaa的值看一下
再问： aaa的值是对的 4、5、6
再答： 再输出一下Total,因为我不知道你具体是什么，所以我猜应该出在这两个值上
前面加这一句看看
randomize
再问： 上面是有randomize的，忘记写上了，加randomize也不行？？
再答： randomize aaa=Int((2* Rnd()) + 4)
再问： 不行，还是会出现8到12条
再答： 那你先测试输出一下aaa的值看一下
再问： aaa的值是对的 4、5、6
再答： 再输出一下Total,因为我不知道你具体是什么，所以我猜应该出在这两个值上