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

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

}

<%@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文件

set newNode=mxml.createNode ("element", "data", "")
'创建新节点newNode,并命为为data

root.appendChild(newNode)
'在上面得到的加载进来的XML文件的根节点后追加一个新建的节点newNode,

Set objname = mxml.createAttribute("data")
'为新建的节点创建属性项objname.Text = data '为新建属性项添加属性值

xml.save(server.mapPath("http://www.wanggesz.com/XMLData/data.xml"))
'在指定的路径保存XML文件,

Response.write"Link"&Link '将Link=1返回给SWF文件

%>