ActionScript编程实战项目新闻发布系统文档格式.docx
- 文档编号:15857033
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:14
- 大小:320.78KB
ActionScript编程实战项目新闻发布系统文档格式.docx
《ActionScript编程实战项目新闻发布系统文档格式.docx》由会员分享,可在线阅读,更多相关《ActionScript编程实战项目新闻发布系统文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
备注
(2)在网站根目录中新建名称为conn的ASP页面,并在该页面中输入连接数据库的代码,并检查连接异常,如下所示。
<
%
OnErrorResumeNext
'
使程序在发生错误那条命令后继续执行
Dimdbpath,conn
声明变量
dbpath="
Database/News.accdb"
数据库的相对路径
Setconn=Server.CreateObject("
adodb.connection"
)
创建connection对象,该对象用于对数据库进行连接操作
conn.Provider="
Microsoft.ACE.oledb.12.0"
定义数据库连接的驱动程序
conn.OpenServer.Mappath(dbpath)
对指定的数据库进行连接操作
IfErr.Number<
>
0Then
如果在连接数据库过程中出现错误
Response.Write("
无法建立连接,请检查错误信息:
"
&
Err.Number&
"
Err.Description)
'
在网页中输出错误数目和错误描述
Err.Clear
将错误清除
Response.End()
结束Response对象输出
EndIf
结束判断语句
%>
(3)在网站根目录下新建名称为NewsXML的ASP页面,该页面查询News数据表中的所有新闻,并以XML格式输出在网页中,如下所示。
!
--#includefile="
conn.asp"
-->
Dimrs,sql,i
setrs=Server.CreateObject("
Adodb.Recordset"
sql="
select*fromNewsorderbyiddesc"
rs.Opensql,conn,1,1
查询News数据表中的所有新闻信息
Ifrs.EofThen
未发布任何新闻!
在网页中输出提示信息
结束Respnose对象输出
Else
将所有新闻以XML格式输出到网页中
i=0
?
xmlversion='
1.0'
list>
dowhilei<
rs.PageSizeandnotrs.EOF
Newsid='
&
rs("
id"
)&
title='
title"
type='
type"
author='
author"
from='
from"
time='
time"
content='
content"
/News>
rs.MoveNext
i=i+1
loop
Response.Write("
/list>
setrs=nothing
rs.close
setconn=nothing
conn.close
(4)在网站根目录下新建名称为save的ASP页面,该页面将Flash表单中提交的新闻信息存储到数据库中,如下所示。
Dimtitle_post,type_post,author_post,from_post,time_post,content_post
Dimrs,sql
title_post=Trim(Request.Form("
))
type_post=Trim(Request.Form("
author_post=Trim(Request.Form("
from_post=Trim(Request.Form("
time_post=Trim(Request.Form("
content_post=Trim(Request.Form("
从表单中获取提交的新闻信息,并存储到相应的变量中
if(title_post<
type_post<
author_post<
from_post<
time_post<
content_post<
)then
setrs=Server.CreateObject("
sql="
select*fromNews"
rs.Opensql,conn,1,3
以可写的方式打开News数据表
rs.addNew
创建一条新记录
rs("
)=title_post
)=type_post
)=author_post
)=from_post
)=time_post
)=content_post
将新闻信息存储到数据表的相应字段中
rs.Update
保存修改
setrs=nothing
rs.close
endif
2.创建Flash及ActionScript文件
(1)新建1003×
600像素的空白文档,将所有素材图像导入到【库】面板,并将背景图像拖入到舞台,如图26-2所示
图26-2拖入背景图像
(2)在【库】面板中将“提交按钮”和“返回列表”元件导出为Submit和listBtn自定义类,如图26-3所示。
图26-3导出为自定义类
(3)在网站根目录中新建名称为News的ActionScript文件,在文件中使用import语句导入所需的类,以及创建包、New类和News()主函数,如下所示。
package{
importflash.display.Sprite;
importflash.text.TextField;
importflash.text.TextFieldType;
importflash.display.MovieClip;
importflash.events.MouseEvent;
importflash.events.Event;
import.URLLoader;
import.URLRequest;
import.URLVariables;
import.URLRequestMethod;
import.navigateToURL;
importflash.utils.setInterval;
importflash.utils.clearInterval;
importflash.text.TextFieldAutoSize;
importflash.utils.getTimer;
importflash.system.System;
publicclassNewsextendsSprite{
publicfunctionNews(){
//主函数体
}
}
(4)在News类中声明用于输入和显示新闻的文本字段、存储新闻信息的数组,以及用于加裁外部网页的对象,如下所示。
privatevartitleInput:
TextField;
privatevartypeInput:
privatevarauthorInput:
privatevarfromInput:
privatevartimeInput:
privatevarcontentInput:
//添加新闻的输入文本框
privatevarInput_MC:
MovieClip;
privatevarrequest:
URLRequest;
privatevarloader:
URLLoader;
privatevarvariables:
URLVariables;
privatevarurl:
String;
privatevarnum:
int;
privatevarLoop:
//限制显示的新闻条数
privatevarNews_MC:
privatevartitleTxt:
privatevartypeTxt:
privatevarauthorTxt:
privatevarfromTxt:
privatevartimeTxt:
privatevarcontentTxt:
//显示新闻的文本框
privatevari:
int=0;
privatevarxml:
XML;
privatevartitleArr:
Array=newArray();
//存储留言标题的数组
privatevartypeArr:
//存储新闻类别的数组
privatevarauthorArr:
//存储作者姓名的数组
privatevarfromArr:
//存储新闻出处的数组
privatevartimeArr:
//存储发布时间的数组
privatevarcontentArr:
//存储新闻内容的数组
privatevarnewsURL:
(5)创建名称为showNews()的函数,该函数创建用于存储新闻对象的窗口,及加载新闻,如下所示。
privatefunctionshowNews():
void{
News_MC=newMovieClip();
addChild(News_MC);
//用于存储新闻
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ActionScript编程 实战项目新闻发布系统 ActionScript 编程 实战 项目 新闻 发布 系统