📄 index.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<%
'===========================================================
'网人地图插件模块参数说明
'版本 1.0

'w,h 显示地图的宽度和高度
'xy 地图起始经纬座标
'z 地图起始缩放比例
'FormName 待返回值的表单名称及返回方式
'Input 待返回值的文本框名称
'zC 缩放控件 Stand为标准控件 Small为简易控件

' by netboy
' http://www.wangren.net
'===========================================================

Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<body style="margin:0">
<script language="javascript" src=" http://api.51ditu.com/js/maps.js "></script>
<script language="javascript" src="http://api.51ditu.com/js/ezmarker.js"></script>
<div style='position:absolute;bottom:0px;padding:2px;text-align:center;height:18px;width:200px;background-color:red;z-index:1000;font-size:12px; overflow: hidden'><a href=http://www.wangren.net target=_blank onfocus="this.blur()"><font color=#FFFFFF>&#x7F51;&#x4EBA;&#x79D1;&#x6280; (&#x5206;&#x7C7B;)&#x4FE1;&#x606F;&#x53D1;&#x5E03;&#x7CFB;&#x7EDF;&#x4E13;&#x5BB6;</font></a></div>
<%
Dim Content,w,h,xy,z,Input,zC,i,Tempxy,Text
w = Request("w")
If w = "" or Isnull(w) Then w = "100%" Else w = w&"px"
h = Request("h")
If h = "" or Isnull(h) Then h = "100%" Else h = h&"px"
z = Request("z")
If z = "" or Isnull(z) Then z = 5
xy = Request("xy")
If Request("Action") <> "Show" Then
  If xy = "" or Isnull(xy) Then xy = "10884937,3441544":z = 13
Else
  If xy = "" or Isnull(xy) Then Response.Write "<table width='100%' height='100%' border='0' cellspacing='0' cellpadding='0' background='../bg.gif'><tr><td><table border='0' cellspacing='0' cellpadding='0' align=center><tr><td><img src=../nomap.gif></td></tr></table></td></tr></table>":Response.end
End If
For i=0 to Ubound(Split(xy,","))
  If Split(xy,",")(i) <> "" and isNull(Split(xy,",")(i)) = False Then
    Tempxy = Tempxy & Split(xy,",")(i) & ","
  End If 
Next
xy = Split(Tempxy,",")(0)&","&Split(Tempxy,",")(1)
Input = Request("Input")
FormName = Request("Form")
If FormName = "" Or IsNull(FormName) Then FormName = "dialogArguments.document.myform"
zC = Request("zC")
If zC = "" Or IsNull(zC) Then zC = "Stand"
Text = Request("Text")
Select Case Request("Action")
  Case "Admin" '后台测座标
%>
<div id="myMap" style="position:relative; width:<%=w%>; height:<%=h%>;"></div>
<script language="javascript">
var maps = new LTMaps( "myMap" );
var icon = new LTIcon();
icon.setImageUrl('../centerPoi.gif');
maps.centerAndZoom ( new LTPoint(<%=xy%>),<%=z%>);
if (<%=FormName%>.<%=Input%>.value != ""){
var marker1 = new LTMarker( new LTPoint(<%=xy%>) , icon );
maps.addOverLay( marker1 );
}

maps.handleKeyboard(); //键盘操作支持
maps.handleMouseScroll();//鼠标滚轮支持
var control1 = new LT<%=zC%>MapControl();//标准缩放控件
maps.addControl( control1 );
var control2 = new LTMarkControl();//标注按钮
maps.addControl( control2 );

function getPoi(){
var poi = control2.getMarkControlPoint();
if (confirm('您标注的位置经纬度分别为：' + poi.getLongitude() + ','+ poi.getLatitude() + '\n是否保存该标注？')){
<%=FormName%>.<%=Input%>.value = poi.getLongitude() + "," + poi.getLatitude();
window.close();
}
}
LTEvent.addListener( control2 , "mouseup" , getPoi );
</script>
<%
  Case "Add" '前台添加座标
%>
<div id="myMap" style="position:relative; width:<%=w%>; height:<%=h%>;"></div>
<script language="javascript">
var maps = new LTMaps( "myMap" );
var icon = new LTIcon();
icon.setImageUrl('../centerPoi.gif');
maps.centerAndZoom ( new LTPoint(<%=xy%>),<%=z%>);
if (<%=FormName%>.<%=Input%>.value != ""){
var marker1 = new LTMarker( new LTPoint(<%=xy%>) , icon );
maps.addOverLay( marker1 );
}
maps.handleKeyboard(); //键盘操作支持
maps.handleMouseScroll();//鼠标滚轮支持
var control1 = new LT<%=zC%>MapControl();//标准缩放控件
maps.addControl( control1 );
var control2 = new LTMarkControl();//标注按钮
maps.addControl( control2 );

function getPoi(){
var poi = control2.getMarkControlPoint();
if (confirm('\n是否保存该标注？')){
<%=FormName%>.<%=Input%>.value = poi.getLongitude() + "," + poi.getLatitude();
dialogArguments.Add.innerHTML = "修改标注";
window.close();
}
}
LTEvent.addListener( control2 , "mouseup" , getPoi );
</script>
<%
  Case "Show" '前台显示座标
%>
<div id="myMap" style="position:relative; width:<%=w%>; height:<%=h%>;"></div>
<script language="javascript">
var maps = new LTMaps( "myMap" );
var icon = new LTIcon();
icon.setImageUrl('../centerPoi.gif');
var point = new LTPoint(<%=xy%>)
maps.centerAndZoom (point ,<%=z%>);

var marker1 = new LTMarker( new LTPoint(<%=xy%>) , icon );
maps.addOverLay( marker1 );
<%If Text <> "" Then%>
var text = new LTMapText( point );
text.setLabel( "<div style='padding:3px'><%=Text%></div>" ); 
maps.addOverLay( text ); 
<%End If%>

maps.handleKeyboard(); //键盘操作支持
maps.handleMouseScroll();//鼠标滚轮支持
var control1 = new LT<%=zC%>MapControl();//标准缩放控件
maps.addControl( control1 );
</script>
<%
  Case Else '前台显示城市地图
%>
<div id="myMap" style="position:relative; width:<%=w%>; height:<%=h%>;"></div> 
<script language="javascript">
var maps = new LTMaps( "myMap" ); 
maps.centerAndZoom ( new LTPoint(<%=xy%>),<%=z%>);
maps.handleKeyboard(); //键盘操作支持
maps.handleMouseScroll();//鼠标滚轮支持
var control1 = new LT<%=zC%>MapControl();//标准缩放控件
maps.addControl( control1 );
</script> 
<%
End Select
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -