flash与asp的结合应用实例之一 论坛的实现(下)

insert”，在帧的Action面板上增加下面的语句：stop();

　　场景的布局如图8所示。其中标题所对应的文本框的设置如图9所示，正文所对应的文本框的设置如图10所示。

图08

图09

图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);
}

　　Button 4上增加：

on(release){
loadVariables("del.asp?id=" add _root.id4, this, "POST");
_root.delloop.gotoAndPlay(2);
}

　　Button 5上增加：

on(release){
loadVariables("del.asp?id=" add _root.id5, this, "POST");
_root.delloop.gotoAndPlay(2);
}

　　Button 6上增加：

on(release){
loadVariables("del.asp?id=" add _root.id6, this, "POST");
_root.delloop.gotoAndPlay(2);
}

　　Button 7上增加：

on(release){
loadVariables("del.asp?id=" add _root.id7, this, "POST");
_root.delloop.gotoAndPlay(2);
}

　　这些按钮上面的Action是向服务器端发送要删除的相应记录的id，同时开始循环，等待返回结果。

　　4、新场景

　　在第25帧上插入关键帧，帧实例名为“netfalse”，在帧的Action面板上增加下面的语句：

stop();

　　场景的布局如图11所示。 “返回”Button的Action面板上增加下面的语句：

图11
on (release) {
_root.gotoAndPlay("login");
}

　　C、 小结与提高

　　删除记录也一定要返回操作结果以方便控制流程。还要注意的是，一般论坛中的删除记录功能是需要一定权限的，所以在完善功能的时候要控制用户的权限。

　　六、总结

　　至此，一个比较完善的论坛功能就算完成。在这里重点是介绍功能的实现，至于界面就还要请大家多多包涵了。如果在制作过程中有什么不明白的地方，可以一边参考源文件一边制作，也可以给我写E-mail: zengyu111@sohu.com。

　　本实例的开发环境和开发工具如下：WIN2000 Advanced Server、IIS5.0、SQL Server2000、Flash MX、记事本。注意论坛的效果要先将文件放在IIS里面才能看到。

　　附录：数据库字段

　　在本实例中用到两个表：用户表（UserInfo）和内容表（BbsInfo），其字段如下所示。

　　UserInfo表有Userid、Password两个字段。
　　BbsInfo表有Id、Title、Author三个字段。

　　可以根据应用的需要增加相应的字段。