flash与asp的结合应用实例之一 论坛的实现(结尾)
作者 佚名技术
来源 服务器技术
浏览
发布时间 2012-07-10
B、 Flash部分 1、新建一个组件,命名为“insertloop”,在其第一帧的Action面板上增加下面的语句: _root.count = 0; stop(); 在第五帧上插入关键帧,在其Action面板上增加下面的语句: if (!(_root.insert)) { ‘注释1 _root.count = _root.count + 1; if (_root.count > 50) { _root.gotoAndPlay("netfalse"); _root.insertloop.gotoAndStop(1); } _root.insertloop.gotoAndPlay(2); } else ‘注释1 { _root.gotoAndStop("show"); _root.showtxt = "插入成功,请返回"; _root.insertloop.gotoAndStop(1); } 注释1部分为检查是否已经有返回的操作结果。注释2部分为根据返回的结果跳转到相应的界面。 2、回到主场景第10帧,在“发表”Button的Action面板上增加下面的语句: on (release){ _root.gotoAndPlay("insert"); } 3、在主场景的第20帧上插入关键帧,设帧标签为“insert”,在帧的Action面板上增加下面的语句:stop(); 场景的布局如图8所示。其中标题所对应的文本框的设置如图9所示,正文所对应的文本框的设置如图10所示。 4、将组件“insertloop”从图库中拖到第20帧的场景中,命名为“insertloop”。 C、 小结与提高 注意在这里一定要从服务器端返回操作结果,不然Flash中不会知道操作的情况。论坛的回复功能也差不多的制作方法,在这里就不再实现了。 五、删除部分 删除部分的原理为:向服务器端发送要删除的记录的id号,服务器端进行相应的操作后返回操作结果。 A、 ASP部分 新建一个文件,命名为del.asp,内容如下: <% id = request("id") set conn=Server.CreateObject("ADODB.Connection") conn.open "Driver={sql server};SERVER=192.168.1.32;DATABASE=pywz" sqltemp="delete from BbsInfo where id=" & id conn.Execute(sqltemp) ‘注释1 response.Write("del=1") ‘注释2 conn.close %> 注释1部分为根据id号去删除记录,注释2部分为返回操作结果。 B、 Flash部分 1、新建一个组件,新建一个组件,命名为“delloop”,在其第一帧的Action面板上增加下面的语句: _root.count = 0; stop(); 在第五帧上插入关键帧,在其Action面板上增加下面的语句: if (!(_root.del)) { ‘注释1 _root.count = _root.count + 1; if (_root.count > 50) { _root.gotoAndPlay("netfalse"); _root.delloop.gotoAndStop(1); } _root.delloop.gotoAndPlay(2); } else ‘注释2 { _root.gotoAndStop("show"); _root.showtxt = "删除成功,请返回"; _root.delloop.gotoAndStop(1); } 注释1部分为检查是否已经有返回的结果,如果没有则继续循环。注释2部分则根据返回的结果进行相应的处理。 2、将组件“delloop”从图库拖到场景的第10帧上,命名为“delloop”。 3、在场景中的“删除”Button的Action面板上依次增加下面的语句: Button 0上增加: on(release){ loadVariables("del.asp?id=" add _root.id0, this, "POST"); _root.delloop.gotoAndPlay(2); } Button 1上增加: on(release){ loadVariables("del.asp?id=" add _root.id1, this, "POST"); _root.delloop.gotoAndPlay(2); } Button 2上增加: on(release){ loadVariables("del.asp?id=" add _root.id2, this, "POST"); _root.delloop.gotoAndPlay(2); } Button 3上增加: on(release){ loadVariables("del.asp?id=" add _root.id3, this, "POST"); _root.delloop.gotoAndPlay(2); } 关键词: |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于flash与asp的结合应用实例之一 论坛的实现(结尾)的所有评论