mapxtreme3.0下的最简单asp代码

原创 2004年11月03日 14:38:00

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>

简单asp分页显示代码

on error resume next dim rs,sql,ifilePath = Server.MapPath("db.mdb")Set conn = Server.CreateObject("...
  • WINCOL
  • WINCOL
  • 2007年08月28日 00:03
  • 1783

300行代码搭建最简单的流媒体服务器

什么是流媒体服务器?        没有专业的解释,因为专业的解释我都看不懂,更不会写了。通俗的讲就是通过网络(TCP或UDP Socket)按顺序接收视频和音频数据并转发给其他收看用户。视频+...
  • Ensue
  • Ensue
  • 2012年08月03日 00:26
  • 2265

简单的脚本-ASP

        最近用ASP作了点小东西,感触良多。因为之前不管小东西还是大工程,都是用JSP,这回重新拾起高一时候玩过的ASP,仍然让人非常怀念。        ASP作为一种服务器脚本语言,提供了...
  • nicholas_dsj
  • nicholas_dsj
  • 2005年03月02日 23:17
  • 922

一份简单的轮播图代码

图片轮播切换 #banner_lun_bo_img_box{ width:960px; height:314px; margin: 0 auto; position:relative...
  • friendan
  • friendan
  • 2016年09月29日 15:25
  • 1601

最简单的快速排序代码

#include //将Int数组a中的第i个元素和第j个元素互换 void swap(int a[],int i,int j) { int tmp = a[i]; a[i] = a[j]; ...
  • woshiwanghao_hi
  • woshiwanghao_hi
  • 2014年04月18日 14:34
  • 1522

javascript超级简单的写出轮播图

本人小白一枚,刚刚学习JavaScript,发表也是为了督促自己学习,大家共勉。
  • xiaoLong2345
  • xiaoLong2345
  • 2016年11月04日 20:20
  • 636

JavaScript实现最简单的图片轮播

几行的代码实现最为简易的图片轮播效果。 Js部分 var li=document.get...
  • HeyWeCome
  • HeyWeCome
  • 2017年09月15日 22:09
  • 2022

PHP 最简单的页面

PHP语言来写网页是比较方便的。 申请一个域名,然后上传下述代码index.php Hello world! ...
  • shendan00
  • shendan00
  • 2015年02月11日 10:31
  • 504

最简单的ASP分页代码

原帖及讨论:http://bbs.bc-cn.net/dispbbs.asp?BoardID=10&ID=90981set conn=server.createobject("adodb.connec...
  • fanenmin
  • fanenmin
  • 2007年12月21日 14:39
  • 664

TensorFlow学习笔记(1):最简单的入门程序

1、Polynomial Regression1.准备好数据、placeholder、Variableimport numpy as np import tensorflow as tf import...
  • xzy_thu
  • xzy_thu
  • 2017年08月02日 23:11
  • 1145
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:mapxtreme3.0下的最简单asp代码
举报原因:
原因补充:

(最多只允许输入30个字)