<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% Response.charset = "utf-8" %> <% 'GPS定时上报 '自动删除半年前的数据 sql="delete from CarGPS where datediff(dd,DataTime,getdate())>180" objConn.Execute sql appUrl="http://api.gpsoo.net/1/account/monitor" args1="access_token="&access_token args1=args1&"&target="&account&"&account="&account&"&time="&ToUnixTime(now(),0) args1=args1&"&map_type=BAIDU" '如果要显示在百度地图上，map_type=BAIDU此时返回的经纬度将经过baidu校准方式校准,如果要显示在google地图上，map_type=GOOGLE，此时返回的经纬度将经过google校准方式校准,map_type如果不填，则返回原始经纬度 HTMLCODE= GetBody(appUrl,args1) 'Response.Write args1&"

" 'HTMLCODE= PostBody(appUrl,args1) '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="" for i=0 to obj.length-1 data_imei = obj.get(i).imei '设备IMEI device_info = obj.get(i).device_info '0:正常数据 1:设备未上线 2:设备已过期 3:设备离线 device_info_new = obj.get(i).device_info_new'4:设备静止 gps_time = obj.get(i).gps_time '定位时间 GPS定位时间 UTC秒数(如果设备过期，值为0) sys_time = obj.get(i).sys_time 'Gps数据的系统时间 UTC秒数(如果设备过期，值为0) h_time = obj.get(i).heart_time '心跳时间 UTC秒数(如果设备过期，值为0) server_time = obj.get(i).server_time'当前服务器时间 UTC秒数(如果设备过期，值为0) lng = obj.get(i).lng '经度 (如果设备过期，值为0) lat = obj.get(i).lat '纬度 (如果设备过期，值为0) course = obj.get(i).course '航向(正北方向为0度，顺时针方向增大。最大值360度)(如果设备过期，值为0) speed = obj.get(i).speed '速度 (单位:km/h) 'status = obj.get(i).status 'ACC等信息 (如果设备过期，值为空字符串) 'acc = obj.get(i).acc '-1，表示这个设备不支持ACC功能；否则为ACC的状态值（0=关闭，1=开启） 'acc_seconds = obj.get(i).acc_seconds '该设备切换为当前状态已经过的时长（单位：秒） If data_imei<>"" then sql="insert into CarGPS (imei,device_info,device_info_new,gps_time,sys_time,heart_time,server_time,lng,lat,course,speed) values ('"&data_imei&"',"&device_info&","&device_info_new&","&gps_time&","&sys_time&","&h_time&","&server_time&","&lng&","&lat&","&course&","&speed&")" 'Response.Write sql &"
" objConn.Execute sql End If Next 'Response.Write "OK" %>