<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% Session.CodePage=65001 %> <% Response.charset = "utf-8" %> <% Set rs = Server.CreateObject("ADODB.Recordset") '腾讯地图 lbs_key="KDJBZ-45QW2-I36UJ-CB53K-OUFE5-DJBQ5" '百度地图 'ak="lA7jbMtGXprDlUfbvAGNRuXm4phHhk7b" 'vicgame ak="rGQBbHKGjAtVQy23OckafQkC6nNlaGmi" 'vicgame_NS1 FromLatLng=trim(Request("FromLatLng")) WaypointsLatLng=trim(Request("WaypointsLatLng")) ToLatLng=trim(Request("ToLatLng")) If FromLatLng<>"" And ToLatLng<>"" And 1=2 then '腾讯地图 appUrl = "https://apis.map.qq.com/ws/direction/v1/driving/" args1 = "from="&FromLatLng&"&to="&ToLatLng&"&key="&lbs_key If WaypointsLatLng<>"" Then args1 = args1&"&waypoints="&WaypointsLatLng End If 'Response.Write appUrl&"?"&args1 &"

" 'Response.End HTMLCODE= GetBody(appUrl,args1) 'Response.Write HTMLCODE &"

" 'Response.End str="["&HTMLCODE&"]" set obj = getjson(str) status = obj.get(0).status lbs_from="" lbs_from_j="" webJson="" Dim FormArray() REDIM FormArray(10,10) '表头 If status=0 then distance = obj.get(0).result.routes.get(0).distance '方案总距离 duration = obj.get(0).result.routes.get(0).duration '方案估算时间（含路况） 'Response.Write distance&","&duration &"

" 'Response.End 'webJson="{""method"":""StoreDistance"",""result"":1,""to_lat"":"""&to_lat&""",""to_lng"":"""&to_lng&"""}" webJson=distance&"|"&duration Else webJson=0 End If ElseIf FromLatLng<>"" And ToLatLng<>"" then '百度地图 appUrl = "https://api.map.baidu.com/directionlite/v1/driving" args1 = "origin="&FromLatLng&"&destination="&ToLatLng&"&ak="&ak If WaypointsLatLng<>"" Then args1 = args1&"&waypoints="&Replace(WaypointsLatLng,";","|") End If 'Response.Write appUrl&"?"&args1 &"

" 'Response.End HTMLCODE= GetBody(appUrl,args1) 'Response.Write HTMLCODE &"

" 'Response.End str="["&HTMLCODE&"]" set obj = getjson(str) status = obj.get(0).status lbs_from="" lbs_from_j="" webJson="" '表头 If status=0 then distance = obj.get(0).result.routes.get(0).distance '方案总距离 duration = obj.get(0).result.routes.get(0).duration '方案估算时间（含路况） 'Response.Write distance&","&duration &"

" 'Response.End 'webJson="{""method"":""StoreDistance"",""result"":1,""to_lat"":"""&to_lat&""",""to_lng"":"""&to_lng&"""}" webJson=distance&"|"&duration Else webJson=0 End If Else webJson=0 End If 'Response.End Response.Write webJson %>