45fan.com - 路饭网

搜索: 您的位置主页 > 电脑频道 > 编程代码 > 阅读资讯:mapxtreme3.0下的最简单asp代码的详细介绍

mapxtreme3.0下的最简单asp代码的详细介绍

2016-09-05 09:39:55 来源:www.45fan.com 【

mapxtreme3.0下的最简单asp代码的详细介绍

1)使用geoset
<%
Const cMapXCourier = "MapInfo.MapXCourier"
Const cMapXState = "MapX.State.5"
Const cMapXObject = "MapXObject"
Const cMapXCourierObject = "MapXCourierObject"

Set Session(cMapXCourierObject) = Server.CreateObject(cMapXCourier)
Set Session(cMapXObject) = Session(cMapXCourierObject).GetMapXFromBroker("Anqing", 15000)

'set session(cMapXObject) = Session(cMapXCourierObject).GetMapXFromNewServer("HelloWorld")
Session(cMapXObject).ExportMap server.mappath(".")+"/output.gif", 2
'注意要及时销毁对象
Set Session(cMapXObject) = Nothing
Set Session(cMapXCourierObject) = Nothing
%>
<img src='output.gif'>

2)不使用geoset,动态创建图层,生成专题图
<%
Const cMapXCourier = "MapInfo.MapXCourier"
Const cMapXState = "MapX.State.5"
Const cMapXObject = "MapXObject"
Const cMapXCourierObject = "MapXCourierObject"

Dim objDS
Dim strDSName
Dim objLyr

'Get the map object
Set Session(cMapXCourierObject) = Server.CreateObject(cMapXCourier)
set Session(cMapXObject) = Session(cMapXCourierObject).GetMapXFromNewServer("")

'Add the layer
Set objLyr = Session(cMapXObject).Layers.Add("Road_Regular.tab")

'Create the dataset
strDSName = "Road_RegularDS"
set objDS = Session(cMapXObject).datasets.add (miDatasetLayer,objLyr,strDSName)

'add the theme
objDS.themes.add

'Center the map
Session(cMapXObject).Bounds = Session(cMapXObject).Layers.Bounds
Session(cMapXObject).Title.Visible = false

'Export the current map to a JPEG which is type 3 and display on the page
Session(cMapXObject).ExportMap server.mappath(".")+"/output.jpg", 3
'注意要及时销毁对象
Set Session(cMapXObject) = Nothing
Set Session(cMapXCourierObject) = Nothing
%>
<img src='output.jpg'>

</HTML>

 

本文地址:http://www.45fan.com/bcdm/72633.html
Tags: asp 最简单 mapxtreme3.0
编辑:路饭网
推广内容
推荐阅读
热门推荐
推荐文章
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部