<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<% Response.charset = "utf-8" %>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include file="JsonPost.gds"-->
|
<%
|
|
|
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&"<br><br>"
|
'HTMLCODE= PostBody(appUrl,args1)
|
'Response.Write HTMLCODE &"<br>"
|
'Response.end
|
|
json = HTMLCODE
|
%>
|
<script language="JScript" runat="Server">
|
function toObject(json) {
|
eval("var o=" + json);
|
return o;
|
}
|
function toArray(s){
|
var dic = Server.CreateObject("Scripting.Dictionary")
|
eval("var a=" + json);
|
for(var i=0;i<a.length;i++){
|
var obj = Server.CreateObject("Scripting.Dictionary")
|
for(x in a[i]) obj.Add(x,a[i][x])
|
dic.Add(i, obj);
|
}
|
return dic
|
}
|
</script>
|
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
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 &"<br>"
|
objConn.Execute sql
|
End If
|
|
Next
|
Response.Write "OK"
|
|
appUrl="http://api.gpsoo.net/1/tool/address"
|
|
args1="access_token="&access_token
|
args1=args1&"&lng=113.2557680000&lat=23.1826800000&account="&account&"&time="&ToUnixTime(now(),0)
|
HTMLCODE= GetBody(appUrl,args1)
|
Response.Write HTMLCODE &"<br>"
|
%>
|
