📄 index.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="../../../inc/Conn.asp"-->
<!--#include file="../../../Inc/Cls.Common.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"

If WR_Other(11) = "" Or Isnull(WR_Other(11)) Then
  Response.write "<script>if (confirm('请先至 www.mapbar.com 申请地图API密钥，并在\n后台-常规-网站参数设置-其它信息\n里配置好密钥信息!、\n\n现在就去申请？')){window.open('http://union.mapbar.com/apidoc/index.jsp?dtype=10','_blank')}</script>"
  Response.end
End If

%>
<body style="margin:0;">
<style>
div{cursor:pointer;}
</style>
<script language="javascript" src="http://union.mapbar.com/apis/maps/free?f=mapi&v=31&k=<%=WR_Other(11)%>"></script>
<script>
function killErrors() {
return true;
}
window.onerror = killErrors;
var CK=0;
function dw(){
CK=1;
}
</script>
<%
Dim FormName,xy,z,Input,zC,i,Tempxy,Text
z = Request("z")
If z = "" or Isnull(z) Then z = 10
xy = Request("xy")
If Instr(xy,".") = 0 Then xy = ""
If Request("Action") <> "Show" and Request("Action") <> "S" Then
  If xy = "" or Isnull(xy) Then xy = "116.34773,39.94481":z = 8
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"
Text = Request("Text")
Select Case Request("Action")
  Case "Admin" '后台测座标
%>
<script type="text/javascript" src="http://union.mapbar.com/apidoc/js/tools.js"></script>
<div style='position:absolute;top:0px;right:0px;padding:5px 5px 0 0;text-align:center;z-index:10002;font-size:12px; overflow: hidden'><input type="button" name="Submit" value="标 注" onclick="dw()"></div>
<div id="mapbar" style="width:500px;height:350px;"></div>
<script language="javascript">
		var maplet = null;
		function initMap(){
			maplet = new Maplet("mapbar");
			maplet.centerAndZoom(new MPoint(<%=xy%>), <%=z%>);
		    maplet.addControl(new MStandardControl());
		    maplet.showOverview(false,false);
		    maplet.clickToCenter = false;
		//标注
		if (<%=FormName%>.<%=Input%>.value != ""){
		var marker = new MMarker(
		  new MPoint(<%=xy%>),
		  new MIcon("../centerPoi.gif",20,20)
		);
		maplet.addOverlay(marker);
        }
		//标注End
		//获取经纬
		MEvent.addListener(maplet,"click",function(evt,point){
		if(CK!=0){
			if(!point) alert("获取经纬度失败，请重新操作。");
            if(confirm('您标注的位置经纬度分别为：' + point.lon + ','+ point.lat + '\n是否保存该标注？')){
            <%=FormName%>.<%=Input%>.value = point.lon + "," + point.lat;
            window.close();
            }else{CK=0}
		   }
		});
		//获取经纬End
		}
        initMap();
</script>
<%
  Case "Add" '前台添加座标
%>
<script type="text/javascript" src="http://union.mapbar.com/apidoc/js/tools.js"></script>
<div style='position:absolute;top:0px;right:0px;padding:5px 5px 0 0;text-align:center;z-index:10002;font-size:12px; overflow: hidden'><input type="button" name="Submit" value="标 注" onclick="dw()"></div>
<div id="mapbar" style="width:600px;height:400px;"></div>
<script language="javascript">
	var maplet = null;
		var maplet = null;
		function initMap(){
			maplet = new Maplet("mapbar");
			maplet.centerAndZoom(new MPoint(<%=xy%>), <%=z%>);
		    maplet.addControl(new MStandardControl());
		    maplet.showOverview(false,false);
		    maplet.clickToCenter = false;
		//标注
		if (<%=FormName%>.<%=Input%>.value != ""){
		var marker = new MMarker(
		  new MPoint(<%=xy%>),
		  new MIcon("../centerPoi.gif",20,20)
		);
		maplet.addOverlay(marker);
        }
		//标注End
		//获取经纬
	    MEvent.addListener(maplet,"click",function(evt,point){
		  if(CK!=0){
			if(!point) alert("获取经纬度失败，请重新操作。");
            if (confirm('\n是否保存该标注？')){
            <%=FormName%>.<%=Input%>.value = point.lon + "," + point.lat;
            dialogArguments.Add.innerHTML = "修改标注";
            window.close();
            }else{CK=0}
		  }
		});
		//获取经纬End
		}
        initMap();
</script>
<%
  Case "Show" '前台显示座标
%>
<div id="mapbar" style="width:638px; height:464px;"></div> 
<script language="javascript">
		var maplet = null;
		function initMap() {
			maplet = new Maplet("mapbar");
			maplet.centerAndZoom(new MPoint(<%=xy%>), <%=z%>);
		    maplet.showOverview(false,false);
			var marker = new MMarker(
				new MPoint(<%=xy%>),
				new MIcon("../centerPoi.gif", 20, 20)
			);
			maplet.addOverlay(marker);
		}
        initMap();
</script>
<%
  Case "S" '前台显示座标
%>
<div id="mapbar" style="width:260px;height:225px;"></div>
<script language="javascript">
		var maplet = null;
		function initMap() {
			maplet = new Maplet("mapbar");
			maplet.centerAndZoom(new MPoint(<%=xy%>), <%=z%>);
		    maplet.showOverview(false,false);
			var marker = new MMarker(
				new MPoint(<%=xy%>),
				new MIcon("../centerPoi.gif", 20, 20)
			);
			maplet.addOverlay(marker);
		}
        initMap();
</script>
<%
  Case Else '前台显示城市地图
%>
<div id="mapbar" style="width:638px; height:464px;"></div> 
<script language="javascript">
		var maplet = null;
		function initMap(){
			maplet = new Maplet("mapbar");
			maplet.centerAndZoom(new MPoint(<%=xy%>), <%=z%>);
		    maplet.addControl(new MStandardControl());
		}
        initMap();
</script> 
<%
End Select
%>
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

#5.0 #分类 #信息系统 #商
⌨️ 快捷键说明

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