%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<% Response.charset = "utf-8" %>
<%
GPSDate=Request("GPSDate")
OldData=0
Set rs = Server.CreateObject("ADODB.Recordset")
If GPSDate="" Then
GPSDate=Date()
sql="select count(id) from CarGPS_Milestat where GPS_datetime=convert(char(10),dateadd(dd,-1,getdate()),120)"
rs.open Sql,objConn,1,1
OldData=rs(0)
rs.close()
Else
GPSDate=CDate(GPSDate)+1
End If
If OldData<5 And OldData>0 Then
sql="delete from CarGPS_Milestat where GPS_datetime='"&CDate(GPSDate)+1&"'"
objConn.Execute sql
OldData=0
End If
If OldData=0 And DatePart("h",now())>=6 And DatePart("h",now())<=22 Then
'获取设备里程统计
appUrl="http://api.gpsoo.net/1/tool/runstatus"
args1="method=milestat&access_token="&access_token
args1=args1&"&beginTime="&ToUnixTime(CDate(GPSDate)-1,8)&"&endTime="&ToUnixTime(CDate(GPSDate),8)-1 '自动上一天
'args1=args1&"&beginTime="&ToUnixTime("2020-1-19 00:00:00",8)&"&endTime="&ToUnixTime("2020-1-19 23:59:59",8) '手动日期
'args1=args1&"&beginTime=1538323200&endTime=1538841599" '手动时间
args1=args1&"&timezone=8" '用户所在时区(-12,+12)
sql="select CarID,CarLicense,GPS_IMEI from CarData where GPS_IMEI<>''"
rs.open Sql,objConn,1,1
do while not rs.Eof
args2=args1&"&imei="&rs("GPS_IMEI")
'Response.Write args2&"
"
HTMLCODE= GetBody(appUrl,args2)
'Response.Write HTMLCODE &"
"
'Response.end
json = HTMLCODE
str=json
str=right(str,len(str)-instr(str,"{")+1)
str=left(str,InstrRev(str,"}"))
dim obj
set obj = getjson(str)
str0=""
ret = obj.ret '是否返回成功
If ret=0 then
for i=0 to obj.data.length-1
data = obj.data.get(i)
If data<>"" Then
GPSData = split(data,",")
If ubound(GPSData)=5 then
GPS_imei = GPSData(0)
GPS_datetime= GPSData(1)
GPS_milestat= GPSData(2)
GPS_outspeed= GPSData(3)
GPS_outspeedlimit= GPSData(4)
GPS_stop= GPSData(5)
sql="insert into CarGPS_Milestat (imei,GPS_datetime,GPS_milestat,GPS_outspeed,GPS_outspeedlimit,GPS_stop) values ('"&GPS_imei&"','"&GPS_datetime&"',"&GPS_milestat&","&GPS_outspeed&","&GPS_outspeedlimit&","&GPS_stop&")"
'Response.Write sql &"
"
objConn.Execute sql
End If
End If
Next
End If
rs.movenext
Loop
rs.close()
Response.Write "OK"
If Request("GPSDate")<>"" Then
Response.Write " "&CDate(GPSDate)&""
End If
%>
<%Else
'Response.Write "OK1"
End If%>