ad_admin_html.pl

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

###############  管理员页面 ##################
sub admin_html {
print qq~
<hr align="center" width="40%" color=red><center>管理员可以在此修改所有注册者的资料<br>【目前共有<span class=head>$user_total</span>位注册用户】
<div align="center">千万要记住不要胡乱修改哟! 不然的话管理员的资格就难保罗!<hr align="center" width="50%">
<form method="POST" action="$fullurl?admin$userinfo">
查找对象:<input type=text name=\"chkname\" value=\"\"  size=20>
<input type="submit" value=\"查找\" style=\"font-size: 9pt; font-family: 宋体;color: ffffdd; background-color:ff0000\">
<input type="hidden" value=\"查找\" name=\"chk\">
</form><form method="POST" action="$fullurl?admin$userinfo">
<select name=\"newname\" >
~;
if($chkname eq ""){
print "<option value=\"\">在上面输入查找条件或\"ALL\"查看全部\n";
}elsif ($chkname eq "all") {
  foreach (@dir) {
if (!(-d "$homedir/userdb/$_")) {
   print "<option value=\"$_\" ";
   print ">选择操作对象:$_\n";
       }
   }   
}else{
   $ppp=0;
   foreach (@dir) {
if (!(-d "$homedir/userdb/$_")) {
   open(paSS,"$homedir/userdb/$_") || &error("无法打开文件\"userdb/$_\"");
       @pass = <paSS>;
   close(paSS);
   ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);
   if (($_=~m/$chkname/i) || ($chkuserlevel eq $chkname) || ($chkuseremail eq $chkname) || ($chkuserip eq $chkname)){
   print "<option value=\"$_\" ";
   print ">选择操作对象:$_\n";
     }else{$ppp++;}
            }else{$ppp++;}
      }
}
if ($ppp == $user_total){
print "<option value=\"\">没有符合条件的对象,请重新搜索\n";
    }  
print qq~
        </select><p><input type="radio" name="command" value="chkuser" checked> 查看
                    <input type="radio" name="command" value="deluser" > 删除
                    <input type="radio" name="command" value="mdfuser" > 修改
<p></div><div align="center"><center><input type=submit value="确定"style="font-size: 9pt; font-family: 宋体;color: ffffdd; background-color:ff0000">
&nbsp;&nbsp;<input type=reset value="清除" style="font-size: 9pt; font-family: 宋体;color: ffffdd; background-color:ff0000">
</div><div align="center"></form></span>
~;
}