职务和等级分离修改方法(5种角色扮演)

蓝雨

第一步：修改注册文件reg.asp
找到：usersetting=Request.Form(\"setuserinfo\") & \"|||\" & Request.Form(\"setusertrue\") & \"|||\" & showRe
改成：usersetting=Request.Form(\"setuserinfo\") & \"|||\" & Request.Form(\"setusertrue\") & \"|||\" & showRe & \"|||0|||0\"
找到：UserClass=rs(0) 改成：UserClass=split(rs(0),\"|\")(0) & \"|\"
第二步：登录文件login.asp
找到Function ChkUserLogin(username,password,mobile,usercookies,ctype)下面一行定义变量改成：
Dim rsUser,article,userclass,titlepic,gradeclass,titletemp,Arraytemp
找到Sql=\"Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid\"
改成：
Sql=\"Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid,Usersetting,passport as userposition\"
找到：TitlePic = RsUser(\"UserTitle\")，下面添加
Arraytemp = split(RsUser(\"Usersetting\"),\"|||\")
if Ubound(Arraytemp)>=4 then
if isnumeric(Arraytemp(4)) then
gradeclass = Cint(Arraytemp(4))
else
gradeclass = 0
End if
else
gradeclass = 0
End if
找到：Set Dvbbs.UserSession=Dvbbs.RecordsetToxml(rsUser,\"userinfo\",\"xml\")，下面添加
if instr(userclass,\"|\")>0 then
Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@userclass").text = split(userclass,\"|\")(0)
Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@userposition").text = split(userclass,\"|\")(1)
else
Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@userclass").text = userclass
End if
找到： \'如果不属于系统或特殊或多属性组,则将该用户属于注册用户组且按照其文章数自动更新其用户组(等级)
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
titletemp=split(rsUser(0),\"|\")
if Ubound(titletemp) >= gradeclass and gradeclass >= 0 then
UserClass=split(rsUser(0),\"|\")(gradeclass) & \"|\" & userclass
else
UserClass=rsUser(0) & \"|\" & userclass
End if
TitlePic=rsUser(1)
If Not FoundGrade Then
GroupID=rsUser(2)
End If
FoundGrade=True
End If
第三步：修改cls_main.asp
找到Public Sub TrueCheckUserLogin()下面一行
定义变量改成：Dim Rs,SQL,FoundMyGroupID,userclass
/*这里的修改参照login.asp，是一样的*/
再找到下面的Sql=\"Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid\"
改成：
Sql=\"Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid,Usersetting,passport as userposition\"
找到Set UserSession = RecordsetToxml(rs,\"userinfo\",\"xml\")
在Set UserSession = RecordsetToxml(rs,\"userinfo\",\"xml\")上面添加一行：userclass = Rs(\"userclass\")
在下面添加：
if instr(userclass,\"|\")>0 then
Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@userclass").text = split(userclass,\"|\")(0)
Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@userposition").text = split(userclass,\"|\")(1)
else
Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@userclass").text = userclass
End if
找到：Public Sub GetCacheUserInfo()
下面声明变量修改成：dim gradeclass,titletemp,UserClass,Arraytemp
在下面增加：
Arraytemp = split(UserSession.documentElement.selectSingleNode(\"userinfo/@usersetting").text,\"|||\")
if Ubound(Arraytemp)>=4 then
if isnumeric(Arraytemp(4)) then
gradeclass = Cint(Arraytemp(4))
else
gradeclass = 0
End if
else
gradeclass = 0
End if
再在下面找到：Set tRs=Execute(\"Select Top 1 * From Dv_UserGroups Where ParentGID=3 And MinArticle<=\"& CCur(UserSession.documentElement.selectSingleNode(\"userinfo/@userpost").text) &\" Order By MinArticle Desc\")
下面改成：
If not tRs.Eof Then
titletemp=split(tRs(\"usertitle\"),\"|\")
if Ubound(titletemp)>gradeclass and gradeclass>=0 then
UserClass=split(tRs(\"usertitle\"),\"|\")(gradeclass)
else
UserClass=tRs(\"usertitle\")
End if
Execute(\"Update Dv_User Set UserClass=\'\"&UserClass&\"\',TitlePic=\'\"&tRs(\"GroupPic\")&\"\',UserGroupID=\"&tRs(\"UserGroupID\")&\",Vip_StarTime=null,Vip_EndTime=null Where UserID=\"&UserID)
End If
第四步：修改模板：page_index模板template.html(0)
找到：：BoardList/userinfo/@userclass\" />
在后面添加：BoardList/userinfo/@userposition !=\'\'\"> | 论坛职务：BoardList/userinfo/@userposition\" />
修改page_usermanager模板template.html(5)
找到