设计实例网上论坛系统课件

1、第13章 设计实例网上论坛系统,13.1 论坛概述 13.2 用户注册、登录、注销和个人资料管理功能模块 13.3 话题管理功能模块 13.4 回复管理功能模块 13.5 论坛栏目信息模块 13.6 论坛话题搜索功能模块 13.7 论坛管理功能模块 13.8 软件测试、运行与维护,本章学习目标,软件项目开发的六个阶段 软件项目的需求分析 软件项目的系统设计和模块划分 论坛系统的主要功能及其实现 软件的测试与维护 论坛系统的主要功能,13.1 论坛概述,13.1.1 需求分析和说明 13.1.2 软件设计和功能模块划分,返回首页,图13-1 软件项目开发的六个阶段,13.1.1 需求分析和说明,表13-1 用户信息表user_info,表13-2 话题信息表art_info,表13-3 回复信息表re_info,表13-4 栏目信息表column_info,返回本节,13.1.2 软件设计和功能模块划分,1设置程序代码文件的存放位置 2创建数据库和ODBC数据源 3创建层叠样式表文件 4创建公用函数文件 5编辑global.asa文件 6功能模块划分,图13-2 网上论坛系统功能模块划分

2、,返回本节,13.2 用户注册、登录、注销和个人资料管理功能模块,13.2.1 模块功能描述 13.2.2 用户注册 13.2.3 用户登录 13.2.4 用户注销 13.2.5 修改个人资料,返回首页,13.2.1 模块功能描述,网上论坛系统要求用户注册并登录后才能进行发表新话题、回复话题和搜索话题等操作。注册时需要填写用户个人资料，包括用户姓名、登录密码、电子邮件和个人介绍等内容。填写完成并提交后，系统要验证提交数据是否有效，如果有效则将该用户的个人资料写入用户信息表user_info。用户登录论坛时，需要输入用户姓名和登录密码，系统在用户信息表user_info中查询是否存在该用户，如果存在则认为该用户是论坛合法用户，允许其登录论坛，否则不允许其登录。,返回本节,13.2.2 用户注册,用户首先在注册页中填写个人资料，如图13-3所示。,填写完成后单击“提交”按钮，将数据提交给用户注册执行页register.asp。该页接收用户提交的注册信息，并验证注册信息的有效性，如果无效，则显示错误信息，并返回register.htm页重新注册；如果有效则将该用户的注册信息添加到用户信息表u

3、ser_info中，显示注册成功信息，并进入论坛主页面main_bbs.asp。register.asp页的程序源代码如下： %如果程序代码在执行过程中遇到错误，则将其忽略，继续向下执行,On Error Resume Next 接收register.htm页提交的用户注册信息，并去掉数据开头和结尾的空格 user_name=Trim(Request.Form(user_name) 用户姓名 user_pwd=Trim(Request.Form(user_pwd) 登录密码 user_pwd2=Trim(Request.Form(user_pwd2) 确认密码 e_mail=Trim(Request.Form(e_mail) 电子邮件 intro=Trim(Request.Form(intro) 自我介绍 初始化自动跳转页变量return_url为“返回上一页” return_url=JavaScript:History.Back(),返回本节,13.2.3 用户登录,用户登录页default.htm是论坛默认打开页，提供用户登录功能，如图13-4所示。,用户输入用户名称和登录密码，然

4、后单击“登录”按钮，将登录数据提交给用户身份验证页chk_user.asp。该页接收用户提交的登录信息，并验证登录信息的有效性，如果无效，则显示错误信息，并返回default.htm页重新登录；如果有效则显示登录成功信息，并进入论坛主页面main_bbs.asp。chk_user.asp页的程序源代码如下： %On Error Resume Next user_name=Trim(Request(user_name) 用户姓名 user_pwd=Trim(Request(user_pwd) 登录密码 return_url=default.htm,如果登录数据不完整、登录数据存在非法字符、账号正在被使用或登录数据不正确，则返回上一页，否则将用户名称（user_name）和用户权限（ctrl_lev）分别赋值给Session(user_name)和Session(ctrl_lev)，并跳转到论坛栏目主页面 If (user_name=Empty) Or (user_pwd=Empty) Then errmsg=登录失败！请正确输入名称和密码。 Elseif Instr(user_name,

5、)0 Or Instr(user_name,0 Or Instr (user_name,)0 Or Instr(Lcase(user_name),Or)0 Or Instr(user_pwd,) 0 Or Instr(Lcase(user_pwd),Or)0 Then errmsg=登录失败！请正确输入名称和密码。 Elseif Instr(Application(online_name),&user_name&)0 Then errmsg=登录失败！该账号正在被使用。 Else,sql_chk_user=Select * From user_info Where user_name=&user_name& And user_pwd=&user_pwd& Set rs_chk_user=conn_db(sql_chk_user,1) If rs_chk_user.Eof Then errmsg=登录失败！请正确输入名称和密码。 Else errmsg=登录成功！你好，&rs_chk_user(user_name)&！冷雨论坛欢迎你的到来。 Session(user_name)=user

6、_name,Session(ctrl_lev)=rs_chk_user(ctrl_lev) return_url=main_bbs.asp End If close_conn(rs_chk_user) End If% .: 冷雨论坛 :. ,返回本节,13.2.4 用户注销,用户离开论坛时执行用户注销页logout.asp。程序中首先将该用户名从在线用户名单中删除，然后将该用户的所有会话信息清空，再用Session的Abandon方法结束用户的会话，释放其所占的资源，并返回default.htm登录页。logout.asp页的程序源代码如下： ,返回本节,13.2.5 修改个人资料,修改个人资料时要具有良好的操作性，需将用户的个人资料回显，便于用户修改，其页面显示如图13-5所示。,updt_info.asp页的程序源代码如下： %On Error Resume Next If Session(user_name)= Then Response.Redirectdefault.htm End If user_pwd=Trim(Request.Form(user_pwd) 登录密码 us

7、er_pwd2=Trim(Request.Form(user_pwd2) 确认密码 e_mail=Trim(Request.Form(e_mail) 电子邮件 intro=Trim(Request.Form(intro) 自我介绍 return_url=JavaScript:History.Back() 用户更新信息验证。如果用户更新的内容有任一项为空，或登录密码同确认密码不相符，则返回上一页；如果密码里存在非法字符，则返回上一页，否则就更新该用户信息,If (user_pwd=Empty) Or (user_pwd2=Empty) Or (e_mail=Empty) Or (intro=Empty) Or (user_pwduser_pwd2) Then errmsg=修改失败！原因可能是：1. 表格填写不完整；2. 表格填写有误，如“登录密码”和“确认密码”不符等；3.内容中存在非法字符，如“”、“Or”、“”、“”等。 Elseif Instr(user_pwd,)0 Or Instr(Lcase(user_pwd),Or)0 Then errmsg=修改失败！原因可能是：1.

8、表格填写不完整；2. 表格填写有误，如“登录密码”和“确认密码”不符等；3.内容中存在非法字符，如“”、“Or”、“”、“”等。 Else,sql_updt_info=Update user_info Set user_pwd= URL= ,返回本节,13.3 话题管理功能模块,13.3.1 模块功能描述 13.3.2 发表新话题 13.3.3 修改话题 13.3.4 删除话题,返回首页,13.3.1 模块功能描述,话题管理包括添加新话题、修改话题和删除话题三部分。用户登录后，就可以执行发表新话题操作，操作时要求提供新话题的标题和内容。用户填写完毕并提交后，系统要验证提交资料是否有效，如果有效则将该话题信息写入话题信息表art_info。栏目管理员和超级管理员可以执行修改话题和删除话题操作。修改话题是在话题信息表art_info中更新该话题的记录。删除话题时，不但要删除话题信息表art_info中相应的话题记录，还要删除回复信息表re_info中该话题的回复记录。,返回本节,13.3.2 发表新话题,发表新话题wrt_art.asp页面显示如图13-6所示。,add_art.asp页的

9、程序源代码如下： %On Error Resume Next If Session(user_name)= Then Response.Redirectdefault.htm End If art_sub=Trim(Request.Form(art_sub) 话题标题 content=Trim(Request.Form(content) 话题内容 column_id=Request.Form(column_id) 话题所属栏目编号 如果标题和内容都不为空，则将该主题信息写入表art_info If (art_sub=) Or (content=) Then errmsg=主题标题和主题内容不能为空！ return_url=JavaScript:History.Back() Else,sql_add_art=insert into art_info (art_sub, content, author, app_time, read_amt, column_id) values ( URL= ,返回本节,13.3.3 修改话题,修改话题时需将话题资料回显，便于用户修改，其页面显示如图13-7所示。,返回本节,13.3.4 删除话题,删除话题执行页del_art.asp删除话题信息表art_info中指定的话题记录，同时删除回复信息表re_info中该话题的回复记录，显示删除成功信息，并跳转到论坛栏目主页面main_column.asp。del_art.asp页的程序源代码如下： %On Error Resume Next If Session(user_name)= Then Response.Redirectdefault.htm End If art_id=Request(art_id) 话题编号,column_id=Request(column_id) 话题所属栏目编号 删除该主题信息 sql_del_art=Delete From art_info Where art_id= URL= ,返回本节,13.4 回复管理功能模块,13.4.1 模块功能描述 13.4.2 回复话题 13.4.3 修改回复话题 13.4.4 删除回复话题,返回首页,13.4.1 模块功能描述,回复管理模块和话题管理模块

《设计实例网上论坛系统课件》由会员我***分享，可在线阅读，更多相关《设计实例网上论坛系统课件》请在金锄头文库上搜索。