开发环境:MapXtreme for Windows
代码:
本程序已测试通过,代码如下:
<!--#include file="./lib/miConst.asp"-->
<!--#include file="./lib/miDebug.asp"-->
<!--#include file="./lib/miErrorSystem.asp"-->
<!--#include file="./lib/miMapEngine.asp"-->
<!--#include file="./lib/miMapMarker.asp"-->
<!--#include file="./lib/miUtilities.asp"-->
<%
Dim bResult
'启动 MapX Server
bResult = InitMapEngine(OBTAIN_FROM_BROKER,"Default")
bResult = SetMapSize(400,300) '设置地图的大小,系统自带函数
bResult = SetMapGeoset("World Countries") '设置地图为World,系统自带函数
bResult = SetMapTitleText("世界地图") '设置地图的标题,系统自带函数
'生成图片,系统自带函数
bResult = ExportMapToFile(miFormatGIF,"c:/world.gif")
'退出 MapX Server
bResult = UnInitMapEngine(RETURN_TO_BROKER)
%>
<html>
<body>
<img src="c:/world.gif">
</body>
</html>