28,391
社区成员
发帖
与我相关
我的任务
分享
<%Response.Charset = "gb2312"
midubs = CDbl(Application("midubs"))
imei = Trim(request("imei"))
td = Trim(request("td"))
sd = DateAdd("d", -2, Now())'两天前的当前时间
sql = "select time1, c"&td&" from tbRealData where imei='"&imei&"' and time1 > '"&sd&"' ORDER BY time1"
Set rs = conn.Execute(sql)
rs.movefirst
timestart = sd
i = 0
Do While Not rs.EOF
temp = rs(0)
If rs(1)>1 Then
cc = (FormatNumber(rs(1) * midubs, 1, -1) -1) * 10
If cc>10 Then
cc = 10
Else
cc = cc
End If
Else
cc = (FormatNumber(rs(1) * midubs, 1, -1))
End If
If temp< DateAdd("n", 4 * i, timestart) Then
rs.movenext
ElseIf temp>= DateAdd("n", 4 * i, timestart) And temp<DateAdd("n", 4 * i + 4, timestart) Then
If i = 0 Then
MyCstr = cc
Else
MyCstr = MyCstr &","& cc
End If
i = i + 1
rs.movenext
ElseIf temp>= DateAdd("n", 4 * i + 4 , timestart) Then
If i = 0 Then
MyCstr = -1
Else
MyCstr = MyCstr &","& -1
End If
i = i + 1
End If
If i>= 720 Then
rs.movelast
End If
Loop
If i<719 Then
For j = i To 719
If j<1 Then
MyCstr = -1
Else
MyCstr = MyCstr&",-1"
End If
Next
End If
rs.Close
Set rs = Nothing
%>
我现在取的是 temp>= DateAdd("n", 4 * i, timestart) And temp<DateAdd("n", 4 * i + 4, timestart) 范围内的第一个记录,这个范围内有8条记录