实现一个带有后台的新闻发布系统

实现一个带有后台的新闻发布系统

（节选自《电子商务网站建设与管理》清华大学出版社2012出版作者：李建忠）在8.3节，我们开发了一个企业网站的新闻发布系统程序，但这个系统并不完善，仍存在很多问题：

问题一：企业网站前台的新闻首页是给客户浏览用的，不应该具备管理功能，比如新闻的添加、删除以及更新，这些功能在8.3节中，我们都集中在了企业新闻的首页。

问题二：8.3节的企业新闻系统是没有后台的，实际上，添加、删除以及新闻的更新，这些功能都应该放在网站的后台由专门的管理员来维护的。因此，我们要给前面的系统加一个后台入口，只有具有权限的用户才能登录后台。

问题三：企业新闻的添加与更新都要用到编辑器，在前面的程序中，我们是通过一个多行文本域来实现编辑器的，不具备基本的排版功能以及图片的上传等功能，与真正的商业网站相去甚远。

1. 企业新闻系统设计

本节我们将在8.3节的基础上，实现一个带有后台的企业新闻系统。通过后台的入口口令验证来保证只有管理员才能登录；通过后台实现企业新闻的管理；通过借助eWebEditor 在线HTML编辑器让网站的后台强大起来，实现更加方便、高效的管理。

（1）数据库设计

同8.3节。

（2）功能设计

网站系统分为前台和后台两部分构成。

前台部分：首页上显示企业新闻，单击各新闻的标题可以查看详细信息(包括新闻的内容、发布时间等)。如图8-10所示。

后台部分：通过登录页面和一个密码验证页面进入后台新闻管理页面，后台的每一个页面都要加入一个登录验证，避免没有登录的非法用户直接在浏览器地址栏输入后台网页文件的网址进而打开后台的网页页面。新闻管理页面提供【添加新闻】、【修改新闻】、【删除新闻】的功能，编辑器我们采用在线编辑器eWebEditor。

图8-10 前台新闻显示页面

根目录说明

Admin文件夹后台文件夹，包含login.asp（后台登录页面）、 manage.asp（后台管理页面）、

addnews.asp(添加新闻页面)、save.asp（保存新闻）、del.asp（删除）、 edit.asp

（编辑新闻）、cklogin.asp（密码验证）、loginout.asp（退出后台）、conn.asp

（数据库连接）、ewebeditor文件夹（在线编辑器）

Data文件夹存放Ecnews.mdb 数据库文件

Images文件夹存放图片文件

Conn.asp 数据库连接文件

Index.asp 新闻首页

Show.asp 显示新闻详细内容页面

Foot.asp 版权信息

2. 前台功能实现

由于前台页面去掉了管理功能，只保留了新闻标题的显示，所以这里的index.asp代码基本同例8-1相同。不再赘述。

3. 后台功能实现

（1）登录页面

后台登录页面主要由一个表单组成，这里我们把样式和表格布局的一些代码略去，其核心代码如下：

【例8-10】登录页面（login.asp）

运行结果如图8-11所示。

图8-11 后台登录入口

（2）密码验证页

密码验证即是验证用户提交的用户名、密码等信息是否正确。如果正确，允许其进入后台，访问后台的其他页面；如果不正确，则提示其密码错误，并回到登录页面进行重新输入。

【例8-11】密码验证cklogin.asp

<%

name=trim(request.Form("username"))

pass=trim(request.form("password"))

if name="" or pass="" then

response.write ""

end if

if name="admin" and pass="admin" then

session("dzsw")="yes" ' 通过验证，给session("dzsw")赋值

response.redirect "manage.asp"

else

response.write ""

end if

%>

说明上面的密码验证如通过，则记录session("dzsw")的值，然后，后台其他页面就可以通过判断该session变量是否为空来断定其是否进行了登录。在例8-11中，用户名和密码被固定为admin，主要是为了简化程序、突出重点。事实上，更常用的做法是将用户名和密码保存在数据库中，在验证页面将用户登录时提交的用户名和密码与数据库中保存的记录进行比较。

（3）后台管理页面

用户从后台登录后，进入后台管理页面，如图8-12所示。

【例8-12】后台管理（manage.asp）

图8-12 后台管理页面

<%

dim guanli

guanli=session("dzsw")

if guanli="" then

response.redirect "login.asp"

end if

%>

<%

sql="select * from tbnews order by id desc"

set rs=db.execute(sql)

%>