<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%Set rs = Server.CreateObject("ADODB.Recordset")
|
DispatchOrdID=SafeRequest(Request("DispatchOrdID"))
|
|
%>
|
<!DOCTYPE html>
|
<html>
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />
|
<title>车辆运行情况<%=DispatchOrdID%></title>
|
<style type="text/css">
|
body, html{width: 100%;height: 100%;margin:0;font-family:"微软雅黑";}
|
#allmap{height:100%;width:100%;}
|
</style>
|
<script type="text/javascript" src="http://api.map.baidu.com/api?v=2.0&ak=9fb983ecd9b505f8fedcc9ab07c65e3e"></script>
|
<script type="text/javascript" src="http://developer.baidu.com/map/jsdemo/demo/convertor.js"></script>
|
<script src="/js/zepto.min.js"></script>
|
</head>
|
<body>
|
<div id="allmap"></div>
|
</body>
|
</html>
|
<%
|
latitudeSP=""
|
longitudeSP=""
|
DispatchOrdStateSP=""
|
sql="select * from DispatchOrd_Running where DispatchOrdIDDt="&DispatchOrdID&" and OA_latitude>0 order by DispatchOrdStartDate"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
Rid = rs("id") '操作ID
|
DispatchOrdStateR = rs("DispatchOrdState") '
|
DispatchOrdStartDateR= rs("DispatchOrdStartDate")
|
DispatchOrdStartOAR = rs("DispatchOrdStartOA")
|
OA_latitude = rs("OA_latitude")
|
OA_longitude = rs("OA_longitude")
|
|
DispatchOrdStateTXT = replace(DispatchOrdStateA(DispatchOrdStateR),"全部确定：","")
|
DispatchOrdStateTXT = replace(DispatchOrdStateTXT,"已出车","")
|
DispatchOrdStateTXT = replace(DispatchOrdStateTXT,"（","")
|
DispatchOrdStateTXT = replace(DispatchOrdStateTXT,"）","")
|
DispatchOrdStateTXT = replace(DispatchOrdStateTXT,"去接客人途中","出车")
|
|
DispatchOrdStateSP=DispatchOrdStateSP&"|"&DispatchOrdStateTXT&"<br>"&DispatchOrdStartDateR
|
latitudeSP=latitudeSP&"|"&OA_latitude
|
longitudeSP=longitudeSP&"|"&OA_longitude
|
|
rs.movenext
|
loop
|
rs.close()
|
|
DispatchOrdStateSP=SPLIT(DispatchOrdStateSP,"|")
|
latitudeSP=SPLIT(latitudeSP,"|")
|
longitudeSP=SPLIT(longitudeSP,"|")
|
|
If UBOUND(longitudeSP)>=2 Then
|
Zoom_longitude = longitudeSP(2)
|
Zoom_latitude = latitudeSP(2)
|
ElseIf UBOUND(longitudeSP)>=1 Then
|
Zoom_longitude = longitudeSP(1)
|
Zoom_latitude = latitudeSP(1)
|
End if
|
%>
|
|
<%If Zoom_longitude<>"" then%>
|
<%for i = 1 to UBOUND(longitudeSP)%>
|
<input name="p<%=i%>_lng" id="p<%=i%>_lng" type="hidden" value="">
|
<input name="p<%=i%>_lat" id="p<%=i%>_lat" type="hidden" value="">
|
<%next%>
|
|
<script type="text/javascript">
|
|
// 百度地图初始化
|
var map = new BMap.Map("allmap");
|
map.centerAndZoom(new BMap.Point(<%=Zoom_longitude%>,<%=Zoom_latitude%>), 14);
|
map.enableScrollWheelZoom(true);
|
|
//GPS坐标转换百度坐标
|
<%for i = 1 to UBOUND(longitudeSP)%>
|
var gpsPoint = new BMap.Point(<%=longitudeSP(i)%>,<%=latitudeSP(i)%>);
|
BMap.Convertor.translate(gpsPoint,0,Callback<%=i%>);
|
function Callback<%=i%>(point){
|
//alert("转化为百度坐标为："+point.lng + "," + point.lat);
|
//var p<%=i%> = new BMap.Point(point.lng,point.lat);
|
document.getElementById('p<%=i%>_lng').value=point.lng;
|
document.getElementById('p<%=i%>_lat').value=point.lat;
|
//alert(p<%=i%>);
|
}
|
<%next%>
|
|
//设置驾车路线途经点
|
function drivingJS(){
|
<%for i = 1 to UBOUND(longitudeSP)%>
|
var p<%=i%> = new BMap.Point(document.getElementById('p<%=i%>_lng').value,document.getElementById('p<%=i%>_lat').value);
|
<%next%>
|
var driving = new BMap.DrivingRoute(map, {renderOptions:{map: map, autoViewport: true}});
|
driving.search(p1, p<%=UBOUND(longitudeSP)%>,{waypoints:[<%for i = 2 to UBOUND(longitudeSP)-1%>p<%=i%><%if i<UBOUND(longitudeSP)-1 then Response.Write ","%><%next%>]});//waypoints表示途经点
|
}
|
|
//添加多个标注点
|
function myGeoJS(){
|
var myGeo = new BMap.Geocoder();
|
<%for i = 1 to UBOUND(longitudeSP)%>
|
var gpsPoint = new BMap.Point(<%=longitudeSP(i)%>,<%=latitudeSP(i)%>);
|
BMap.Convertor.translate(gpsPoint,0,translateCallback<%=i%>);
|
function translateCallback<%=i%>(point){
|
var marker = new BMap.Marker(point);
|
map.addOverlay(marker);
|
var label = new BMap.Label("<%=DispatchOrdStateSP(i)%>",{offset:new BMap.Size(-40,-30)});
|
marker.setLabel(label); //添加百度label
|
}
|
<%next%>
|
}
|
|
function PolylineJS(){
|
var polyline = new BMap.Polyline([
|
<%for i = 1 to UBOUND(longitudeSP)%>
|
new BMap.Point(document.getElementById('p<%=i%>_lng').value,document.getElementById('p<%=i%>_lat').value)<%if i<UBOUND(longitudeSP) then Response.Write ","%>
|
<%next%>
|
], {strokeColor:"blue", strokeWeight:2, strokeOpacity:1}); //创建折线
|
map.addOverlay(polyline); //增加折线
|
}
|
//执行
|
window.setTimeout(PolylineJS,1000);
|
//window.setTimeout(drivingJS,1000);
|
window.setTimeout(myGeoJS,2000);
|
</script>
|
|
|
<%else%>
|
<script type="text/javascript">
|
document.getElementById("allmap").innerHTML='未出车';
|
</script>
|
|
<%End if%>
|
