<% @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" FromLatLng=trim(Request("FromLatLng")) WaypointsLatLng=trim(Request("WaypointsLatLng")) ToLatLng=trim(Request("ToLatLng")) If FromLatLng<>"" Then FromLatLngSP=SPLIT(FromLatLng,",") FromLat=FromLatLngSP(0) FromLng=FromLatLngSP(1) End If If WaypointsLatLng<>"" Then WaypointsLatLngSP=SPLIT(WaypointsLatLng,",") WaypointsLat=WaypointsLatLngSP(0) WaypointsLng=WaypointsLatLngSP(1) End If If ToLatLng<>"" Then ToLatLngSP=SPLIT(ToLatLng,",") ToLat=ToLatLngSP(0) ToLng=ToLatLngSP(1) End If If WaypointsLatLng<>"" Then '地图显示中心点 CenterLatLng=((CSng(FromLat)+CSng(WaypointsLat)+CSng(ToLat))/3)&","&((CSng(FromLng)+CSng(WaypointsLng)+CSng(ToLng))/3) Else CenterLatLng=((CSng(FromLat)+CSng(ToLat))/2)&","&((CSng(FromLng)+CSng(ToLng))/2) End If If WaypointsLatLng<>"" Then '地图缩放级别 sql="select Ceiling(6378137.0*ACOS(SIN("&ToLat&"/180*PI())*SIN("&FromLat&"/180*PI())+COS("&ToLat&"/180*PI())*COS("&FromLat&"/180*PI())*COS(("&ToLng&"-"&FromLng&")/180*PI()))),Ceiling(6378137.0*ACOS(SIN("&WaypointsLat&"/180*PI())*SIN("&FromLat&"/180*PI())+COS("&WaypointsLat&"/180*PI())*COS("&FromLat&"/180*PI())*COS(("&WaypointsLng&"-"&FromLng&")/180*PI()))),Ceiling(6378137.0*ACOS(SIN("&ToLat&"/180*PI())*SIN("&WaypointsLat&"/180*PI())+COS("&ToLat&"/180*PI())*COS("&WaypointsLat&"/180*PI())*COS(("&ToLng&"-"&WaypointsLng&")/180*PI())))" Else sql="select Ceiling(6378137.0*ACOS(SIN("&ToLat&"/180*PI())*SIN("&FromLat&"/180*PI())+COS("&ToLat&"/180*PI())*COS("&FromLat&"/180*PI())*COS(("&ToLng&"-"&FromLng&")/180*PI()))),0,0" End If rs.open sql,objConn,1,1 zoomscale=rs(0) If zoomscale