实用专题OICQ专区 MSN专区 主页浏览 影音播放 系统优化 办公专区 杀软专区 木马防范 流氓清除 黑软专区 设计专区 压缩解压 下载工具 P2P工具专区 输入法专区

您当前的位置:JZ5U绿色下载站文章中心设计学院Flash → 文章内容
  • flash与asp的结合应用实例之一 论坛的实现(下)

  三、查看具体内容部分

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

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

  四、发表新主题部分

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

  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部分为检查是否已经有返回

[1] [2]  下一页


  • 作者:翅膀  来源:PConline  发布时间:2005-8-21 0:41:33

----------------------------------The End Of Jz5u' Article---------------------------------- 以下是评论:【发表评论

------------------------------- · 相关文档浏览 · --------------------------------------------------------------------- · 热门文档浏览 · -------------------------------------