通过经纬度在图片上定位

发布时间:2023-03-13 23:27:07


通过经纬度在图片上定位
最近做了个程序,有一些检测点 需要在地图上动态标注出来,这就涉及到了通过经纬度定位 需要把经纬度转换成像素对应到图片上的坐标问题
我把做成的实例贴出来大家可以看下。
这里的最大最小经纬度是指地图中边界的经纬度值
dim maxj,minj,maxw,minw,w,h,
maxj = 113.4820 ‘经度最大值
minj = 111.8610 ‘经度最小值
maxw = 31.6101 ‘维度最大值
minw = 30.3927 ‘维度最小值
w = 820 ‘地图长
h = 726 ‘地图高
jj = maxj-minj
wj = maxw-minw

Function getl(jnum getl = int((w/jj*(jnum-minj
End Function
function gett(wnum
gett = int((h/wj*(maxw-wnum
End Function ‘定位
思路是通过css样式来定位
数据表siteinfo jnum为需要定位点的经度,wnum需要定位点的维度StationNum为需要定位点的编号。
<%set rs = conn.execute("select StationNum,jnum,wnum From siteinfo order by id asc"
do while not rs.eof
response.Write
".pix"&rs("StationNum"&"{position:absolute;left:"&getl(cdbl(rs("jnum"&"px;top

通过经纬度在图片上定位

相关推荐