通过经纬度在图片上定位.docVIP

通过经纬度在图片上定位 最近做了个程序，有一些检测点 需要在地图上动态标注出来，这就涉及到了通过经纬度定位 需要把经纬度转换成像素对应到图片上的坐标问题 我把做成的实例贴出来大家可以看下。 这里的最大最小经纬度是指地图中边界的经纬度值 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 .pixrs(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 % 下面这个图这个就是我做出来填充数据后的效果