注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

 
 
 

日志

 
 

Google map API应用:ASP加载方式  

2009-05-25 19:39:07|  分类: WEB Design |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 <%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/callsign.mdb")
exec="select * from qth"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
redim point_arr(rs.fields.count)
for i=1 to rs.fields.count
    point_arr(0)=rs(0)
    point_arr(1)=rs(1)
 point_arr(2)=rs(2)
 point_arr(3)=rs(3)
 point_arr(4)=rs(4)
  next
  %>
  //测试
 <% response.write point_arr (0) & point_arr(1) & point_arr(2) & point_arr(3) & point_arr(4)%>
 <% response.write rs.fields.count%>
 <script type="text/javascript">
 var point=new Array(5);
     point[0]='<%=point_arr(0)%>';
     point[1]='<%=point_arr(1)%>';
  point[2]='<%=point_arr(2)%>';
  point[3]='<%=point_arr(3)%>';
  point[4]='<%=point_arr(4)%>';
 for (i=0;i<point.length;i++)
{
document.write("<br/>")
document.write(point[i] + "<br/>")
}
document.write("length:"+point.length)
document.write("<br/>")

 </script>
 <%
dim lat_arr()
dim long_arr()
dim call_arr()
dim qth_arr()
if not rs.eof and not rs.bof then
uboundNum=rs.recordcount
redim lat_arr(uboundNum)
redim long_arr(uboundNum)
redim call_arr(uboundNum)
redim qth_arr(uboundNum)
for i=0 to rs.recordcount
lat_arr(i)=rs("lat")
long_arr(i)=rs("long")
call_arr(i)=rs("callsign")
qth_arr(i)=rs("qth")
rs.movenext
if rs.eof then exit for
next
end if
%>
<%
for i=0 to uboundNum
Response.Write( i )
  Response.Write( "<br>" )
Response.Write(lat_arr(i))
Response.Write( "<br>" )
Response.Write(long_arr(i))
 Response.Write( "<br>" )
 Response.Write(call_arr(i))
next
%>

<script type="text/javascript">
var latp=new Array();
var lngp=new Array();
var call=new Array();
var qth=new Array();
<%
for i=0 to ubound(lat_arr)-1
%>
latp[<%=i%>]='<%=lat_arr(i)%>';
lngp[<%=i%>]='<%=long_arr(i)%>';
call[<%=i%>]='<%=call_arr(i)%>';
qth[<%=i%>]='<%=qth_arr(i)%>';
document.write(latp[<%=i%>]+"<br>");
document.write(lngp[<%=i%>]+"<br>");
document.write(call[<%=i%>]+"<br>");
<%
next
%>
<%rs.MoveFirst%>
</script> 

 

 

 function load() {
      if (GBrowserIsCompatible()) {
        var map = new GMap2(document.getElementById("map"));
  map.addControl(new GLargeMapControl());
        map.addControl(new GMapTypeControl());
  map.enableScrollWheelZoom()
        map.setMapType(G_NORMAL_MAP);//修改地图类型 必须放最后[G_SATELLITE_MAP | G_NORMAL_MAP | G_HYBRID_MAP]
        map.setCenter(new GLatLng(31.462053, 121.131134), 11);
  
  
       for (var i = 0; i < <%=rs.recordcount%>; i++)
    {
     var point = new GLatLng(latp[i], lngp[i])
        var marker = new GMarker(point);
     map.addOverlay(marker);
     addMarkerEvent(marker,call[i],qth[i]);
   
      }
       function addMarkerEvent(marker,call,qth){
                GEvent.addListener(marker, "click", function(){
    var html1=" <a  href='http://www.bg4qxw.com'>"+call+" "+qth+"</a>"
                marker.openInfoWindowHtml(html1);
    });  }
    
      }
    }

  评论这张
 
阅读(331)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017