快速业务通道

酷!Flash聊天室的实现(2)

作者 佚名技术 来源 服务器技术 浏览 发布时间 2012-07-09

6、在主场景中的第5帧中插入关键帧,将此帧命名为“netfalse”,在此帧场景中添加“网络连接超时……”的信息。在帧的Action面板中增加下面的语句:
stop();
  7、在主场景中的第10帧中插入关键帧,将此帧命名为“loginfalse”,在此帧场景中添加“用户名或密码错”的信息。在帧的Action面板中增加下面的语句:
stop();
  C、小结与提高
  在ASP部分要注意的是当登陆成功后,要在application("VisitorName")和application("VisitorNum")对象中加上相应的值。在Flash部分中,先用loadVariables()发送请求,然后启动另外一个clip等待返回的值,这是一种比较好的操作方法。
  三、发送
  发送部分的基本原理是从Flash端发送聊天内容到服务器端,在服务器端将聊天内容添加到application("AllCanSee")对象中,并将修改后的application("AllCanSee")对象的内容返回到Flash端。
  A、asp部分
  1、新建一个空白文件,命名为send.asp,其内容如下:
<%
username = request("username")
tempstr= username & " say: " & request("content") & "<br>"
application("AllCanSee") = application("AllCanSee") & tempstr ‘注释1
response.Write("sflag=true&scontent=" & application("AllCanSee")) ‘注释2
%>
  注释1:将从flash端发送来的内容添加到聊天的内容中。
  注释2:将标志位sflag和聊天的内容发送回flash端。
  B、Flash部分
  1、在主场景的第15帧中添加关键帧,将此帧命名为“main”,在帧的Action面板中增加下面的语句:
now = new Date(); //注释1
starttime = now.getTime();
stop();
  注释1:这是为计算在线时间而设的。
  2、在主场景中拉一个对话框,属性设置如图4所示。
  3、按Ctrl + F8,新建一个movie clip,命名为sendloop,在此clip的第一帧的action面板上增加下面的语句:
_root.countsend = 0;
stop();
在clip的第5帧上插入关键帧,在其action面板上面增加如下语句:
if (!(_root.sflag)) { //注释1
_root.countsend = _root.countsend + 1;
if (_root.countsend > 50) //注释2
{
_root.gotoAndPlay("netfalse");
_root.sendloop.gotoAndStop(1);
}
_root.txttime = _root.countsend;
_root.sendloop.gotoAndPlay(2);
}
if (_root.sflag == "true") //注释3
{
_root.txtcontent = _root.scontent;
_root.txttime = "sssss";
_root.sflag = "";
_root.sendloop.gotoAndStop(1);
}
  注释1:判断返回的标志位,若还没从服务器返回值,计数器加一。
  注释2:当计数器加到50的时候,跳转到网络超时界面。
  注释3:若返回的值为true,将返回的聊天内容显示在场景中。
  4、将sendloop从图库拖到主场景main帧中,命名为sendloop。
  5、在主场景main帧中增加一个button,显示的内容为“发送”。在button的action面板上面增加如下语句:
on (release) {
if (length(_root.txtsend) == 0) { //注释1
_root.txtsend = "请输入内容";
}
if ((length(_root.txtsend) != 0)) { //注释2
loadVariables("send.asp?content=" add _root.txtsend add "&username=" add _root.username, this, "POST");
_root.sendloop.gotoAndPlay(2);
_root.txtsend = "";
}
}
  注释1:判断要发送的内容是否为空,为空则显示警告信息。
  注释2:若发送的内容不为空,向服务器端发送聊天的内容和用户名。
  C、小结与提高
  跟登陆部分差不多的流程,先发送请求,然后等待返回的值,根据返回的值来执行相应的操作。这里要注意的是变量的命名不能跟前面重复,还有后面要用到的时间变量也要先定义。这里的实现比较简单,只是简单介绍了流程,如果要考虑一下发送动作、发送图标、私聊等等,还有非常多的工作要做。
  四、显示聊天内容
  显示聊天内容的基本原理是从Flash端发送要显示聊天内容的请求,在服务器端将application("AllCanSee")的内容发送到Flash端,Flash端显示出来。
  A、asp部分
  1、新建一个空白文件,命名为content.asp,其内容如下:
<%
username = request("username")
tempstr = "cflag=true"
tempstr = tempstr & "&ccontent=" & application("AllCanSee")&bsp; //注释1
response.Write(tempstr)
%>
  注释1:向Flash端返回标志位和聊天内容。 关键词:

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站: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号