Flash教程：flash与asp结合应用_论坛实现案例分析2

文章类别：Flash | 发表日期:12-09-19

Flash教程：flash与asp结合应用_论坛实现案例分析2

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={SQLServer};SERVER=192.168.1.32;DATABASE=pywz" ‘注释1
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.cachesize = 5
sqltemp="select* fromBbsInfo 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”；

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 = "";
stop();

　　注释1为向服务器发送请求，注释2以下部分为初始化场景中的各个控件。

    2、将场景中所有的文本框的类型都设置为“动态文本”，将“主题”下面的文本框变量依次命名为su0、su1、su2、su3、su4、su5、su6、su7。将“作者”下面的文本框变量依次命名为au0、au1、au2、au3、au4、au5、au6、au7。

    3、新建一个组件，命名为“issueloop”，在组件的第一帧的Action面板上加入如下语句：

_root.count = 0;
stop();

　　在第五帧上插入关键帧，在Action面板上插入如下语句：

if (!(_root.num)) { ‘注释1
_root.count = _root.count+1;
// _root.su0 = "num1 = " add _root.num;
if (_root.count>50) {
_root.gotoAndPlay("netfalse");
_root.issueloop.gotoAndStop(1);
_root.count =0;
}
_root.issueloop.gotoAndPlay(3);
} else { ‘注释2
if (_root.num>=1) {
_root.su0 = _root.sub0;
_root.au0 = _root.author0;
setProperty("_root.sb0", _visible, "1");
setProperty("_root.db0", _visible, "1");
}else
{ _root.su0 = "";
_root.au0 = "";
setProperty("_root.sb0", _visible, "0");
setProperty("_root.db0", _visible, "0");
}
if (_root.num>=2) {
_root.su1 = _root.sub1;
_root.au1 = _root.author1;
setProperty("_root.sb1", _visible, "1");
setProperty("_root.db1", _visible, "1");
}else {
_root.su1 = "";
_root.au1 = "";
setProperty("_root.sb1", _visible, "0");
setProperty("_root.db1", _visible, "0");
}
if (_root.num>=3) {
_root.su2 = _root.sub2;
_root.au2 = _root.author2;
setProperty("_root.sb2", _visible, "1");
setProperty("_root.db2", _visible, "1");
}else
{ _root.su2 = "";
_root.au2 = "";
setProperty("_root.sb2", _visible, "0");
setProperty("_root.db2", _visible, "0");
}

if (_root.num>=4) {
_root.su3 = _root.sub3;
_root.au3 = _root.author3;
setProperty("_root.sb3", _visible, "1");
setProperty("_root.db3", _visible, "1");
}else {
_root.su3 = "";
_root.au3 = "";
setProperty("_root.sb3", _visible, "0");
setProperty("_root.db3", _visible, "0");

}
if (_root.num>=5) {
_root.su4 = _root.sub4;
_root.au4 = _root.author4;
setProperty("_root.sb4", _visible, "1");
setProperty("_root.db4", _visible, "1");
}else {
_root.su4 = "";
_root.au4 = "";
setProperty("_root.sb4", _visible, "0");
setProperty("_root.db4", _visible, "0");
}
if (_root.num>=6) {
_root.su5 = _root.sub5;
_root.au5 = _root.author5;
setProperty("_root.sb5", _visible, "1");
setProperty("_root.db5", _visible, "1");
}else {
_root.su5 = "";
_root.au5 = "";
setProperty("_root.sb5", _visible, "0");
setProperty("_root.db5", _visible, "0");

}

if (_root.num>=7) {
_root.su6 = _root.sub6;
_root.au6 = _root.author6;
setProperty("_root.sb6", _visible, "1");
setProperty("_root.db6", _visible, "1");
}else{ _root.su6 = "";
_root.au6 = "";
setProperty("_root.sb6", _visible, "0");
setProperty("_root.db6", _visible, "0");
}
if (_root.num>=8) {
_root.su7 = _root.sub7;
_root.au7 = _root.author7;
setProperty("_root.sb7", _visible, "1");
setProperty("_root.db7", _visible, "1");
}
else {
_root.su7 = "";
_root.au7 = "";
setProperty("_root.sb7", _visible, "0");
setProperty("_root.db7", _visible, "0");
}
_root.textnum = "共" add _root.maxpage add "页，此第" add _root.nowpage add "页"; ‘注释3
if (_root.maxpage<=1) {
setProperty("_root.pagedown", _visible, "0");
setProperty("_root.pageup", _visible, "0");
}
if (_root.maxpage>1) {
if (_root.nowpage<_root.maxpage) {
setProperty("_root.pagedown", _visible, "1");
} else {
setProperty("_root.pagedown", _visible, "0");
}
if (_root.nowpage>1) {
setProperty("_root.pageup", _visible, "1");
} else {
setProperty("_root.pageup", _visible, "0");
}
}
_root.issueloop.gotoAndStop(1);
_root.count =0;
}

　　此Action的前半部分是控制内容的显示，最后几个if语句是控制翻页Button的显示。其中注释1部分为检查是否已经有返回值，未返回则继续循环。注释2部分是根据返回的记录条数处理记录的显示情况。注释3部分是根据记录的条数和返回的记录条数来控制上一页/下一页按钮的显示情况。

　　4、将组件“issueloop”拖到场景中，命名为“issueloop”。

　　5、将“下载”Button命名为“pageload”，在其Action面板上增加下面的语句：

on (release)
{_root.issueloop.gotoAndPlay(2);
setProperty("_root.pageload", _visible, "0");
}

　　这是让issueloop开始循环。将其放在button的Action上面是为了能让大家更清楚的看到效果，一般可以将其放置在帧的触发事件中，这样就可以自动开始循环。

　　6、将“上一页”Button命名为“pageup”，在其Action面板上增加下面的语句：

on (release){
loadVariables("issue.asp?nowpage=" add (Number(_root.nowpage) - 1), this, "POST");
_root.issueloop.gotoAndPlay(2);
}

　　将“下一页”Button命名为“pagedown”，在其Action面板上增加下面的语句：

on (release){
loadVariables("issue.asp?nowpage=" add (Number(_root.nowpage) + 1), this, "POST");
_root.issueloop.gotoAndPlay(2);
}

　　将两个Button之间的文本框的变量命名为“textnum”，文本类型为“动态文本”。

　　上一页、下一页的Action其实也就是再向服务器端发送“查看主题”的请求，只是发送的nowpage这个参数不同而已。

C、 小结与提高

　　查看主题部分完成了，原理不会非常复杂，但实现起来有点繁琐，这是论坛比较复杂的部分。其中在Asp的实现部分比较有技巧，只是传送了一个nowpage参数，就可以实现分页的效果。

下一篇：{实例}Flash教程：flash与asp结合应用_论坛实现案例分析1 人气:2008

Flash视频教程