帖子评分插件v2.0 for dvbbs7.0 sp2

帖子评分插件 V2.0 插件名称：帖子评分 插件版本：2.0 插件作者：老庙黄金 发布时间：2004年7月24日 本插件系Dv6.0水晶晶全站中的《版主评分》插件相对于Dv7.0的升级版本。 主要功能： 1、可以对指定版面开放或关闭帖子评分功能（默认情况下所有版面全部未开放此功能，需要管理员逐一开放）； 2、可以指定某个用户组具有或不具有帖子评分的权限（默认情况下所有用户组包括管理员都没有该权限，需要管理员逐一开放）； 3、可以指定某个特别的用户具有或不具有帖子评分的权限（默认情况下所有用户均没有此特殊权限，需要管理员给予开放）； 4、可以指定某个用户组或某个用户在某个指定的版面里具有帖子评分权限（默认情况下所有用户组和用户在任何版面下均没有此特殊权限，需要管理员给予开放）； 5、只有较高权限的用户可以修改较低权限用户的评分结果； 6、自己不能对自己发表的帖子进行评分； 7、论坛用户列表及用户信息显示中可以显示用户的积分值，同时用户列表可以按照积分进行排行； 8、帖子中用户信息的积分已经改为这种真正的积分，而原来的积分属性恢复为经验值。 安装办法： 一、将压缩包中的UpgradeScore.asp上传至论坛根目录，img_Score目录连同其下边的所有文件上传至论坛的images目录下 二、在IE地址栏输入： http://xxxx.xxxx.xxxx/xxxx/UpgradeScore.asp (其中http://xxxx.xxxx.xxxx/xxxx/是你论坛的访问地址） 按指示升级数据库。 数据库升级成功后请删除论坛根目录下的UpgradeScore.asp文件。 三、修改后台模板，page_dispbbs中的template.html(2)， 找到： &nbsp;&nbsp;积分：{$userep}<br> 改为： &nbsp;&nbsp;经验：{$userep}<br> &nbsp;&nbsp;积分：{$userscore}<br> 四、修改后台模板，page_dispbbs中的template.html(3)， 找到： <img src="{$expression}" border=0 alt=发贴心情 align=absmiddle>&nbsp;<b>{$topic}</b> 改为： <table cellpadding=0 cellspacing=0 border=0 width=100% ><tr><td width=*><img src="{$expression}" border=0 alt=发贴心情 align=absmiddle>&nbsp;<b>{$topic}</b></td><td width=60 align=right>{$TopicScore}</td></tr></table> 五、修改后台模板，page_dispbbs中的template.html(4)， 1、找到： function dvbbs_show_topic(AnnounceID,BoardID,UserName,Topic,isagree,useremail,userim,UserMobile,face,Topic_Ads,title,sign,UserGroup,body,dateandtime,Expression,ip,RootID,signflag,isbest,PostUserid,layer,userclass,width,height,article,addDate,userWealth,userEP,userCP,birthday,sex,LockUser,userPower,titlepic,UserGroupID,LastLogin,IsChallenge,i,tablebody,isOnline,LockPage){ 改为： function dvbbs_show_topic(AnnounceID,BoardID,UserName,Topic,isagree,useremail,userim,UserMobile,face,Topic_Ads,title,sign,UserGroup,body,dateandtime,Expression,ip,RootID,signflag,isbest,PostUserid,layer,userclass,width,height,article,addDate,userWealth,userEP,userCP,birthday,sex,LockUser,userPower,titlepic,UserGroupID,LastLogin,IsChallenge,i,tablebody,isOnline,LockPage,isAllowScore,TopicScore,ScoreUser,UserScore){ 2、找到： if (signflag=='1' && Forum_Setting42=='1' && sign!='' && LockUser=='0'){ topicinfo+= sstr[12]; topicinfo = topicinfo.replace(/{\$usersign}/gi,sign); } 下边添加： if(isAllowScore!='-1'&&(isAllowScore=='0'||ScoreUser!='')) { var TopicScoreStr = '<img src="images/img_Score/' + TopicScore + '.gif" border=0'; if(isAllowScore=='0') { TopicScoreStr = TopicScoreStr + ' id="Score_' + AnnounceID + '"'; } if(ScoreUser=='') { TopicScoreStr = TopicScoreStr + ' alt="尚未评分">'; } else { TopicScoreStr = TopicScoreStr + ' alt="评分人：' + ScoreUser + '">'; } if(isAllowScore=='0') { TopicScoreStr = '<a href="javascript:postScore(document.all.Score_' + AnnounceID + ',' + BoardID + ',' + AnnounceID + ',' + RootID + ',' + star + ')">' + TopicScoreStr + '</a>'; TopicScoreStr = '<img src="images/img_Score/left.gif" style="CURSOR:hand" onclick="prevScore(document.all.Score_' + AnnounceID + ')">' + TopicScoreStr + '<img src="images/img_Score/right.gif" style="CURSOR:hand" onclick="nextScore(document.all.Score_' + AnnounceID + ')">'; } topicinfo = topicinfo.replace(/{\$TopicScore}/gi,TopicScoreStr); } else { topicinfo = topicinfo.replace(/{\$TopicScore}/gi,""); } 3、找到： str = str.replace(/{\$userep}/gi,userEP); 下边添加： str = str.replace(/{\$userscore}/gi,UserScore); 4、找到： function usercolor(UserGroupID) { if (UserGroupID=='1') {return(mainsetting[8]);} if (UserGroupID=='3') {return(mainsetting[6]);} if (UserGroupID=='8') {return(mainsetting[10]);} if (UserGroupID!='8' && UserGroupID!='3' && UserGroupID!='1') {return(mainsetting[4]);} } 下边添加： function postScore(ScoreObj,BoardID,AnnounceID,RootID,star) { var ScoreSplit=ScoreObj.src.split("/"); var Score=ScoreSplit[ScoreSplit.length-1]; Score=(Score.split("."))[0]; document.location='z_score_post.asp?BoardID=' + BoardID + '&replyID=' + AnnounceID + '&id=' + RootID + '&star=' + star + '&score=' + Score; } function prevScore(ScoreObj) { var ScoreSplit=ScoreObj.src.split("/"); var Score=ScoreSplit[ScoreSplit.length-1]; Score=(Score.split("."))[0]; if(Score>-5) { Score--; ScoreObj.src='images/img_Score/' + Score + '.gif'; } } function nextScore(ScoreObj) { var ScoreSplit=ScoreObj.src.split("/"); var Score=ScoreSplit[ScoreSplit.length-1]; Score=(Score.split("."))[0]; if(Score<5) { Score++; ScoreObj.src='images/img_Score/' + Score + '.gif'; } } 六、修改Dispbbs.asp： 1、找到： SQL="B.AnnounceID,B.BoardID,B.UserName,B.Topic,B.dateandtime,B.body,B.Expression,B.ip,B.RootID,B.signflag,B.isbest,B.PostUserid,B.layer,b.isagree,U.useremail,U.UserIM,U.UserMobile,U.Usersign,U.userclass,U.Usertitle,U.Userwidth,U.Userheight,U.UserPost,U.Userface,U.JoinDate,U.userWealth,U.userEP,U.userCP,U.Userbirthday,U.Usersex,u.UserGroup,u.LockUser,u.userPower,U.titlepic,U.UserGroupID,U.LastLogin,B.PostBuyUser,U.UserHidden,U.IsChallenge,B.Ubblist,B.LockTopic" 改为： SQL="B.AnnounceID,B.BoardID,B.UserName,B.Topic,B.dateandtime,B.body,B.Expression,B.ip,B.RootID,B.signflag,B.isbest,B.PostUserid,B.layer,b.isagree,U.useremail,U.UserIM,U.UserMobile,U.Usersign,U.userclass,U.Usertitle,U.Userwidth,U.Userheight,U.UserPost,U.Userface,U.JoinDate,U.userWealth,U.userEP,U.userCP,U.Userbirthday,U.Usersex,u.UserGroup,u.LockUser,u.userPower,U.titlepic,U.UserGroupID,U.LastLogin,B.PostBuyUser,U.UserHidden,U.IsChallenge,B.Ubblist,B.LockTopic,B.Score,B.ScoreUser,U.UserScore" 2、找到： .Write SQL(40,i) 下边添加： .Write "','" .Write isCanScore(SQL(42,i),UserName) .Write "','" .Write SQL(41,i) .Write "','" .Write SQL(42,i) .Write "','" .Write SQL(43,i) 3、找到： AnnounceID=Request("ID") 下边添加： If AnnounceID<>"" Then AnnounceID=Split(AnnounceID,"#")(0) 4、找到： ReplyID=Request("ReplyID") 下边添加： If ReplyID<>"" Then ReplyID=Split(ReplyID,"#")(0) 5、找到： Star=Request("Star") 下边添加： If Star<>"" Then Star=Split(Star,"#")(0) 6、找到： Skin=Request("Skin") 下边添加： If Skin<>"" Then Skin=Split(Skin,"#")(0) 七、修改inc/const.asp： 1、在文件最后，%>之前添加： Function isCanScore(ScoreUser,PostUser) Dim ScoreUserGroupID,Rs If CInt(Dvbbs.Board_Setting(63))=0 Then isCanScore=-1 ElseIf Dvbbs.UserID=0 Then isCanScore=1 ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(69))=0 Then isCanScore=2 ElseIf not ((Dvbbs.Master or Dvbbs.Superboardmaster or Instr(1,"|"&Dvbbs.BoardMasterList&"|","|"&Dvbbs.MemberName&"|")>0) And Cint(Dvbbs.GroupSetting(69))=1) And Not (Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(69))=1) Then isCanScore=2 ElseIf LCase(trim(Dvbbs.MemberName))=LCase(trim(PostUser)) Then isCanScore=3 ElseIf IsNull(ScoreUser) or not (ScoreUser<>"") Then isCanScore=0 ElseIf LCase(trim(ScoreUser))=LCase(trim(Dvbbs.MemberName)) Then isCanScore=0 Else isCanScore=0 Set Rs=Dvbbs.Execute("Select usergroupid from [Dv_User] where username='"&ScoreUser&"'") If Rs.Eof Then ScoreUserGroupID=4 Else ScoreUserGroupID=Rs(0) End If Rs.Cl