电子科技大学成都学院课程设计
ElseIf md5(trim(Request.Form(\ErrCodes=ErrCodes+\ \输入的旧密码错误，请重新输入。\Else
oldpassword=Request.Form(\End If
If Not Dvbbs.FoundIsChallenge Then if Request.Form(\password=md5(Request.Form(\Else
password=RS(\End If End If
if Request.Form(\
ErrCodes=ErrCodes+\\请输入密码提示问题。\Else
quesion=Request.Form(\End If
f Request.Form(\?????部分代码省略 3.4.2 文章发布
发帖。论坛最初是为了相互讨论话题而诞生的，发表帖子就是表达自己的看法，与他人进行讨论，因此发帖是论坛首要的功能。
浏览帖子。发表了帖子，就要供他人浏览查看，与他人分享自己的想法和经验。
回帖。浏览了他人发表的帖子，想要发表自己的想法，参与讨论，就可以
12
第3章 校园论坛的设计与实现
回复这个帖子。
其实，发帖→浏览帖子→回帖三大功能周而复始的循环进行，就构成论坛。每个参与论坛的人，主要目的就是发帖，查看已经发表的帖子，针对自己感兴趣的帖子进行回帖，参与讨论。
?????部分代码省略 Public Function Show_Post_Body() Chk_Post()
Dim TempStr,TempArray,TempStr1,TempStr2,PostType signflag=1 mailflag=0
If Dvbbs.UserID = 0 Then Dvbbs.AddErrCode(6) Dvbbs.ShowErr()
TempStr = template.html(0)
TempArray = Split(template.html(6),\If IsAudit = 1 Then TempStr
=Replace(TempStr,\TempStr = Replace(TempStr,\Select Case Action Case 1
TempStr = Replace(TempStr,\?????部分代码省略
3.4.3 讨论区管理
论坛划分了板块，如果帖子内容不属于所在板块的关注话题，那么管理员可以选择将此帖移动到所属话题的板块中去，这就引出了移动帖子的扩展功能。这个功能是随着板块功能的出现而出现的，板块将帖子进行了分组，从而提出了随板块移动帖子的要求。分板块浏览帖子。随着论坛帖子数量的增多，讨论相同话题的帖子聚集在一起，引出了论坛新的扩展功能，即分板块浏览帖
13
电子科技大学成都学院课程设计
子，属于同一板块的帖子讨论同样的话题。这样，就使得对某一话题感兴趣的用户不会被其他帖子干扰，也有利于相同兴趣的用户相互间讨论，不易跑题。
?????部分代码省略 sid=request(\If
IsNumeric(sid)=0
Or
sid=\
Then
Response.redirect
\非法的模板编号&action=OtherErr\
If readme=\\请输入论坛简介。&action=OtherErr\
If BoardType=\then Response.redirect \请输入论坛名称。&action=OtherErr\
If boardmaster=\\请输入管理成员。&action=OtherErr\rname=split(boardmaster,\For i=0 to ubound(rname) sql=\
top
1
username
from
[dv_user]
where
username='\set rs=Dvbbs.Execute(sql) If Rs.eof And rs.bof Then Response.redirect
\
论
坛
没
有
\这个用户，不能添加为版主&action=OtherErr\Exit For End If Set Rs=Nothing Next
?????部分代码省略 3.4.4 权限管理
论坛一般存在两种用户，分别为注册用户和管理员。用户的权限是向下覆盖的，即上级权限包含下级权限，在本论坛中，管理员的权限是上级权限。与
14
第3章 校园论坛的设计与实现
注册用户相关的功能，其实就是论坛前台的主要功能。论坛系统的前台，是用户讨论问题的平台，发帖、回帖一直贯穿用户整个的前台活动。同时，由于论坛系统的帖子管理是管理员在帖子浏览时进行的，所以编辑帖子、删除帖子、转移帖子、置顶帖子和指定精华帖等功能也安排在前台实现。其他与管理员相关的功能，包括板块管理、用户管理和论坛设置等都是管理员在后台进行的操作。如果用户发表了不符合论坛规则的帖子，则需要管理员删除这些帖子，这就引出了删除帖子的扩展功能。管理员可以对论坛的注册用户进行管理，直接添加用户，赋予相关权限，也可以修改已注册用户权限，对违规用户可以删除，这个扩展功能便于管理员对论坛用户的管理。
?????部分代码省略 if request(\
response.write \请选择相关用户。\founderr=true end if
if not founderr then
if request(\dim uid
for i=1 to request(\if request(%uID=request(\else
uID=replace(request.form(\end if
set rs=Dvbbs.Execute(\if not (rs.eof and rs.bof) then
Dvbbs.Execute(\and delR=0\
Dvbbs.Execute(\
15
电子科技大学成都学院课程设计
?????部分代码省略 3.4.5 删档
如果用户发表了不符合论坛规则的帖子，则需要管理员删除这些帖子，这就引出了删除帖子的扩展功能。论坛板需要先创建，才能被使用，管理员还可以删除修改板块的相关信息，因此管理板块是管理员使用的扩展功能。
?????部分代码省略 sub del()
dim titlenum,delboardid,PostUserID,delboardida if request(\founderr=true
Errmsg=ErrMsg + \非法的版面参数。\exit sub
elseif request(\delboardid=\delboardida=\else
delboardid=\delboardida=\end if
if request(\founderr=true
Errmsg=ErrMsg + \请输入被帖子删除用户名。\exit sub end if
Set Rs=Dvbbs.Execute(\UserID,UserGroupID From Dv_User Where
16