<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% Response.charset = "utf-8" %> <% Set rs = Server.CreateObject("ADODB.Recordset") '获取设备里程统计 appUrl="http://api.gpsoo.net/1/tool/runstatus" args1="method=milestat&access_token="&access_token args1=args1&"&beginTime="&ToUnixTime(Date()-1,8)&"&endTime="&ToUnixTime(Date(),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" %>