C、 小结与提高

　　登陆部分功能就算完成， Flash部分的第3步和第5步是比较关键，也是比较常用的技巧。其中第3步又可以采用定时的方法来实现，在一个时间段中不断检查是否已经有返回值，根据相应的条件处理各种流程。

　　二、查看主题部分

　　查看主题部分的原理为：向服务器段发送请求，取得相应的返回值后，显示在对应的文本框中，并控制相应元素的显示情况。

　　A、 Asp部分

　　新建一个空白文件，命名为issue.asp，内容如下：

<%
num = 0
nowpage = request("nowpage")
if nowpage = "" then
nowpage = 1
end if
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Driver={SQL Server};SERVER=192.168.1.32;DATABASE=pywz" ‘注释1
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.cachesize = 5
sqltemp="select * from BbsInfo order by ID"
rstemp.open sqltemp,conn, 1, 1
if not(rstemp.bof and rstemp.eof) then
rstemp.MoveFirst
rstemp.pagesize = 8 ‘注释2
maxpage=cint(rstemp.pagecount)
rstemp.absolutepage=nowpage
nowpage maxpage sub1 author1 sub2 author2 ...... subN authorN num
response.Write("nowpage=" & nowpage & "&")
response.Write("maxpage=" & maxpage & "&")
do while not rstemp.EOF and num < rstemp.pagesize
if len(trim(rstemp("Title"))) >27 then ‘注释3
strTitle = Mid(trim(rstemp("Title")),0,27) + "..."
else
strTitle = trim(rstemp("Title"))
end if
response.Write("author" & num & "=" & trim(rstemp("Author")) & "&" & "id" & num & "=" & trim(rstemp("ID")) & "&" &"sub" & num & "=" & strTitle & "&")
num = num + 1
rstemp.MoveNext
loop
response.Write("num=" & num)
end if
rstemp.close
conn.close
%>

　　其中注释1是数据库的连接字符串，如何改动可参见第一部分。注释2是设定每一次发送的记录条数为8条。注释3所在是控制发送的标题的字符长度小于27个。

　　B、 Flash部分

　　1、在主场景的第10帧上插入关键帧，将此帧命名为“mian”，场景中的布局如图5所示。在此帧的Action面板中增加如下语句：

图05

loadVariables("issue.asp", this, "POST"); ‘注释1
setProperty("_root.pageload", _visible, "1"); ‘注释1
setProperty("_root.pagedown", _visible, "0");
setProperty("_root.pageup", _visible, "0");
setProperty("_root.sb0", _visible, "0");
setProperty("_root.sb1", _visible, "0");
setProperty("_root.sb2", _visible, "0");
setProperty("_root.sb3", _visible, "0");
setProperty("_root.sb4", _visible, "0");
setProperty("_root.sb5", _visible, "0");
setProperty("_root.sb6", _visible, "0");
setProperty("_root.sb7", _visible, "0");
setProperty("_root.db0", _visible, "0");
setProperty("_root.db1", _visible, "0");
setProperty("_root.db2", _visible, "0");
setProperty("_root.db3", _visible, "0");
setProperty("_root.db4", _visible, "0");
setProperty("_root.db5", _visible, "0");
setProperty("_root.db6", _visible, "0");
setProperty("_root.db7", _visible, "0");
_root.su0 = "";
_root.su1 = "";
_root.su2 = "";
_root.su3 = "";
_root.su4 = "";
_root.su5 = "";
_root.su6 = "";
_root.su7 = "";
_root.au0 = "";
_root.au1 = "";
_root.au2 = "";
_root.au3 = "";
_root.au4 = "";
_root.au5 = "";
_root.au6 = "";
_root.au7 = "";
_root.textnum = "