给phpwind添加推荐人

时间:2008-08-16 17:14:42  类别:phpwind  作者:qlwz@qq.com(情留メ蚊子)

最近帮空间提供商做一个论坛,源码是使用phpwind,因为需要用到推荐注册,所以特意写了一下。支持phpwind 6.32 其实理论上可以支持任何版本的。
作用:推荐人可以得多金钱(任何东西都可以)奖励。
首先,打开:register.php
查找:

复制内容到剪贴板
程序代码
totalmember+1 Where id='1'");

换行插入:
复制内容到剪贴板
程序代码
  $query = $db->query("Select * FROM pw_members Where
username='$tuijian'");
$namebbs =@$db->fetch_array($query);
if($tuijian &&$regname ==$tuijian || !strcasecmp ($regname, $tuijian) || !$namebbs) { Showmsg('推荐人不能填写自己的名称,或你填写的用户不存在!');}
elseif(strlen($tuijian)>0){
$tuijian_rs = $db->get_one("Select uid FROM pw_members Where username='$tuijian'");
if ($tuijian_rs[uid]){
$db->update("Update pw_memberdata SET money=money+100 Where uid='$tuijian_rs[uid]'");
}
}

打开:register.htm 在皮肤目录下
在适当的地方插入:
复制内容到剪贴板
程序代码
<tr class='tr3 f_two'><th> 推荐人</th>
<th><input type="text" name="tuijian" value="$tuijian" size="20" class="input"><br><font color="red">推荐注册有奖,长期有效!</font></th></tr>

到这里就可以注册时实现推荐人+100金钱
邮箱激活版:开启了邮箱激活使用的。即要激活了才能加金钱
pw_members表新建字段tuijian 如何新建?我也不会...
打开:register.php
查找:
复制内容到剪贴板
程序代码
yz,signchange

在后面添加
复制内容到剪贴板
程序代码
,tuijian

查找:
复制内容到剪贴板
程序代码
'$rg_yz','$rg_ifconvert'

在后面添加
复制内容到剪贴板
程序代码
,'$tuijian'
以上是将推荐人写入数据库
然后把上面红色字的去掉。
查找:if (GetGP('vip')=='activating') { 在一开始的
把if (GetGP('vip')=='activating') {
......到.........
if ($db_pptifopen &&$db_ppttype=='client') {
的替换成
复制内容到剪贴板
程序代码
if (GetGP('vip')=='activating') {
    InitGP(array('r_uid','pwd'),'G');
    $r_uid = (int)$r_uid;
    $u_db = $db->get_one("Select tuijian,yz FROM pw_members Where uid='$r_uid'");
    if ($u_db) {
        if ($pwd==$u_db['yz']) {//利用时间戳验证
            $db->update("Update pw_members SET yz=1 Where uid='$r_uid'");
            //给推荐人加分
            $tuijian=$u_db['tuijian'];
            $tuijian_rs = $db->get_one("Select uid FROM pw_members Where username='$tuijian'");
            if ($tuijian_rs['uid']){
                $tuijian=$tuijian_rs['uid'];
                $db->update("Update pw_memberdata SET money=money+100 Where uid='$tuijian'");
            }
            //加分结束
            Showmsg('reg_jihuo_success');
        } else {
            Showmsg('reg_jihuo_fail');
        }
    } else {
        Showmsg('reg_jihuo_fail');
    }
}
if ($db_pptifopen &&$db_ppttype=='client') {

完成


特别推荐

广而告之