ad_admin.pl

这个社区是虚拟社区使用的程序

##########  超级管理  ##########
sub admin {
    $check=0;
if ($newname eq "") { &error("ERROR: WHAT ARE YOU DOING?","你没有选择操作对象","0"); }
if (($username eq "") || ($pass eq ""))  { &error("ERROR: YOU'AR HACKER ?","你想当黑客? 到别处练吧?","1"); } #没有注册  
   $check++;
# if ($userlevel <=8) {  &error("ERROR: WHAT ARE YOU DOING?","你的级别好像不够耶!","0");} #级别不够
open(paSS,"$homedir/userdb/$tmpnewname") || &error("无法打开文件userdb/$tmpnewname");
    @pass = <paSS>;
close(paSS);
   ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);
   $check = 1;
   if ($command eq "chkuser"){ #查看用户资料
     print "<hr align=\"center\" width=\"50%\" color=red>\n";
     print "<span class=text2><center><B>这是<span class=head>$newname</span>的注册资料:</B></center></span>\n";
     print "<hr align=\"center\" width=\"50%\">\n";
     print "<div align=\"center\"><center><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tr><td width=\"100%\">\n";
     print "<span class=text>目前等级：<span class=text2>$chkuserlevel</span><BR>\n";
     print "注册密码：<span class=text2>*********</span><BR>\n";
     if ($chkuseremail ne ""){print "邮箱地址: <span class=text2>$chkuseremail</span><br>\n";}
     if ($chkurl ne "") {print "个人网址: <span class=text2>$chkurl</span><br>\n";}
     if ($chkgeyan ne "") {print "你的格言: <span class=text2>$chkgeyan</span><br>\n";}
     if ($chkpotourl ne "") {print "照片网址: <span class=text2>$chkpotourl</span><br>\n";}
     print "注册用IP: <span class=text2>$chkuserip </span><BR>\n";
     print "修改用IP: <span class=text2>$chkmdfip </span><BR>\n";
     print "注册时间: <span class=text2>$chklasttime</span><BR>\n";
     print "修改时间: <span class=text2>$chktime</span><BR>\n";
     print "经验总值: <span class=text2>$chkjingyan</span><BR>\n";
     print "<P><hr align=\"center\" width=\"100%\">\n";
     print "</span></td></tr></table></center></div><p align=\"center\">\n";
     print "<span class=text><center><A HREF=\"javascript:history.go(-1)\" onMouseOver=\"window.status='按此，返回前一页面!'; return true\" onMouseOut=\"window.status=''; return true\">返回管理页面</a></p>\n";
  } elsif ($command eq "deluser") { #删除用户资料
     unlink ("$homedir/userdb/$tmpnewname");
     print "<hr align=\"center\" width=\"50%\" color=red>\n";
     print "<center><span class=text2><center>操作已完成,你可以返回继续操作,但要记得刷新一下哟!<p>\n";  
     print "<center><A HREF=\"javascript:history.go(-1)\" onMouseOver=\"window.status='按此，返回前一页面!'; return true\" onMouseOut=\"window.status=''; return true\">返回管理页面</a></span></center>\n";
   } elsif ($command eq "mdfuser"){ #修改用户资料
     open(paSS,"$homedir/userdb/$tmpnewname") || &error("无法打开文件userdb/$tmpnewname");
        @pass = <paSS>;
     close(paSS);
        ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);
print qq~
        <hr align="center" width="40%" color=red><center>
        这可是无条件的修改,最好取得用户的同意<br>
        <A HREF=\"javascript:history.go(-1)\" onMouseOver=\"window.status='按此，返回管理页面!'; return true\" onMouseOut=\"window.status=''; return true\">返回管理页面</a>
        <form method="POST" action="$fullurl?mdf$userinfo"><div align="center">
        姓名不能超过10字节,密码不能超过20字节<br>超过部分将不接受,但不少于3字节
        <hr align="center" width="50%">
        <input type="hidden" name="username"  value="$newname">
        <center>聊天姓名:<input type=text name="newname" size=30 minlength="3" maxlength="10" value="$newname"><BR>
        聊天密码:<input type=text name="newpass" size=30 minlength="3" maxlength="20" value="由用户自定"><br>
        邮件地址:<input type=text name="email" size=30 value="$chkuseremail" ><br>
        个人网址:<input type=text name="url" size=30  value="$chkurl"><br>
        信奉格言:<input type=text name="geyan" size=30  value="$chkgeyan" maxlength="40"><br>
        照片网址:<input type=text name="potourl" size=30  value="$chkpotourl"><br>
        经验总值:<input type=text name="mdfjy" value="$chkjingyan" size=30><br>
        目前等级:<input type=text name="mdfdj" value="$chkuserlevel" size=30>
        <table border = "0"><tr><td><span class=text3>
        注册用IP:&nbsp;&nbsp;$chkuserip<br>
        修改用IP:&nbsp;&nbsp;$chkmdfip<br>
        注册时间:&nbsp;&nbsp;$chklasttime<br>
        修改时间:&nbsp;&nbsp;$chktime<br>
        </span></td></tr></table></center></div>
        <div align="center"><center><input type=submit value="确定"style="font-size: 9pt; font-family: 宋体">
        &nbsp;&nbsp;<input type=reset value="清除" style="font-size: 9pt; font-family: 宋体">
       </center></div><div align="center"></form></span>
~;
 }else { &error("ERROR: NO commands","你没有下达操作指令呀?!","0");} #没有操作指令
}