[图]Flash+ASP实现电子互动地图在线标注功能(2)


图2 SWF文件界面1
点击看大图

图3 SWF文件界面2

   以一个名为Link的变量来接受来自服务器的消息。如果其值为1,表明与服务器端的通信连接成功。使用
LoadVars,再使用sendAndLoad方法将一个LoadVars的实体下的数据发送出去。

   打开时间轴的动作面板,输入以下ActionScript代码:

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方式发送待保存数据

}

  2、编写服务器脚本(ASP)

   创建一个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语句

Set xml=Server.CreateObject("Microsoft.XMLDOM")
'创建一个对象用以操作XML文件

xml.Async=False

xml.ValidateOnParse=False

xml.Load(server.mapPath("http://www.wanggesz.com/XMLData/data.xml"))
'加载xml文件

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2964.html