百度地图定位与文本框交互功能实现

<input name="BdMap" id="BdMap" class="fabuinput" size="25" maxlength="50"  value="<%=rs("BdMap")%>" readonly="readonly" style="background-color:#DDDDDD" /><br />
<span style="color:gray">可以双击、拖曳地图，将 红色标注点 拖动到您想要定位的位置。</span>
<%call show_bdmap(rs("BdMap"),400,600,"拖动到要标记的位置","","",15)%>



sub show_bdmap(BdMap,heihgt,width,maptitle,leixing,yangshi,kuanshi)
'-------------------------------
'百度地图定位于文本框（by www.0792bmw.com 社区送温暖）
'示例：call show_bdmap(BdMap,400,600,"拖动到要标记的位置","","","")
'配合<input name="BdMap" id="BdMap" class="fabuinput" size="25" maxlength="50" readonly="readonly"/>使用，拖动标记点同时文本框有变化
'输入： BdMap 地图定位点
' heihgt 地图框高度
' width 地图框宽度
' maptitle 标记点提示语
' leixing 参数：show的时候不可拖动，空值时允许拖动标记点
' yangshi 地图框的样式表
' kuanshi 地图显示的级别
'-------------------------------

dim morenmap '默认的标记点位置
morenmap="114.553364, 29.031056"
%>
<style type="text/css">
#l-map{height:<%=heihgt%>px;width:<%=width%>px; float:center; text-align:center;border:1px solid orange;<%=yangshi%>}
</style>
<script type="text/javascript" src="http://api.map.baidu.com/api?v=2.0&ak=hToosNglHRLGVQK5hgLWneS8"></script>
<div id="l-map"></div>
<script type="text/javascript">
// 百度地图API功能