|
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")) %> |
這樣我們依次完成了對地圖的操作、地名的標注等功能；而在地圖的使用過程中，用地名名稱進行查詢及定位是也一個必不可少的常用功能。
