CSDN博客

img qsxucsdn

mapxtreme3.0下的最简单asp代码

发表于2004/11/3 14:38:00  1335人阅读

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>

阅读全文
0 0

相关文章推荐

img
取 消
img