会员收费改名程序 For Discuz!

tk_ring · 发表于 2006-1-11 09:42:54

、新建一个模版，名称是:memcp_changename.htm

将此模版放在templates/default目录里，他的代码如下:

{template header}
{template memcp_navbar}
<form name="reg" method="post" action="memcp.php?action=changename">
<table cellspacing="{INNERBORDERWIDTH}" cellpadding="{TABLESPACE}" width="{TABLEWIDTH}" align="center" class="tableborder">
      <tr>
      <td colspan="2" class="header">改名</td>
      </tr>
      <tr>
      <td class="altbg1" width="20%">您的用户名:</td>
      <td class="altbg2">$discuz_user [<a href="logging.php?action=logout">退出登录</a>]</td>
      </tr>
      <tr>
      <td class="altbg1">改名手续费:</td>
      <td class="altbg2">$change_credit 点积分 (您共有 {$credit_num[$change_creditid]} 点积分)</td>
      </tr>
      <tr>
      <td class="altbg1">新的用户名:</td>
      <td class="altbg2"><input type="text" name="username" size="20" maxlength="15"> 请输入您需要的用户名(用户名不能含有非法字符，或与别人的重复)</td>
      </tr>
      <tr>
      <td class="altbg1">改名原因:</td>
      <td class="altbg2"><input type="text" name="because" size="50" maxlength="100"> 请输入您更名的理由</td>
      </tr>
</table><br>

<center><input type="submit" name="changesubmit" value="{lang submit}"></center>
</form>
{template footer}
我没放也一样可以,而且还使本来的两个页面变成了一个页面,不再有重复页面出现

[ 本帖最后由 tk_ring 于 2006-1-11 09:44 编辑 ]

yvips809 · 发表于 2006-1-17 21:55:12

他的第二步应该是：
在memcp.php最后的“}”的上面加如下代码

} elseif($action == 'changename') {
$change_credit = 500; // 改名要花的积分
$change_creditid = 'extcredits7'; // 扣除的积分所在的序列
$change_annuct = 1; // 是否发布改名通知
if(!submitcheck('changesubmit', 1)) {
$credit_num = $db->fetch_array($db->query("SELECT {$change_creditid} FROM {$tablepre}members WHERE uid='{$discuz_uid}'"));
if($credit_num[$change_creditid] < $change_credit) {
showmessage('您的积分不足够支付改名所需的费用。');
} else {
include template('memcp_changename');
}
} else {
$guestexp = '\xA1\xA1|\xAC\xA3|^Guest|^\xD3\xCE\xBF\xCD|\xB9\x43\xAB\xC8';
$censorexp = '/^('.str_replace(array('\\*', "\r\n", ' '), array('.*', '|', ''), preg_quote(($censoruser = trim($censoruser)), '/')).')$/i';
if(preg_match("/^\s*$|^c:\\con\\con$|[%,\*"\s\t\<\>\&]|$guestexp/is", $username) || ($censoruser && @preg_match($censorexp, $username))) {
showmessage('您输入的用户名无效，请返回重新输入。');
}
if($username == $discuz_user) showmessage('您到底是要改名还是玩哪？');
if(trim($because) == '') showmessage('请没有输入更名原因，请返回修改。');
$chk = $db->fetch_array($db->query("SELECT uid FROM {$tablepre}members WHERE username='". addslashes($username) . "'"));
if($chk) showmessage('您输别人的用户名干啥？赶快返回换个别的。');
$db->query("UPDATE {$tablepre}members SET username='" . addslashes($username) . "', {$change_creditid}={$change_creditid}-{$change_credit} WHERE uid='$discuz_uid'");
if($change_annuct) {
$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管理员。')");
}
showmessage('恭喜您，改名成功！', 'index.php');
}

复制代码

[ 本帖最后由 yvips809 于 2006-1-17 23:52 编辑 ]

edwinaustin · 发表于 2006-1-17 22:33:07

那么多人白板啊，我白忙额

折翼の天使♂ · 发表于 2006-1-18 01:41:15

还没更新吗``
就这样放在这里``？？

Tony89 · 发表于 2006-1-18 07:49:38

不错的东东```
收了``~~~

ThoThomas · 发表于 2006-1-18 12:35:02

好康的東西就是要支持！！！謝謝您！

anyou · 发表于 2006-1-18 17:12:01

没人能把它强化一下吗?加入众多人想要的审核功能就好了~

onlyxer · 发表于 2006-1-18 18:33:31

还是白板啊!,没人改进吗？

北方飘雪 · 发表于 2006-1-20 21:19:09

不行啊,我的老是提示我的积分不够,,在哪里修改,,,换用户名的积分设置啊```````

onlyxer · 发表于 2006-1-21 07:49:57

$change_credit = 500; 这里修改积分
$change_creditid = 'extcredits7'; 扣除的积分
但是修改后显示白板!!

		自动登录	找回密码
密码			立即注册

[插件] 会员收费改名程序 For Discuz!

大家看啊,这个放不放进论坛都没所谓啊