快速业务通道

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所示。
图08
图09



  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 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号