| 三、查看具体内容部分
查看具体内容部分的原理跟查看主题部分的原理类似:向服务器端发送请求,根据返回情况显示返回内容。
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部分为显示返回的记录内容,并跳转到相应的界面。
|