3.5网站主要功能模块的分析
本网站主要包括用户信息模块，新闻管理模快，留言板和最新公告模块。
3.5.1用户信息模块
本系统用户包括注册用户和网站管理员，未注册用户可以通过留言板主页进行注册。注册用户成功登录后可进入留言板页面进行修改个人信息和发布留言等。网站管理员除具有普通用户的权限外，更重要是通过管理页面对网站用户、留言板、新闻进行管理和数据库的维护。
3.5.2新闻管理模块
主要包括添加新闻、修改新闻、删除新闻等。
添加新闻 管理员可根据需要将最新的评估新闻通过添加新闻功能发布出去。
修改新闻 当新闻发布出去发现需要修改时，管理员可进入新闻管理在需要修改的新闻后点击修改，就可对新闻进行修改。
删除新闻 当有的新闻已经失去时效意义时，管理员可进入新闻管理选中要删除的新闻点击删除将其删除。
3.5.3 留言板模块
本模块是注册用户使用模块，注册用户在主页登录后，点击留言板就可进入留言板，未注册用户可直接点留言板，在留言板主页注册。为方便管理本系统将用户管理与留言管理合在一起，所以留言板分为两个模块，管理员留言模块和注册用户留言模块。
注册用户留言 注册用户在主页或留言板主页登录后，进入注册用户留言板，在这里可以修改自己的用户信息、发布新贴、删除自己的发贴及在其它话题中的跟贴留言。
管理员留言 管理员在主页或留言板主页登录成功后，进入管理员留言板，在这里管理员可以进行用户管理、发布新贴、其他话题中的跟贴留言，还可以对留言信息进行管理，包括删贴和置顶等。
3.5.4 最新公告模块
该模块主要是为了直接从主页看到最新的评估新闻、信息而设定。它实现从数据库中读取按发布时最新的信息在公告栏中滚动，并且点击标题就能立即浏览新闻。
功能模块大致流程如图3.2：
普通用户进入可查看和修改自身的信息，修改时为保证安全性必须输入原密码，在这里用到一个flag隐藏域用来标识用户是新用户还是修改用户信息。
4.2.2留言板模块的设计与实现:
本系统留言板主要是用来方便注册用户对我系本科评估工作提出宝贵意见，或咨询本科评估的有关事宜，管理员可利用回帖对用户解释，同时吸取用户意见中的有用部分，促进我系的本科评估工作，未注册用户进入留言板可以浏览留言，但不能进行发贴和其他操作。要使留言板达到更好的利用，留言板模块只有与数据库连接才能实现有效的管理，因此本系统设计普通用户留言模块和管理员留言模块。
普通用户登录后，可以根据自己的需要发布新贴或删除自己的发贴，只要点击自己的发贴进入发贴页面点击删除就可以删除了，要发贴点击发新贴即可进入。发贴页面如图4.4：
4.3模块结合
以上介绍的功能模块，都是与数据库连接，都需要用户登录才能实现，本系统用户分为普通用户和管理员用户，不同的用户权限不同，进入的网页就不同。由于本系统留言板也需要管理，管理就要登录，为了方便管理，本系统将用户管理和留言管理合在一起，所以从主页登录和留言板主页的登录后的留言板界面应一致。
实现办法：
访问者登录时在登录页面上的创建的会话变量session 用于从数据库中获取访问者的有关信息，判断用户的身份，写入session 变量，变量将在整个网站的所有网页中都是有效的。这些变量的存在与否及其取值将用于确定是否允许进入一个特定的网页。
<!--#include file="conndb.asp"-->
<%
name=trim(request("username"))
mima=trim(request("pwd"))
exec="select * from Users where Username='"&name&"' and Userpwd='"&mima&"' "set rs=conn.execute (exec)
if rs.eof then '不存在那个用户名的时候，返回错误信息
response.write "<script language=JavaScript>" & "alert('此用户名不存在！');" & "history.back()" & "</script>"
response.end
end if
if rs("Userpwd")<> mima then '如果密码错误，则返回
response.write "<script language=JavaScript>" & "alert('用户名或密码错误！');" & "history.back()" & "</script>"
response.end
else
Session("Passed") = True
Session("UserName") = rs.Fields("UserName")
Session("UserId") = rs.Fields("UserId")
Session("Errmsg") = ""
response.redirect("index.asp")
end if
%>
<!--#include file="conndb.asp"-->是连接数据库文件，在本系统原文件为：
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQLServer};server=RENBINGBING;UID=sa;PWD=sa;Database=LunWen"
Conn.Open %>
