setuser.php

bmb的论坛

<?
/*
 BMForum Plus! Bulletin Board Systems
 Version : Plus!
 
 This is a freeware, but don't change the copyright information.
 A SourceForge Project - GNU Licence project.
 Web Site: http://www.bmforum.com
 Copyright (C) Bluview Technology
*/

$thisprog="setuser.php";
require("adminglobal.php");
include("datafile/config.php");
if($useraccess!="1" || $admgroupdata[9]!="1") {
adminlogin();
}
@set_time_limit(300);
print <<<EOT
	<tr><td bgcolor=#0041BD colspan=2><font color=#D6DFF7>
	<b>$arr_ad_lng[320] $arr_ad_lng[197]</b>
	</td></tr>
EOT;
if (empty($action)) setuser_index();
elseif ($action=="updatecount") update_list();
elseif ($action=="view") view_user();
elseif ($action=="edit") edit_user();
elseif ($action=="kill") kill_user();
elseif ($action=="register") register_user();
exit;

function view_user() {
global $member,$arr_ad_lng,$tab_top,$usergroupdata,$tab_bottom,$smodaccess,$useraccess,$id_unique,$thisprog;
	echo "<tr>
		<td bgcolor=#F9FAFE align=center colspan=2>
		<b>$arr_ad_lng[700]</b><br>";
	if (empty($member) || $member=="." || $member==".." || !file_exists("$id_unique/".urlencode($member).".php")) { print ("<br>$tab_top<b>$arr_ad_lng[701]</b>$tab_bottom</td></tr></table></body>$tab_bottom"); exit; }
	list($name,$userpwd,$usericon,$useremail,
	   $usericq,$regdate,$sign,$homepage,$area,
	   $introduction,$honor,$last_post,$postamount,$eamil,$pe,$bym,$passask,$passanswer,$usertype,$money,$born,$group,$sex,$national,$lastlogin,$tlastvisit,$deltopic,$delreply,$uploadfiletoday,$lastupload,$foreuser,$hisipa,$hisipb,$hisipc)
	  = explode("|",readfromfile("$id_unique/".urlencode($member).".php"));
	list($regdate,$regip)=explode("_",$regdate);
	  $regdate=getfulldate($regdate);
$bym=floor($bym/10);

	$urlmember=urlencode($member);
$userac=explode("|",$usergroupdata[$usertype]);

    if (($smodaccess=="1" && $useraccess!="1") && ($userac[21]=="1" || $userac[22]=="1" || $userac[24]=="1")) { echo "<br>$tab_top<b>$arr_ad_lng[702]</b>$tab_bottom</td></tr></table></body>$tab_bottom";
    exit;
    }
        print <<<EOT
    <tr>
    <td bgcolor=#F9FAFE colspan=2 align=center><font face=verdana><b>"$member"</b> $arr_ad_lng[703] 銆