⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cjyh.cgi

📁 BBS3000 sourceCode
💻 CGI
📖 第 1 页 / 共 2 页
字号:
🔍
12 
#!/usr/bin/perl
#------------------------------------------------------#
#                 本程序为Yuzi工作室提供	       #
#                Yuzi论坛3000 v3.20 免费版             #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
$cgiurl  ="cjyh.cgi";
$list="$filepath/data/list.cgi";
$perpage  = 20;
##########
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour));
$mon=$mon+1;
if($mon <10){$mon="0".$mon;}
if($mday<10){$mday="0".$mday;}
if($hour<10){$hour="0".$hour;}
if($min<10){$min="0".$min;}
if($sec<10){$sec="0".$sec;}
$year=$year+1900;
$ftime=$year.$mon.$mday.$hour.$min.$sec;
$thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec;
 if ($ENV{'REQUEST_METHOD'} eq "POST") {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
  $buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;
   $value =~ s/\t//g;
   $FORM{$name} = $value;
}
$userpsd = $FORM{'userpsd'};
$adm     = $FORM{'adm'};
$psd     = $FORM{'psd'};
$otitle  = $FORM{'otitle'};
$username= $FORM{'username'};
$menu= $FORM{'menu'};
$title   = $FORM{'title'};
$titleimg= $FORM{'titleimg'};
$selname = $FORM{'selname'};
$mail    = $FORM{'mail'};
$comment = $FORM{'comment'};
$yyin = $FORM{'yyin'};
$type    = $FORM{'type'};
$delmon  = $FORM{'delmon'};
$ltname  = $FORM{'ltname'};
$page  = $FORM{'page'};
$tjbbs  = $FORM{'tjbbs'};
$bbsname1  = $FORM{'bbsname1'};
if(($delmon < 1)||($delmon eq "")){$delmon =6;}
if(($admname ne $adm)||($delpsd ne $psd)){
&send_html;
print <<EOF;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<title>超级用户管理</title>
<script language="JavaScript">
function chksend(){
var send=false;
if(document.reg.adm.value){
if(document.reg.psd.value){
send=true;
}
}
if (send==false){
alert('站长管理用，请勿进入，谢谢！');
}
return send;
}
</script>
</head>
<body background=$imagurl/bg.jpg>

<br>
<h2 align="center">社区管理</h2>
<div align="center"><center>
<form name="reg" action="$cgiurl" onsubmit="return chksend();">
  <table border="1" width="400">
    <tr>
      <td width="40%" align=center>社区区长名字：</td>
      <td width="60%"><input name="adm" type="text" size="30" maxlength="10"></td>
    </tr>
   <tr>
      <td width="40%" align=center>社区区长密码：</td>
      <td width="60%"><input name="psd" type="password" size="30" maxlength="12"></td>
    </tr>
    <tr>
      <td><div align="center"><center><p><input type="reset" value="重   填" name="B2"></td>
      <td align="center"><div align="center"><center><p><input type="submit" value="提   交"
      name="B1"></td>
    </tr>
  </table>
</form>
</a></center></div>
</body>
</html>
EOF
exit;
}
elsif($menu eq "kills"){&kills;exit;}
elsif($menu eq "listusers"){&listusers;exit;}
elsif($menu eq "chgusers"){&chgusers;exit;}
elsif($menu eq "bf"){&bf;exit;}
elsif($menu eq "hf"){&hf;exit;}
elsif($menu eq "bf1"){&bf1;exit;}
elsif($menu eq "hf1"){&hf1;exit;}
elsif($menu eq "ckyh"){&ckyh;exit;}
elsif($menu eq "ckbz"){&ckbz;exit;}
elsif($menu eq "bbslb"){&bbslb;exit;}
elsif($menu eq "delbbs"){&delbbs;exit;}
elsif($menu eq "jjzz"){&jjzz;exit;}
elsif($menu eq "qlid"){&qlid;exit;}
elsif($menu eq "ssff"){&ssff;exit;}
else{
&send_html;
print <<EOF;
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<title>论坛管理</title>
</head>
<br>
<center><h2>社区管理</h2></center>
<center>
<br><br><a href="$cgiurl?menu=listusers&adm=$adm&psd=$psd">注册用户管理</a>
<br><br><a href="$cgiurl?menu=bbslb&adm=$adm&psd=$psd">注册论坛管理</a>
<br><br><a href="list.cgi">返回社区首页</a>
</center>
</body>
</html>
EOF
exit;
}
##########
sub send_html {
  if ($has_send ne "1") {
    print "Content-type: text/html\n\n";
    $has_send = "1";
  }
}
#########
sub listusers{

&send_html;

print <<EOF;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<title>注册用户管理</title>
</head>
<body background="$imagurl/bg.jpg" style="line-height:160%">
<h2 align="center">注册用户管理</h2>
<div align=center><center>
<a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</a><br>

<form action=$cgiurl METHOD="POST">
请键入用户的名称：<input type=text name="username" size=12>
<input type=hidden name="type" value="one">
 <input type="hidden" name="adm" value="$adm">
<input type="hidden" name="psd" value="$psd">
<input type=hidden name="menu" value="ckyh">
<input type=submit value="确定">
</form>
</center></div>
</body>
</html>
EOF
exit;
}
##########
sub chgusers{
unlink("$filepath/yhzl/$selname.cgi");
&send_html;
     print <<EOF;
<html><head>
</head>
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<center>
<br><br>
<h2>已 经 成 功 删 除 ！</h2><br><br>
<p align=center><a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</p></a>
</body></html>
EOF
exit;
}
##########
sub kills{
open (GUEST,"$filepath/data/list.cgi") ;
@lines=<GUEST>;
close(GUEST);
open (GUEST,">$filepath/data/list.cgi") ;
foreach $usersays (@lines) {
$usersays=~ s/\n//g;
if($usersays  ne ""){
($index)=split(/\t/,$usersays);
if($selname ne $index){
print GUEST "$usersays\n";
}
}
}
close(GUEST);
open (GUEST2,"$filepath/list/$selname/bbs") ;
@lines2=<GUEST2>;
close(GUEST2);
open (GUEST2,">$filepath/list/$selname/bbs") ;
foreach $usersays2 (@lines2) {
$usersays2=~ s/\n//g;
($rd_time2)=split(/\t/,$usersays2);
if($usersays2  ne ""){
unlink("$filepath/list/$selname/$rd_time2");
unlink("$filepath/list/$selname/$rd_time2"."b");
}
}
close(GUEST);
unlink("$filepath/list/$selname.cgi");
&send_html;
     print <<EOF;
<html><head>
</head>
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<center>
<br><br>
<h2>已 经 成 功 删 除 ！</h2><br><br>
<p align=center><a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</p></a>
</body></html>
EOF
exit;
}
##########
sub jjzz{
if ( -X "$filepath/yhzl/$selname.cgi"){&errorview("$selname 已经被抓进监狱了！");exit;}
open(TITLES,"$filepath/data/prison");
@hastitles=<TITLES>;
close(TITLES);
$size=@hastitles;
open(TITLES,">$filepath/data/prison");
print TITLES $selname."\t".$thistime."\t".$yyin."\t1\n";
for($i=0;$i<=23;$i++){
$m=@hastitles[$i];
print TITLES "$m";
}
close(TITLES);
chmod(0777,"$filepath/yhzl/$selname.cgi");
&send_html;
     print <<EOF;
<html><head>
</head>
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<center>
<br><br>
<h2>您已经成功地将 $selname 抓进监狱了！</h2><br><br>
<p align=center><a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</p></a>
</body></html>
EOF
exit;
}
sub ssff{
open(TITLES,"$filepath/data/prison");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/data/prison");
foreach $m (@hastitles){
$m=~ s/\n//g;
if($m ne ""){
($rthistime)=split(/\t/,$m);
if($rthistime ne $selname){
print TITLES $m."\n";
}}}
close(TITLES);
chmod(0666,"$filepath/yhzl/$selname.cgi");
&send_html;
     print <<EOF;
<html><head>
</head>
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<center>
<br><br>
<h2>您已经成功地将 $selname 从监狱里释放出来了！</h2><br><br>
<p align=center><a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</p></a>
</body></html>
EOF
exit;
}
##########
sub ckyh{
if ( -e "$filepath/yhzl/$username.cgi"){
open(PSD,"$filepath/yhzl/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao)=split(/\t/,$line);
if($username eq $rdname){
$username1=$rdname;
$mail1=$rdmail;
$home1=$rdhome;
$lasttime1=$rdlasttime;
$qm1=$rdqm;
$sex1=$rdsex;
$work1=$rdwork;
$city1=$rdcity;
$love1=$rdlove;
$fy1=$rdfy+0;
$hf1=$rdhf+0;
$tol=$fy1+$hf1;
if($sex1 eq ""){$sex1="(不告诉您)"};
if($city1 eq ""){$city1="(不告诉您)"};
if($love1 eq ""){$love1="(不告诉您)"};
if($work1 eq ""){$work1="(不告诉您)"};
if(($home1 eq "http://")||($home1 eq "")){$home1="(不告诉您)"};
if($mail1 eq ""){$mail1="(不告诉您)"};
if($jiao eq ""){$jiao="这家伙很懒,什么都没有留下。"};
if($tol <  11){$deji="新手上路";}
elsif ($tol >  10 && $tol <  31){$deji="一般站友";}
elsif ($tol >  30 && $tol <  101){$deji="中级站友";}
elsif ($tol >  100 && $tol <  201){$deji="高级站友";}
elsif ($tol >  200 && $tol <  501){$deji="老 站 友";}
elsif ($tol >  500 && $tol <  1001){$deji="长 老 级";}
elsif ($tol >  1000 && $tol <  2001){$deji="本站元老";}
elsif ($tol >  2000){$deji="开国大老";}$fy1=$rdfy+0;
$hf1=$rdhf+0;
$tol=$fy1+$hf1;
}
}
&send_html;
print <<EOF;
<HEAD>
<TITLE>查 看 $username 的 资 料 ！</TITLE>
</HEAD>
<style type=text/css>TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<body background=$imagurl/bg.jpg>
<SCRIPT language=JavaScript1.2>
function del_reset(){
	if (confirm("你确定要删除该用户的资料吗?")){
		return true;
	}
	return false;
}
function jjzz_reset(){
	if (confirm("你确定要将此用户抓进监狱吗?")){
		return true;
	}
	return false;
}
</SCRIPT>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -