搜索
第9章新闻发布系统模块9.1流程图设计•新闻发布系统模块功能包括普通用户查看新闻和管理员管理新闻两部分：•学生可以登录该系统模块，查看具体的新闻信息；•管理员登录后可以进行添加新闻、删除新闻、修改新闻等操作。•这里新闻发布系统模块由以下两个模块的组成：1．客户浏览模块。2．管理新闻模块。9.1流程图设计•其功能模块流程图如下图9-1新闻发布系统模块流程图所示：登陆普通用户登录验证管理员登录添加新闻删除新闻修改新闻查看新闻9.2数据库设计•该新闻发布系统模块创建了一个表——学院信息发布表news•下面是数据表的具体内容：用于保存添加新闻时的一些基本信息，如标题，详细内容，添加时间，类别等。9.2数据库设计•news表中的具体内容9.3详细设计开发•前台页面模块•后台功能模块9.3.1前台设计•我们接下来讨论以会员身份登录时的情况。若通过系统主页的登录/注册模块可以进入新闻发布系统模块进行查看信息。•由于新闻发布系统模块的特殊性，不要求进行身份验证，故不注册的用户也可以查看信息9.3.1前台设计•以会员身份登录成功后，可以看到欢迎词。同时“校内新闻”已经列出了最近的四条新闻的标题和发布的具体时间。图9-1“校内新闻”主界面9.3.1前台设计中心代码：!--#includefile=common/const.asp--%sql=selecttop4*fromnewswheresort=0orderbyiddesc”setrs=server.createobject(adodb.recordset)rs.opensql,conn,1,1whilenotrs.eof%aclass=“a1”href=“newsshow.asp?id=%=rs(id)%”target=_blank%=rs(title)%...%=rs(dt)%/a/td%rs.movenextwendrs.close%9.3.1前台设计•%=rs(id)%这是asp语言里面的语法，用%%括起来作为标志,%=rs(id)%又等价于%response.writers(id)%•将id字段值（如1），输入到页面。结果返回客户端的html页中为ahref=“newsshow.asp?id=1,就是一个完整的链接了。•问号后面跟的是网页要传递的参数，可以带多个参数，参数格式为?变量1=值1&变量2=值2&变量3=值3...9.3.1前台设计•如果想浏览更多的信息，可以单击“更多”超链接。如图所示。然后就进入了更多新闻界面。我们可以看到更多的新闻，单击其标题，即可查看详细内容。9.3.1前台设计•IsEmpty函数返回Boolean值用于判断一个变量是否已初始化。•语法:IsEmpty(expression)必要的expression参数是一个Variant，包含一个数值或字符串表达式。•如果变量未初始化或显式地设置为Empty，则函数返回True；否则函数返回False。•如果expression含有多个变量，则IsEmpty总是返回False。IsEmpty只返回对variant表达式有意义的信息。9.3.1前台设计•sql=select*fromnewssetrs=server.CreateObject(adodb.recordset)rs.opensql,conn,1,1total_list=rs.recordcountiftotal_listmodpage_list=0thenpage_count=total_list/page_listelse9.3.1前台设计•rs.recordcount返回记录总数使用这个方法并不是都能成功的。有时候会返回（-1）。•属性/游标类型ForwardOnly（0）Dynamic（2）Keyset（1）Static（3）•游标就是rs.opensql,conn,a,b中a的值，b记录的锁定类型9.3.2后台设计•当以管理员身份登录时，便可以添加、修改、删除新闻。•那么就先要从主页，以管理员的身份登陆，这时需要选中“管理员”复选框。•登陆成功过后，便可以对新闻进行管理了。9.3.2后台设计•1.添加新闻模块9.3.2后台设计formid=addnewsaction=save.asp“method=posttablewidth=722border=1cellspacing=0trtdwidth=81标题:/tdtdwidth=558inputname=title”type=textid=titlesize=20maxlength=20//td/tr9.3.2后台设计•cellspacing设置为“0”，显示的结果就是第一个表格的每个单元格之间的距离为0。•cellpadding属性用来指定单元格内容与单元格边界之间的空白距离的大小。9.3.2后台设计trtd内容:/tdtdheight=200inputtype=hiddenid=newsname=news/iframeID=eWebEditor1src=../../ewebeditor/ewebeditor.asp?id=news&style=standardframeborder=0scrolling=nowidth=100%height=200%/iframe/td/tr9.3.2后台设计•iframe是个插入代码标签，是调用的一个文件调用的文件是../../ewebeditor/ewebeditor.asp，是一个外部编辑器，风格是标准风格，边框为0，滚动条不显示。•trtd分类：/tdtdselectname=selectsize=1optionvalue=0校内新闻/optionoptionvalue=1生活新闻/optionoptionvalue=2本站公告/option/select/td/tr9.3.2后台设计trtd/tdtdinputname=提交type=submitvalue=提交/inputname=重置type=resetvalue=重置/inputname=返回type=buttonid=返回onclick=MM_goToURL('parent','../../index.asp');value=返回//td/tr/table/form9.3.2后台设计•2.删除新闻模块•删除的方法很简单，管理员只要选中了该新闻对应的“删除新闻”超连接,那么该信息就会被删除。•!--#includefile=../common/conn.asp--%dimid,sqlid=request.QueryString(id)setrs=server.CreateObject(adodb.recordset)sql=deletefromnewswhereid=&idrs.opensql,conn,1,3response.Redirect(../../morenews.asp)%9.3.2后台设计•3.修改新闻模块•可以修改新闻的标题，新闻的具体内容，以及选择新闻的分类等信息。修改好后，单击“提交”按钮即可。9.3.2后台设计•修改新闻功能界面的源代码如下所示：!--#includefile=../common/conn.asp--%dimid,sqlid=request.QueryString(id)sql=select*fromnewswhereid=&idsetrs=server.CreateObject(adodb.recordset)rs.opensql,conn,1,19.3.2后台设计ifrs.eofthenresponse.Redirect(../morenews.asp)else%formaction=changesave.asp?id=%=id%method=posttablewidth=722border=1cellspacing=0trtdwidth=81标题:/tdtdwidth=558inputname=titletype=textid=titlesize=20maxlength=20value=%=rs(title)%//td/tr9.3.2后台设计trtd内容:/tdtdheight=200inputtype=hiddenid=newsname=newsvalue=%=rs(content)%/iframeID=eWebEditor1src=../../ewebeditor/ewebeditor.asp?id=news&style=standardframeborder=0scrolling=nowidth=100%height=200%/iframe/td/tr9.3.2后台设计trtd分类：/tdtdselectname=selectsize=1optionvalue=0校内新闻/optionoptionvalue=1生活新闻/optionoptionvalue=2本站公告/option/select/td/tr9.3.2后台设计trtd/tdtdinputname=提交type=submitvalue=提交/inputname=重置type=resetvalue=重置/inputname=返回type=buttonid=返回onclick=MM_goToURL('parent','../../moremews.asp')value=返回//td/tr/table/form%endif%9.3.2后台设计changesave.asp的源代码如下所示：!--#includefile=../common/conn.asp--%dimid,sql,title,content,sortitle=request.Form(title)content=request.Form(news)sor=request.Form(select)id=request.QueryString(id)ifid=orsor=orcontent=ortitle=then%scriptlanguage=javascriptalert(请填写完整);history.back();/script9.3.2后台设计%elsesql=select*fromnewswhereid=&idsetrs=server.CreateObject(adodb.recordset)rs.opensql,conn,1,3rs(title)=titlers(content)=contentrs(“sort”)=sorrs.update()//更新数据库response.Redirect(“../../morenews.asp”)endif%作业•编写一个滚动新闻模块•要求：滚动方式为从下到上•内容从数据库中获取•运用这节课学习的内容