完美在帖子中显示个人信息、登陆次数等的修改方法 首先修改dispbbs.asp 找到 Set Rs=Dvbbs.Execute(\"Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us erEP,userCP,Userbirthday,User***,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney ,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN (\"& postuseridlist &\")\") 修改为 Set Rs=Dvbbs.Execute(\"Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us erEP,userCP,Userbirthday,User***,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney ,UserTicket,UserAvaSetting,UserIsAva,userlogins From dv_user Where UserID IN (\"& postuseridlist &\")\") 然后后台风格模板 page_dispbbs template.html(0) 查找 文章找到
版主不管发多少贴,等级总是版主,是不是有点乏味?此修改的目的就是让版主以上等级的用户的等级称号按照发贴数对应注册会员组的等级,但是不影响版主的权限。 修改方法: 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)。找到
\'===加强检查注册昵称代码== If IsNumeric(username) then ErrCodes=ErrCodes+\"
不能使用纯数字ID进行注册,谢谢合作!\" End If For I=1 to Len(username) If left(Username,1)<>mid(Username,i,1) or asc(Left(Username,1))<0 Then I=0:Exit For Next If I>0 Then ErrCodes=ErrCodes+\"
昵称不能全部使用重复字符!\" End If \'============== 如果想在检测用户名称的时候就通知用户的话,请在第627左右找到代码: If ErrCodes<>\"\" Then Showerr() 再在前面插入这段检测的代码即可。