实现版主等级和发贴等级分离

蓝雨

版主不管发多少贴，等级总是版主，是不是有点乏味？此修改的目的就是让版主以上等级的用户的等级称号按照发贴数对应注册会员组的等级，但是不影响版主的权限。

修改方法：

1、修改savepost.asp。找到

If Not (Rs.Eof And Rs.Bof) Then
If Rs(2)<>3 Then
\'用户等级不按照文章升级，用户为系统或特殊或多属性组
UserClass=Rs(3)
TitlePic=Rs(4)
FoundGrade=True
End If
End If

修改为

If Not (Rs.Eof And Rs.Bof) Then
If Rs(2)<>3 Then
\'用户等级不按照文章升级，用户为系统或特殊或多属性组
\'UserClass=Rs(3)
\'TitlePic=Rs(4)
FoundGrade=True
End If
End If
If FoundGrade Then
\'如果属于系统或特殊或多属性组,则只更新UserClass和TitlePic而不更新GroupID
Set Rs=Dvbbs.Execute(\"Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<=\"&UserPost&\" Order By MinArticle Desc,UserGroupID\")
If Not (Rs.Eof And Rs.Bof) Then
UserClass=Rs(0)
TitlePic=Rs(1)
\'GroupID=Rs(2)
\'FoundGrade=True
End If
End If
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

2、修改login.asp。找到

If Not (rsUser.Eof And rsUser.Bof) Then
If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then
\'用户等级不按照文章升级，用户为系统或特殊或多属性组
\'UserClass=rsUser(3)
\'TitlePic=rsUser(4)
FoundGrade=True
End If
End If

修改为

If Not (rsUser.Eof And rsUser.Bof) Then
If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then
\'用户等级不按照文章升级，用户为系统或特殊或多属性组
\'UserClass=rsUser(3)
\'TitlePic=rsUser(4)
FoundGrade=True
End If
End If
If FoundGrade Then
\'如果属于系统或特殊或多属性组,则只更新UserClass和TitlePic而不更新GroupID
Set rsUser=Dvbbs.Execute(\"Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<=\"&Article&\" Order By MinArticle Desc,UserGroupID\")
If Not (rsUser.Eof And rsUser.Bof) Then
UserClass=rsUser(0)
TitlePic=rsUser(1)
\'GroupID=rsUser(2)
\'FoundGrade=True
End If
End If
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

3、按照上面的修改以后，当版主重登录的时候，等级称号和图片就开始按照发贴数变化了。但是在帖子用户信息里面，无法知道是不是版主，所以要修改模板page_dipbbs_html(0)。找到

等级：

在前面加上：

职务：版主

职务：超级版主

职务：管理员

修改完毕，如果你的论坛还有其它的非注册用户组的会员，参照修改3添加相应的区分。

[此贴子已经被作者于2007-6-13 13:43:39编辑过]