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

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

　三、查看具体内容部分

　　查看具体内容部分的原理跟查看主题部分的原理类似：向服务器端发送请求，根据返回情况显示返回内容。

　　A、 ASP部分

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

<%
id = request("id")
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Driver={sql server};SERVER=192.168.1.32;DATABASE=pywz"
set rstemp=Server.CreateObject("ADODB.Recordset")
sqltemp="select * from BbsInfo where id=" & id ‘注释1
rstemp.open sqltemp,conn, 1, 1

if not rstemp.EOF and not rstemp.BOF then ‘注释2
response.Write("author=" & trim(rstemp("Author")) & "&id=" & trim(rstemp("ID")) & "&sub=" & rstemp("Title"))
else
response.Write("id=0") ‘注释3
end if
rstemp.close
conn.close
%>

　　注释1部分为根据id号去查询相应的记录内容。注释2部分为查到相应的记录，返回记录内容。注释3部分为没有找到相应的记录，返回id的值为0。

　　B、 Flash部分

　　1、新建一个组件，命名为“showloop”，在第一帧的Action面板上增加下面的语句：

_root.count = 0;
stop();

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

if (!(_root.id)) {
_root.count = _root.count + 1;
if (_root.count > 50)
{
_root.gotoAndPlay("netfalse");
_root.showloop.gotoAndStop(1);
}
_root.showloop.gotoAndPlay(2);
}
else if (_root.id == "0") ‘注释1
{
_root.showtxt = "找不到符合条件的记录";
}else
{
_root.showtxt =_root.id add _root.author add _root.sub; ‘注释2
_root.showloop.gotoAndStop(1);
_root.gotoAndPlay("show");
}

　　注释1部分为没有找到相应的记录，注释2部分为显示返回的记录内容，并跳转到相应的界面。
　　2、将组件“showloop”从图库中拖放到场景中，命名为“showloop”。

　　3、在场景中的“查看”Button的Action面板上依次增加下面的语句：

　　Button 0上增加：

on(release){
loadVariables("show.asp?id=" add _root.id0, this, "POST");
_root.showloop.gotoAndPlay(2);
}

　　Button 1上增加：

on(release){
loadVariables("show.asp?id=" add _root.id1, this, "POST");
_root.showloop.gotoAndPlay(2);
}

　　Button 2上增加：

on(release){
loadVariables("show.asp?id=" add _root.id2, this, "POST");
_root.showloop.gotoAndPlay(2);
}

　　Button 3上增加：

on(release){
loadVariables("show.asp?id=" add _root.id3, this, "POST");
_root.showloop.gotoAndPlay(2);
}
　　Button 4上增加：

on(release){
loadVariables("show.asp?id=" add _root.id4, this, "POST");
_root.showloop.gotoAndPlay(2);
}
　　Button 5上增加：

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

　　Button 6上增加：

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

　　Button 7上增加：

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

　　这些Action无非就是向服务器端发送请求，启动循环，只是发送的参数不同而已。　　4、在主场景中的第15帧插入关键帧，帧标签为“show”，在其Action面板上插入：stop();
场景中的布局如图6所示。其中文本框的属性设置如图7所示。在“返回”Button的Action面板上增加下面的语句：

图06
?

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

　　四、发表新主题部分

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

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

1 2 下一页

分享到：更多

你可能对下面的文章感兴趣

上一篇: Flash AS教程之三影片剪辑的AS编写规则下一篇: flash与ASP通信的几种方法(2)

关于flash与asp的结合应用实例之一论坛的实现(下)的所有评论

随机推荐

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

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