通过经纬度在图上定位

———————————————————————————————— 作者：

———————————————————————————————— 日期：

通过经纬度在图片上定位

最近做了个程序，有一些检测点 需要在地图上动态标注出来，这就涉及到了通过经纬度定位 需要把经纬度转换成像素对应到图片上的坐标问题

我把做成的实例贴出来大家可以看下。

这里的最大最小经纬度是指地图中边界的经纬度值

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:"&gett(cdbl(rs("wnum")))&"px;height:18px;width:50px;font-size:12px;color:#999999}"&vblf

response.write

rs.movenext

loop

%>

下面这个图这个就是我做出来填充数据后的效果

通过经纬度在图上定位