on(release){
_root.gotoAndPlay("main");
}

　　四、发表新主题部分

　　发表新主题的原理为：向服务端发送要发表的内容，服务器端做相应的操作之后返回操作结果。

　　A、 Asp部分

　　新建一个文件，命名为insert.asp，其内容如下：

<%
title = request("title")
content = request("content")
author = request("author")
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Driver={SQL Server};SERVER=192.168.1.32;DATABASE=pywz"
sqltemp="insert bbsinfo (Author,Title,Content) values ('" & author & "','" & title & "','" & content & "')"
conn.Execute(sqltemp) ‘注释1
response.Write("insert=1") ‘注释2
conn.close
%>

　　注释1部分为向数据库中插入相应的值，注释2部分为返回操作的结果。

　　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所示。