会员收费改名程序 For Discuz!

支持

为什么点了是白版啊，楼主，这是什么原因啊，尽快解决啊？？

希望解决　　

这么多白版的，也加精华了，不是让人难理解么

支持！顶！

白板的

把代码

1.         $change_credit = 200;                                // 改名要花的积分
   
2.         $change_creditid = 'extcredits2';                // 扣除的积分所在的序列
   
3.         $change_annuct = 1;                                // 是否发布改名通知
   
4.         
   
5.         if(!submitcheck('changesubmit', 1)) {
   
6.                 $credit_num = $db->fetch_array($db->query("SELECT {$change_creditid} FROM {$tablepre}members WHERE uid='{$discuz_uid}'"));
   
7.                 if($credit_num[$change_creditid] < $change_credit) {
   
8.                         showmessage('您的积分不足够支付改名所需的费用。');
   
9.                 } else {
   
10.                         include template('memcp_changename');
    
11.                 }
    
12.         } else {
    
13.                 $guestexp = '\xA1\xA1|\xAC\xA3|^Guest|^\xD3\xCE\xBF\xCD|\xB9\x43\xAB\xC8';
    
14.                 $censorexp = '/^('.str_replace(array('\\*', "\r\n", ' '), array('.*', '|', ''), preg_quote(($censoruser = trim($censoruser)), '/')).')$/i';
    
15.                 if(preg_match("/^\s*$|^c:\\con\\con$|[%,\*"\s\t\<\>\&]|$guestexp/is", $username) || ($censoruser && @preg_match($censorexp, $username))) {
    
16.                         showmessage('您输入的用户名无效，请返回重新输入。');
    
17.                 }
    
18.                 if($username == $discuz_user) showmessage('您到底是要改名还是玩哪？');
    
19.                 if(trim($because) == '') showmessage('请没有输入更名原因，请返回修改。');
    
20.                 $chk = $db->fetch_array($db->query("SELECT uid FROM {$tablepre}members WHERE username='". addslashes($username) . "'"));
    
21.                 if($chk) showmessage('您输别人的用户名干啥？赶快返回换个别的。');
    
22.                 $db->query("UPDATE {$tablepre}members SET username='" . addslashes($username) . "', {$change_creditid}={$change_creditid}-{$change_credit} WHERE uid='$discuz_uid'");
    
23.                 if($change_annuct) {
    
24.                         $db->query("INSERT INTO {$tablepre}announcements VALUES(0, '$discuz_user', '会员「{$discuz_user}」改名通知', '0', '$timestamp', '0', '" . date('Y年m月d日 H:i') . " - 会员: [color=blue]{$discuz_user}[/color] 更名为: [color=red]{$username}[/color]" . "\n\n" . "更名原因: [color=purple]" . addslashes($because) . "[/color]" . "\n\n" . "会员 [color=red]{$username}[/color] - 改名手续费: [color=blue]积分 {$change_credit} 点[/color] 。如有问题，请PM管理员。')");
    
25.                 }
    
26.                 showmessage('恭喜您，改名成功！', 'index.php');
    
27.         }

复制代码

加在最后一个
}
的下面，就好了

[ 本帖最后由 janbobo 于 2005-12-26 15:31 编辑 ]

还是白白白茫茫的一片啊

原帖由 whitegerry 于 2005-12-26 11:40 发表
这么多白版的，也加精华了，不是让人难理解么

不错啊.顶

严重的问题呀．改了帖子中还有斑竹显示中还是以前那个名字呀