<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%Set rs = Server.CreateObject("ADODB.Recordset")
|
%>
|
<!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>批量反地址解析+商圈</title>
|
<style type="text/css">
|
body, html{width: 100%;height: 100%;margin:0;font-family:"微软雅黑";}
|
#l-map{height:300px;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=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="l-map"></div>
|
<div id="r-result">
|
<input type="button" value="批量反地址解析+商圈" onclick="BMpoint()" />
|
<div id="result"></div>
|
</div>
|
</body>
|
</html>
|
<%
|
latitudeSP=""
|
longitudeSP=""
|
DispatchOrdStateSP=""
|
sql="select * from DispatchOrd_Running where DispatchOrdIDDt=3016003213 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,"|")
|
%>
|
<script type="text/javascript">
|
var BMpointArray=new Array()
|
|
// 百度地图API功能
|
var map = new BMap.Map("l-map");
|
map.centerAndZoom(new BMap.Point(<%=longitudeSP(1)%>,<%=latitudeSP(1)%>), 15);
|
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
|
myGeo.getLocation(point, function(rs){
|
var addComp = rs.addressComponents;
|
document.getElementById("result").innerHTML += "结构化数据<%=i%>(" + addComp.province + ", " + addComp.city + ", " + addComp.district + ", " + addComp.street + ", " + addComp.streetNumber + ")<br/><br/>";
|
});
|
BMpointArray[<%=i%>]=new Array(point.lng,point.lat)
|
|
}
|
<%next%>
|
|
function BMpoint(){
|
if (BMpointArray.length>0)
|
{
|
for (var i=0;i<BMpointArray.length;i++)
|
{
|
document.getElementById("result").innerHTML += "坐标"+i+ BMpointArray[i][0] + ", " + BMpointArray[i][1] + "<br/><br/>";
|
}
|
}
|
}
|
</script>
|
