- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
项目4 新闻增加任务
项目4 分支页的设计与制作
模块 42:分支页布局及制作
学习目标:
会利用创建好的框架制作新闻增加页面
会使用创建好的框架制作新闻修改页面
会使用创建好的框架制作新闻删除页面
【任务1】完成右侧框架新闻管理中的增加新闻功能
在C:\ClassWeb\news文件夹下新建addnewsinfo.asp文件。
选取页面中的文字增加新闻,在“属性”面板中的“链接”文本框中使用【指向文件】或【浏览文件】按钮使之链接到C:\ClassWeb\news\ addnewsinfo.asp文件,在“目标”下拉列表框中选取“mainFrame”。
完成addnewsinfo.asp文件中界面的设计和代码的编写工作
因在填加新闻内容时,要将填加的内容进行字体、段落等格式设置,需要有类似word一样的文本编辑器进行格式设置。启动搜索引擎搜索HTML文本编辑器,将搜索到压缩包解压,将包里的文件夹复制到C:\ClassWeb文件夹下。
这里采用的是新浪博客的在线编辑器,参考网址:/daichenghua/archive/2009/10/18/4695452.aspx。将压缩包下载解压后将其中的edit和uploadfile文件夹复制到C:\ClassWeb文件夹下。
进入addnewsinfo.asp文件的“设计”视图方式,插入表单,在属性面板中对表单属性进行设置,设置表单的“动作”为addnewssave.asp,其它选项取默认设置。
在表单内插入一个6行2列的表格,设置表格的宽为760像素,对齐方式为居中对齐,边框属性值设为1,边框颜色属性值设置为#B7B7D7。
光标定位于表格第1行内,将表格第1行合并,输入文字:[增加新闻],设置文字大小为16像素,字体 颜色为白色。设置第1行的背景色为#0099FF。
光标定位于表格第2行第1列内,输入文字:新闻类别。光标定位于该行第2列内,插入两个单选按钮控件,并在单选按钮旁分别输入文字:新闻和通知。
设置两个单选按钮的name属性值为newskind,新闻单选按钮的选定值为 news,通知单选按钮的选定值为msg,设置新闻单选按钮的“初始状态”为“已勾选”状态,如所示。
图3- 134 “通知”单选按钮属性设置
光标定位于表格第3行第1列内,输入文字:新闻标题。光标定位于该行第2列内,插入一个文本域控件,为文本域取名为newstitle,设置其类型为“多行”,字符宽度设置为90。
光标定位于表格第4行第1列内,输入文字:新闻内容。光标定位于该行第2列内,插入“隐藏域”表单控件,在属性面板中设置隐藏域的名称为“content”其属性,如所示。
再执行“插入”→“标签”命令,在弹出的“标签选择器”对话框中插入iframe标签。在弹出的“标签编辑器”对话框中,在“源”文本框的右侧单击浏览按钮,选取C:\ClassWeb\Edit\editor.htm文件,并在文件名后输入“?id=content”,其它各项参数值的设定如所示。
光标定位于表格第4行第1列内,输入文字:发布者。光标定位于该行第2列内,插入一个文本域控件,为文本域取名为newsmanager,设置其类型为“单行”,字符宽度设置为40。
光标定位于表格第5行第2列内,插入两个按钮控件,其中设置第一个按钮的“值”为“提交”,其“动作”选“无”;第二个按钮的“值”为“重置”,其“动作”选取“重置表单”。
进入“代码”视图方式,在body标签的上方编写JavaScript脚本代码完成检测新闻标题不能为空的判断。代码如下所示:
在“提交”按钮对应的代码段内,加入鼠标单击事件onclick=check(),代码如下所示:
input type=button name=Submit onclick=check() value=提交 /
完成addnewssave.asp文件代码编写工作
在news文件夹下新建addnewssave.asp文件。
双击进入其“代码”视图方式,连接数据库,编写代码完成信息的添加。代码如下所示:
提示:实现信息的添加,除了使用insert语句外,还可以使用recordset对象的addnew方法完成。代码如下所示:
%
dim nkind,ntitle,ncontent
nkind=request(newskind)
ntitle=request(newstitle)
ncontent=request(content)
nmanager=request(newsmanager)
set rs=server.CreateObject(ADODB.Recordset)
sql=select * from news order by addtime desc,id desc
rs.open sql,conn,1,3
rs.add
文档评论(0)