asp随机判断错误求解?原来是当每超过三条数据的时候判断If (Total Mod 3)=0 Then如何改为随机每4-6条数据的时候判断把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)If (Total Mod aaa)=0 Then后为什么,明明定义的是
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/09 18:26:39
![asp随机判断错误求解?原来是当每超过三条数据的时候判断If (Total Mod 3)=0 Then如何改为随机每4-6条数据的时候判断把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)If (Total Mod aaa)=0 Then后为什么,明明定义的是](/uploads/image/z/13583995-43-5.jpg?t=asp%E9%9A%8F%E6%9C%BA%E5%88%A4%E6%96%AD%E9%94%99%E8%AF%AF%E6%B1%82%E8%A7%A3%3F%E5%8E%9F%E6%9D%A5%E6%98%AF%E5%BD%93%E6%AF%8F%E8%B6%85%E8%BF%87%E4%B8%89%E6%9D%A1%E6%95%B0%E6%8D%AE%E7%9A%84%E6%97%B6%E5%80%99%E5%88%A4%E6%96%ADIf+%28Total+Mod+3%29%3D0+Then%E5%A6%82%E4%BD%95%E6%94%B9%E4%B8%BA%E9%9A%8F%E6%9C%BA%E6%AF%8F4-6%E6%9D%A1%E6%95%B0%E6%8D%AE%E7%9A%84%E6%97%B6%E5%80%99%E5%88%A4%E6%96%AD%E6%8A%8A%E8%BF%99%E5%8F%A5%E6%94%B9%E4%B8%BAaaa%3DInt%28%286+-+4+%2B+1%29+%2A+Rnd%28%29+%2B+4%29If+%28Total+Mod+aaa%29%3D0+Then%E5%90%8E%E4%B8%BA%E4%BB%80%E4%B9%88%2C%E6%98%8E%E6%98%8E%E5%AE%9A%E4%B9%89%E7%9A%84%E6%98%AF)
asp随机判断错误求解?原来是当每超过三条数据的时候判断If (Total Mod 3)=0 Then如何改为随机每4-6条数据的时候判断把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)If (Total Mod aaa)=0 Then后为什么,明明定义的是
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
asp随机判断错误求解?原来是当每超过三条数据的时候判断If (Total Mod 3)=0 Then如何改为随机每4-6条数据的时候判断把这句改为aaa=Int((6 - 4 + 1) * Rnd() + 4)If (Total Mod aaa)=0 Then后为什么,明明定义的是
aaa=Int((6 - 4 + 1) * Rnd() + 4)
前面加这一句看看
randomize