📄 mapform.asp
字号:
y1=yc-zoom*0.5;
y2=yc+zoom*0.5;
parent.mapframe.yDistance = zoom;
parent.mapframe.eTop = y2;
parent.mapframe.eBottom = y1;
parent.mapframe.nCenterX = xc; // -wsd add
parent.mapframe.nCenterY = yc; // -wsd add
parent.mapframe.position_station();
parent.mapframe.putExtentOnOVMap(); // wsd add
parent.mapframe.updateSetPos(); //更新位置
if(tfrm.lastzoom.value=='1')
{
open("busy.asp","系统错误提示","width=400,height=300");
}
oprtMapEngineProcessed();
if(parseInt(tfrm.RecCount.value) > 0)
{
switch(parent.mapframe.toolMode)
{
case 1111:
if(tfrm.workmode.value == "3")
{
open(tfrm.cruise.value, "特征点漫游","width=200,height=500,scrollbars=yes,resizable=yes");
}
break;
case 4:
if(tfrm.workmode.value == "2")
{
parent.mapframe.interParseQueryResult(tmpval,"");
}
if(tfrm.workmode.value == "31")
{
open('unitInfo.htm', "查询结果","width=700,height=500,scrollbars=yes,resizable=yes");
//open('reqResult.asp', "查询结果","width=700,height=500,scrollbars=yes,resizable=yes");
}
break;
case 1204:
if(tfrm.workmode.value == "1204")
{
open("reqResult.asp", "属性修改","width=300,height=300,scrollbars=yes,resizable=yes");
}
break;
case 1112:
if(tfrm.workmode.value == "4")
{
}
break;
case 3001:
if(tfrm.workmode.value == "3001")
{
parent.mapframe.interParseShortDist(tmpval);
}
break;
case 3002:
if(tfrm.workmode.value == "3002")
{
parent.mapframe.interParseBusTran(tmpval);
}
break;
case 3011:
switch(parseInt(tfrm.RecCount.value))
{
case 4:
parent.mapframe.interParseShortDist(tmpval);
break;
case 3:
parent.mapframe.interParseSE( tmpval, tfrm.sql.value,3011);
break;
case 2:
alert('终点站名不存在,请重新填写!');
case 1:
alert('起点站名不存在,请重新填写!');
}
break;
case 3012:
switch(parseInt(tfrm.RecCount.value))
{
case 4:
parent.mapframe.interParseBusTran(tmpval);
break;
case 5:
parent.mapframe.interParseSE( tmpval, tfrm.sql.value,3012);
break;
case 3:
alert('起点、终点站名不存在,请重新填写!');
break;
case 2:
alert('终点站名不存在,请重新填写!');
break;
case 1:
alert('起点站名不存在,请重新填写!');
break;
}
break;
}
}
else
{
switch(parent.mapframe.toolMode)
{
case 1111:
if(tfrm.workmode.value == "3")
{
alert("没有选中管点（特征点漫游）");
}
break;
case 4:
if(tfrm.workmode.value == "1")
{
alert("没有选中实体（点信息查询）");
}
break;
case 1204:
if(tfrm.workmode.value == "1204")
{
alert("没有选中实体（点信息修改）");
}
break;
case 1112:
if(tfrm.workmode.value == "4")
{
alert("没有选中事故点定义");
}
break;
}
}
}
</SCRIPT>
</HEAD>
<BODY BGCOLOR="White" onload="chgimg()">
<P>
<FORM ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST" name="theForm" onSubmit="isReqing()">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR VALIGN=MIDDLE>
<TD NOWRAP>
<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0>
<TR ALIGN=LEFT>
<TD>
<P><% = c_ClickOnTheMapTo %>
workmode<INPUT TYPE="TEXT" NAME="workmode" VALUE="0"><br>
layer<INPUT TYPE="TEXT" NAME="layer" VALUE=""><br>
sql<INPUT TYPE="TEXT" NAME="sql" VALUE=""><br>
<% strTemp = ""
If Session(SESN_TOOL) = TOOL_IN Then
strTemp = " CHECKED"
End If %>
<P><INPUT TYPE="RADIO" NAME="<% = FRM_TOOL %>" VALUE="<% = TOOL_IN %>"<% = strTemp %>><% = c_ZoomIn %>
<% strTemp = ""
If Session(SESN_TOOL) = TOOL_OUT Then
strTemp = " CHECKED"
End If %>
<BR>
<INPUT TYPE="RADIO" NAME="<% = FRM_TOOL %>" VALUE="<% = TOOL_OUT %>"<% = strTemp %>><% = c_ZoomOut %>
<% strTemp = ""
If Session(SESN_TOOL) = TOOL_CTR Then
strTemp = " CHECKED"
End If %>
<BR><INPUT TYPE="RADIO" NAME="<% = FRM_TOOL %>" VALUE="<% = TOOL_CTR %>"<% = strTemp %>><% = c_Center %>
<BR><INPUT TYPE="RADIO" NAME="<% = FRM_TOOL %>" VALUE="infotool">信息<BR>
<INPUT TYPE="RADIO" NAME="<% = FRM_TOOL %>" VALUE="radiustool"></p>
<p>Select features within of click<BR>
<INPUT TYPE=TEXT NAME="txtRadiusDistance" SIZE=6 MAXLENGTH=6 VALUE="500">
<SELECT NAME="cmbDistanceUnits" SIZE=1>
<OPTION VALUE=Miles >Miles</OPTION>
<OPTION VALUE=Kilometers >Kilometers</OPTION>
<OPTION VALUE=Meters>Meters</OPTION>
<OPTION VALUE=Yards SELECTED>Yards</OPTION>
</SELECT>
</p></TR></TABLE>
</TD>
<TD ALIGN=CENTER NOWRAP ROWSPAN=2>
<A HREF="jsForm.asp?goto=mapsettings">Map Settings</A> | <A HREF="jsForm.asp?goto=layersettings">Layer Settings</A>
</TD>
</TR>
<TR VALIGN=MIDDLE>
<TD NOWRAP>
<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0>
<TR ALIGN=LEFT><TD><HR ALIGN=LEFT SIZE=1 WIDTH=130>Map width:<BR>
<INPUT TYPE="TEXT" SIZE=10 NAME="<% = FRM_ZOOM %>" VALUE="<% = strZoom %>"><% = c_Miles %>
<BR><INPUT TYPE="SUBMIT" NAME="<% = FRM_BTN %>" VALUE="<% = c_Apply %>"></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<!-- As a debugging tool, show a link to a page that displays the map engine status. -->
<A HREF="debugpage.asp"><% = c_DebugMessage %></A>
<table><tr><td>
<% bResult = GetMapCenter(numValue, numValue2) %>
<INPUT TYPE="TEXT" NAME="<% = FRM_CX %>" VALUE="<% = numValue %>">
<INPUT TYPE="TEXT" NAME="<% = FRM_CY %>" VALUE="<% = numValue2 %>">
<% bResult = GetMapZoom(numValue) %>
<INPUT TYPE="TEXT" NAME="<% = FRM_LAST_ZOOM %>" VALUE="<% = numValue %>">
<INPUT TYPE="TEXT" NAME="miFrmMapName" VALUE="Default">
<INPUT TYPE="TEXT" NAME="miFrmMapWidth" VALUE="1280">
<INPUT TYPE="TEXT" NAME="miFrmMapHeight" VALUE="1024">
<INPUT TYPE="TEXT" NAME="miFrmMapTitle" VALUE="">
<INPUT TYPE="TEXT" NAME="VirtualDir" VALUE="<% = VirtualDir %>">
<INPUT TYPE="TEXT" NAME="RecCount" VALUE="0">
<INPUT TYPE="TEXT" NAME="MapX1" VALUE="">
<INPUT TYPE="TEXT" NAME="MapY1" VALUE="">
<INPUT TYPE="TEXT" NAME="MapX2" VALUE="">
<INPUT TYPE="TEXT" NAME="MapY2" VALUE="">
<INPUT TYPE="TEXT" NAME="isError" VALUE="0">
<INPUT TYPE="TEXT" NAME="QueryResult" VALUE="01,中(省)直属机构;02,省市属机构;03,法院、检察院;04,军区、公安机关、武警部队;05,交通队、消防队;06,派出所;07,区县政府;08,街道办事处、城管;09,社区;10,外地驻当地办事处(指政府机构);11,领事馆;12,居委会;13,乡政府;14,自然村;15,税务局、工商局、气象;16,卫生监督所、环保监测站;17,村委会;:01,各类研究(设计)所;02,研究(设计)院;:01,餐馆;02,快餐店;03,火锅店;04,酒楼;05,酒吧;06,茶馆;07,娱乐城、网吧;08,歌迪舞厅;09,保龄球馆;10,大型洗浴中心、休闲中心;11,影剧院;12,歌舞团;13,咖啡厅;:01,宾馆;02,酒(饭)店;03,旅馆;04,招待所;05,食堂;:01,各类商业公司;02,旅行社;03,协会;04,电台;05,电视台;06,报社;07,出版社;08,工厂;09,律师事务所;10,会计事务所;11,集团、电视局;12,变电所、管理所、气柜、油库;13,运输部、修建部、机械化队;14,地质队、汽车队、工程队;15,材料场、采石场;16,仓库、车间;17,原料处;18,水产养殖;:01,大学;02,中学;03,小学;04,幼儿园;05,图书馆;06,青少年宫;07,文化宫;08,科技馆;09,体校;10,活动中心;11,展览馆;12,博物馆;13,中专;14,劳动培训中心;15,特殊学校、党校;16,艺术馆;:01,各类银行总部;02,支行;03,分理处;04,储蓄所、信用社;05,证券营业部;06,保险;:01,办公大厦;02,商务会馆;:01,综合商场;02,超市、商店、销售中心;03,连锁店.保健品.供销社.粮店.副食;04,(服装、电器、文体器材)专卖店、;05,大型建材市场、建材小店;06,家具城;07,书店;08,电子市场;09,电器城;10,贸易市场;11,仓库;12,摄影、喷绘、广告;13,美容、发型、干洗店;14,自行车、摩托车;15,花店、水果店;16,钟表、眼镜;17,陶瓷、家庭装璜（防盗门、洁具）;:01,各级医院;02,药店;03,疗养院;04,康复中心、按摩、洗牙;:01,游乐园;02,植物园;03,动物园;04,文物古迹;05,旅游城;06,风景区;07,烈士陵园;:01,楼盘;02,发售的住宅小区;03,中介、售楼部;04,开发公司（局）;:01,邮电局(所);02,电讯(如电话、手机等)专卖店;:01,球类馆;02,游泳;03,健身俱乐部;04,体育馆;05,滚轴溜冰场所;:01,火车站;02,长途汽车站;03,轮渡码头;04,机场;05,停车场;:01,居民小区;02,广场;03,住宅;04,村镇用地、农村居民点;:01,汽车（摩托车）维修点;02,汽车（摩托车）配件;03,汽车展示馆;04,加油站;05,汽车租赁点;06,加气站;:01,国境;02,省界;03,市界;04,区界;05,县界;06,镇界;07,村界;:01,主要街道;02,次要街道;03,一般街道;:01,河流;02,湖泊;03,水库;:01,游乐园;02,植物园;03,动物园;04,苗圃;05,绿化带;06,其它公园;:01,公交线路;:01,公交车站;:01,基础地图;:01,建筑物;:01,高程测点;:01,在上面没有列出的网点信息;02,排灌站;03,养老院、敬老院、殡仪馆;">
</td></tr></table>
<A HREF="debugpage.asp"><% = c_DebugMessage %></A>
<!-- Store the map properties in hidden form fields, in case we need -->
<!-- to rebuild the map after a session time-out -->
</FORM>
<%
' Call a routine that will return the map engine to the broker.
bResult = UnInitMapEngine(RETURN_TO_BROKER)
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -