|
function SendData():Void { //定义发送数据的函数 var SendData = new LoadVars(); //构造一个新的LoadVars对象 SendData.Check = 1; //设定Check的动作，用于服务器验证 SendData.data = SendData_srt; //将待发送的数据变量SendData_srt赋给data output_txt.text = "请稍候……"; //状态文本显示为"请稍候……" SendData.onLoad = function(success) { //验证和服务器连接的函数 if (success) { //如果和服务器成功连接 if (this.Link== "1") { //如果验证动作成功 output_txt.text = "成功标注！审核后即可生效。"; //状态文本显示为成功 } } else { output_txt.text = "服务器忙，请稍后再试！"; //如果和服务器连接不成功则返回失败消 } }; SendData.sendAndLoad("http://www.wanggesz.com/XMLData/Save.asp", SendData, "post"); //以post方式发送待保存数据 } |
创建一个ASP文件，其内容如下：
|
%@Language="VBScript"%> % Dim Check '定义Check变量，用来验证来自SWF文件的数据 Dim Link '定义Link变量，用来返回给SWF文件，表明通信成功 Dim data '定义data变量，用来接收来自SWF文件的待保存数据 set data = Request.Form("data") '接收来自SWF文件的待保存数据 set Check = Request.Form("Check") '验证来自SWF文件的数据 if Check = 1 Then '如果SWF文件身份正确 Link = 1 '将Link值设为1，表明通信成功 End if '结束if语句 xml.Async=False xml.ValidateOnParse=False xml.Load(server.mapPath("http://www.wanggesz.com/XMLData/data.xml")) set newNode=mxml.createNode ("element", "data", "") root.appendChild(newNode) Set objname = mxml.createAttribute("data") xml.save(server.mapPath("http://www.wanggesz.com/XMLData/data.xml")) %> |
这样我们依次完成了对地图的操作、地名的标注等功能；而在地图的使用过程中，用地名名称进行查询及定位是也一个必不可少的常用功能。
