<%@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:"微软雅黑";}
|
#l-map{height:100%;width:100%;}
|
#r-result{width:100%; font-size:14px;line-height:20px;}
|
</style>
|
<script type="text/javascript" src="http://api.map.baidu.com/api?v=2.0&ak=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"></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="l-map"></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%>
|
<script type="text/javascript">
|
// 百度地图API功能
|
var map = new BMap.Map("l-map");
|
map.centerAndZoom(new BMap.Point(<%=Zoom_longitude%>,<%=Zoom_latitude%>), 13);
|
map.enableScrollWheelZoom(true);
|
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%>
|
</script>
|
<%else%>
|
<script type="text/javascript">
|
document.getElementById("l-map").innerHTML='定位失败';
|
</script>
|
|
<%End if%>
|
