|
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文件 %> |
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有