您当前的位置:首页 > 帝国CMS教程

帝国CMS系统积分问题

来源:帝国CMS教程发布者:帝国CMS模板网时间:2010-10-03

1. 会员邀请注册送积分?

2. 管理会员组,当会员积分达到一定数量时,自动升级会员等级?

3. 会员可以通过积分兑换 发表文章时自定义文字标题的颜色,关于看到有些人提出积分兑换置顶帖,我想就没有必要了,要是N多会员都在同一终极栏目下要换置顶帖,就不好办了。

4. 留言(评论)加积分,附:每天留言积分上限 限制?

5. 每天投稿积分上限 限制?



整合一些以解决问题:

    一.  登陆送积分:

               修改步骤:

1、进入管理会员字段增加如下字段:

      字段名:LastTime 字段标识:最后登陆时间 字段类型:大数值型(INT)

2、打开,e/class/user.php 找到大约1019行 if($set1&&$set2) 这个地方,在 $location=DoingReturnUrl($location,$_POST['ecmsfrom']); 前面增加如下代码

PHP Code
//会员登陆赠送点数  
        $LastTime=time();  
        $useridz=(int)$r[$user_userid];  
        $fenus=2;  //赠送积分
        $LastT=$empire->fetch1("select LastTime from {$dbtbpre}enewsmemberadd where `userid`={$useridz}");  
        (int)$newstime=$LastT['LastTime'];//时间  
        (int)$times=mktime(0,0,0,date('m',$LastTime),date('d',$LastTime),date('Y',$LastTime));//当前时间  
        if($newstime==0){$empire->query("update {$dbtbpre}enewsmember set `userfen`=userfen+{$fenus} where `userid`={$useridz}");}else{  
             if($times<$newstime && $newstime<$times+86400){  
                 //今天  
             }else{  
                $empire->query("update {$dbtbpre}enewsmember set `userfen`=userfen+{$fenus} where `userid`={$useridz}");  
             }  
        }  
        $empire->query("update {$dbtbpre}enewsmemberadd set `LastTime`={$LastTime} where `userid`={$useridz}");  
        //结束  



      二.  会员通过推荐点击链接获得点数:

       》链接地址为:“http://网站地址/e/tool/gfen?id=会员帐号ID”或“http://网站地址/e/tool/gfen?n=会员用户名”

       》信息基本参数配置:修改“e/tool/gfen/index.php”文件的参数设置
      //------------------参数配置
      $open=1; //1为关闭,0为开启
      $type=0; //0为按ip(同一ip不重复增加点数),1为按cookie(同一机器不重复增加点数)
      $retime=3600; //重复增加点数时间间隔,单位为秒
      $fen=1; //单一点击点数
      $gotourl="../../../"; //转向地址

     三.  按会员积分,等级,字段调用会员:

     按会员积分排列调用:
     [ecmsinfo]'select phome_enewsmemberadd.userid as userid,phome_enewsmemberadd.company as title,phome_enewsmemberadd.userpic as                          titlepic,phome_enewsmemberadd.call as ftitle,phome_enewsmemberadd.saytext as smalltext From phome_enewsmember,phome_enewsmemberadd Where phome_enewsmember.userid =phome_enewsmemberadd.userid and zsxs=1 order by phome_enewsmember.userfen desc',5,16,0,24,14,1[/ecmsinfo]

     按会员等级调用:
     [ecmsinfo]'select phome_enewsmemberadd.userid as userid,phome_enewsmemberadd.company as title from phome_enewsmemberadd,phome_enewsmember Where phome_enewsmember.userid =phome_enewsmemberadd.userid and phome_enewsmember.groupid=4',60,30,0,24,15,0[/ecmsinfo]

     按会员类别调用:
     [ecmsinfo]'select userid as userid, company as title,userpic as titlepic,call as ftitle,saytext as smalltext from phome_enewsmemberadd where keshi=1',1,18,0,24,16,1[/ecmsinfo]