专题网站的制作—免费计算机毕业设计论文

专题网站的制作—免费计算机毕业设计论文内容摘要：

论题添加 论坛修改 论点删除 留言浏览 留言删除 用户资料管理 管理员的添加 推荐管理员 用户登录管理 用户登录包括登录验证和用户注册 ,下面分 别画流程图进行说明 : NO NO YES 图 32 用户登录流程图 NO NO 开始 输入用户名及密码 连接数据库 根据用户名查找是否有用 户 进入系统 终止 注册用户 输入有关用户信息 验证填写信息的正确性 输出提示信息 开始 YES 图 33 用户注册信息流程图 以上流程是用户在登录和注册时的全部过程，关于用户的管理流程图将在管理流程图中见到。 （ 2）发布新闻 在新闻发布中我们要实现的功能有用户的浏览和后台管理员对新闻信息的管理，具体流程图如下： NO YES NO YES 连接数据库 存入数据库并保存 终止 开始 判断是否是管理员登录 输入管理员名及密码 判断管理员名是否正确 对新闻系统的管理 普通用户浏览 图 34 新闻系统流程图 (3)BBS 论坛 BBS 这个模块比较复杂 ,我们分几部分来对其分析 .首先 ,用户的登录当用户在主页或者其他页上登录后就可以直接进入该模块．我们在这里描述的是用户从没 有登录以前到所有功能都实现的过程．下面我们以一个全面的的ＢＢＳ论坛模块流程图来了解以下整个系统的大致流程．另外还有管理员的维护和修改等．也将在这给出介绍． 具体流程图如下： （１） 用户的登录在这里就不在详说同上面的一样． （２） 用户发表帖子 开始 添加信息 输入框是否有空 打开数据库．ＭＤＢ 刷新数据库．ＭＤＢ 结束 保存修改 终止 图 35BBS 添加流程图 （ 3）修改信息 是 否 是 否 图 36BS 修改流程图 (4)删除记录 帖子信息 修改信息 输入框是否为空空 输入信息是否合法 修改成功 存入数据库 刷新记录集 结束 开始 开始 是 图 37BBS 删除记录 主要窗体功能及实现方法 （ 1）系统首页 它的功能主要是用户登录和链接各个子功能模块，各类用户通过身份验证可以进入不同的界面，用户可以在主页 登陆，管理员登录可进入 GL—。 主界面也包含一些重要新闻浏览等功能，如：热点新闻的、热点论坛情况查询、网站大体信息的浏览等，这些信息是面向所有用户的；另外还可以让用户查看当天日期以及星期几的有关情况，同时也起到了美化界 面的作用。 主界面如图 38 所示： 输入关键字 连接数据库 检查是否有此关键字 选中次对象 删除对象 刷新数据库 结束 图 3— 8 主页界面 主页中的查询和登录都要用到数据库里的信息，必须和数据库进行连接，所以这里首先介绍连接数据库的方法，本系统中和数据库的连接使用代码实现都是通 过调用文件： 来实现的该文件的代码如下： % Dim db,connstr connstr=Dbq=amp。 ()amp。 Driver={Microsoft Access Driver (*.mdb)} Set db=() connstr % 该代码是使用 ADO 技术来存取符合 ODBC 标准数据库的内容，在这里有好多种连接数据库的方法在这里我们运用的是不用数据源的连接方法，另外，我们采用了 SERVER 对象的 MAPPATH 方法，它的作用是通过 MAPPATH 方法可以将虚拟路径转化为上面的物理路径。 增强整个文件的可移植性。 用到的页面只需用!include file=把这个文件包含进来就可以了。 (2)新闻页的实现 新闻页面包括：热点新闻的推荐、不同话题的划分、新闻提交的时间、同时通过新闻可以链接到新闻的具体文章里，在具体内容里可以知道该新闻的点击次数。 新闻界面如图 39 新闻界面 图 39 新闻界面 具体实现是： 首先与数据库建立连接： % option explicit% !Include file= 第一行是强制型变量申明 第二行则是把连接数据库的文件包含进来 下面是通过建立记录集来查询数据库： % Dim sql,rs sql=Select * From xw where zd=1 Order By xw_date desc Set rs=() sql,db % % Dim strql,sr strql=select * from xw where zd=2 order by xw_date desc Set sr=() strql,db,1 % 下面再通过对记录集的输出来得到该页，具体就不在叙述。 （ 3） BBS 论坛页 首先要申明的是进入论坛前要进行用户身份的验证所以只有该网站注册过的用户才能登录，论坛也主要包括：论坛标题的浏览、论题的电击次数、论题的回复个数、论题的发布时间、以及通过论题可以连接到论题的具体内容，另外，还能够在论坛详情页对论坛的回复。 论坛界面如图： 310 图 310 论坛界面 具体设计如下： %@LANGUAGE=VBSCRIPT CODEPAGE=936% % option explicit% !Include file= !Include file= 在着里同上面的设计一样也是把连接数据库的文件包含近来，不同的是为了使用户能够更方便的查看，我们增加了分页显示方，在分页显示的代码里要调用一段子程序用同样的方法把它保存在文件 中。 具体代码如下： % private sub select_page(page_no,total_page) 请选择页码 : Dim I for I=1 to total_page If I=page_no Then I amp。 amp。 nbsp Else a href=39。 ?page_no= amp。 I amp。 39。 amp。 I amp。 /aamp。 nbsp End If next End sub % 该文件的主要作用是通过论坛主页来调用上面的子程序把当前是第几页和总页数以参数的形式调用 到这里。 再通过该程序依次写出各页页码，并将非当前页设置超级链接，当前页则不设置。 在论坛页里我们需要强调的是有关分页显示的有关内容，具体如下： % Dim sql,rs sql=Select * From bbs Where layer=1 Order By date desc Set rs=() sql,db,1 If Not And Not Then Dim page_size Dim page_no Dim page_total page_size=10 If Request(page_no)= Then page_no=1 Else page_no=cint(Request(page_no)) End If Session(page_no)=page_no =page_size page_total= =page_no Dim I,J I=0 J=page_size Do While Not And J0 I=I+1 J=J1 % 该段代码的主要作用是实现分页显示的主要部分，在这里因为要分页显示查询结果，所以用上面方法创建一个 recordset 对象。 需要注意的是因为要用到recordset 对象的很多属性所以我们要用 OPEN 方法打开数据库的时候要将recordset 对象的 OPEN 方法的参数设置为： sql,db,1。 下面是各种变量的申明分别有：每页多少条记录 (page_size)、当前页有多少条记录 (page_no)、总页数的记录 (page_total)。 page_size=10 即是将每页的显示设为 10条， If Request(page_no)= Then page_no=1 Else page_no=cint(Request(page_no)) End If 该循环程序就是 如果第一次打开，则 page_no=1，否则，由传回的参数决定。 Session(page_no)=page_no =page_size page_total= =page_no 上面第一行是将 page_no 即当前是第几页存入 SESSION 中，后面的子程序要用到。 第二行开始则是对每页显示记录的条数的设置，第三行是将通过recordset 对象的 PageCount 属性返回总页数，最后一行是将当前显示的页数设置为 page_no。 Dim I,J I=0 J=page_size Do While Not And J0 I=I+1 J=J1 % 最后这段循环代码是输出序号、循环执行语句直到当前页结束或文件结尾 在 的最后还有一段代码是： % Call select_page(page_no,page_total) % 是调用 中的程序，写出有关各页的链接信息。 （３） 网站留言 网站留言界面如图：。