📄 scjyh.cgi

📁 1。超强文件读写锁定
💻 CGI
📖 第 1 页 / 共 2 页
字号:
12 下一页
#!/usr/bin/perl
$dirname=&mypath;
##################################################################
## 本版使用于WINDOWS和Unix/Linux等操作系统版                    ## 
##################################################################
require "$dirname/setup2002.pl";
require "$dirname/svote.lib";
&read_form;
&GetCookies;
$count=$FORM{'count'};
if ($FORM{'step'}){ &step;}
elsif ($FORM{'info'}){ &info;}
elsif ($FORM{'delid'}){ &delid;}
elsif ($action eq "userid"){ &userid;}
elsif ($action eq "info"){ &show_info;}
elsif ($action eq "newpass"){ &newpass;}
elsif ($action eq "newstep"){ &newstep;}
elsif ($action eq "Lock"){ &Locks;}
elsif ($action eq "Unlock"){ &Unlock;}
else {&steppass;}
exit;
####
sub steppass{
&Header('验证账号密码');
print<<EOF_INSTALL;
<form action="$CGI{'cjyh'}" Method="Post"><input type=hidden name=action value=newpass><p align=center><table cellSpacing="0" cellPadding="3" width="200" bgColor="#000084" border="0"><tr><td>
<table border =0 bgColor=ECF6F5 cellPadding="3" width="200"><tr><td>管理名字：<input name="NAME" size="15" class=form value="$name">
<tr><td>管理密码：<input name="PASSWORD" type=PASSWORD  size="15" class=form value="$password"><tr><td align=center><input type=submit Value="确 定"class=form1> 非站长授权，请勿尝试</table></table>
EOF_INSTALL
exit;
}
####
sub newpass {
if (($CONFIG{'name'} ne $FORM{'NAME'})||($CONFIG{'pass'} ne $FORM{'PASSWORD'})){&error("你没权管理","账号或密码有错,请注意大小写");}
&Header;
&html;
print qq~
<SCRIPT>
expireDate=new Date;
expireDate.setYear(expireDate.getYear()+1);
document.cookie="$Cookname="+"$FORM{'NAME'}"+";expires="+expireDate.toGMTString()+";";
document.cookie="$Cookpass="+"$FORM{'PASSWORD'}"+";expires="+expireDate.toGMTString()+";";
</SCRIPT>
<table cellSpacing="0" cellPadding="3" border="0" width="100%"><tr><td><table border =0 bgColor=ECF6F5 cellPadding="3" width="100%"  height=200>
<tr><td bgColor=#FFD7C align=center height=23>$FORM{'NAME'} 登陆成功<tr><td height=40> <b>点击左边的按键进行设置</b><tr><td height=23>[会员管理]：查看、删除已申请的会员
<tr><td height=23>[功能设置]：修改服务器设置、功能开禁<tr><td height=23>[页面信息]：插入页头、页尾广告<p><tr><td height=23><font color="#FF8E8E">感谢您使用 CK联合小组 编写的程序系列</font></table></table></td></tr></table>~;
exit;
}
##
sub delid {
	if (($CONFIG{'name'} ne $name)||($CONFIG{'pass'} ne $password)){&error("你没权管理","账号或密码有错,请注意大小写");}
	$terms=$FORM{'terms'};
	&Header;
	$usrpwdfile="$dirname/$FILE{'ursid'}";
	opendir(MEMBERDIR, "$usrpwdfile");
	@hastitles=readdir(MEMBERDIR);
	closedir(MEMBERDIR);
	@hastitles=reverse @hastitles;
	$num=-1;
 foreach $m(@hastitles){
		open(MSGS,"$usrpwdfile/$m");
   		$lines = <MSGS>; 
   		close(MSGS); 
		($rname,$rpwd,$question,$answer,$email,$rurl,$roicq,$date_no,$no)=split(/\t/, $lines);
	if($rname && $date_no){
		if(!$terms){ 
		 $num++;  
		 $book[$num]=$rname; 
		 $termsok=0;
		} 
		else { 
		 $termsbook="$email..$rname..$roicq..$rurl";
		 	if ($termsbook =~ /$terms/i){
		 	$num++;
		 	$book[$num]=$rname;
		 	$termsok=1;
			} 
	 	}
	}
 }
	$total_lines=$num+1;
	$j=0;
	$start=0;
	$pagenum=1;
	$pageline = "20";
	$page=$FORM{'page'};
	if ($page <1) {$page=1};
	for ($psd=1;$psd<$page;$psd++){  $start=$start+$pageline;}
	$end=$start+$pageline;
	if ($end>$total_lines) {$end=$total_lines; }
		for ($psd=0;$psd<$total_lines;$psd++) {
			$j++;
			if ($j>$pageline) {$pagenum++; $j=1; }
		}
 &html;
	print qq~<p align=center><form method=POST action=$CGI{'cjyh'}><input type=hidden name=action value=userid><TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 width=100%><tr bgcolor=#FFD7C  height=25 align=center><td>选取</td><td>用户名</td><td>密 码</td><td>电 邮</td><td>OICQ</td><td>主页</td><td>调查</td><td>申请日期</td></tr>~;
	for ($i=$start;$i<$end;$i++) {
		$line=$book[$i];
		open(MSGS1,"$usrpwdfile/$line.cgi"); #所有注册用户
		$lines = <MSGS1>; 
		close(MSGS1); 
		$bzvote="-";
		$idok=""; 
		if(-e "$dirname/$FILE{'poll'}/$line"){ #是否有申請調查
		$bzvote="0";
			opendir(MEMBERDIR, "$dirname/$FILE{'poll'}/$line");
			@hastitles=readdir(MEMBERDIR);
			closedir(MEMBERDIR);
			foreach $m(@hastitles){
				if($m=~/\.cgi$/){ $bzvote++;} #調查数量
			}
		$idok="ok"; 
		}


 ($r_name,$r_pwd,$r_question,$r_answer,$r_email,$r_url,$r_oicq,$r_date,$r_home)=split(/\t/, $lines);
	$form_value = $line; 
	$form_value =~ s/ /20%/g;
 print "<tr bgColor=ECF6F5><td><input type=checkbox name=\"$form_value\" value=\"$form_value\"></td><td>&nbsp;";
 	if($idok){ print "<A href=\"$CGI{'new'}?id=$line\" title='调查列表' target='_blank'>$line</a>";}
	else { print "$line";}

 print "</td><td>&nbsp;$r_pwd</td><td>&nbsp;$r_email</td><td>&nbsp;$r_oicq</td><td>&nbsp;<A href='$r_url' target='_blank'>$r_home</a></td><td align=center>$bzvote</td><td align=center>$r_date</td></tr>\n"; 
	push(@used_values,$line); 
	push(@used_form_values,$form_value); 
 }
 print qq~</table><p><input type=hidden name="used_values" value="@used_form_values"><table border=0 width=100% bgColor=ecf5ff cellspacing=2><tr><td align=right bgcolor=#A2D0FF>~;
 for ($psd=1;$psd <=$pagenum;$psd++){
	if($psd ne $page){ print "<INPUT TYPE=SUBMIT NAME='page' value='$psd'  style='font-size: 9pt;background-color: #0067CE; color: #FFFF00'>" } 
	else { print "<INPUT TYPE=SUBMIT value='$psd'  style='font-size: 9pt;'>" }
 }
 $start++;
print qq~($start—$end)&nbsp;共有 $total_lines 位会员</td></tr></table><table border=0><tr><td align=center>
&nbsp;&nbsp;<INPUT TYPE=SUBMIT NAME="remove_delreg" value="删除用户" title="删除所选用户和调查" class=form1 onclick="return delreg()">
<INPUT TYPE=SUBMIT NAME="remove_delvote" value="删除调查" title="删除所选用户申请的调查" class=form1 onclick="return delvote()">
<INPUT TYPE=SUBMIT NAME="remove_delfs" value="删除分数" title="删除所选用户的分数" class=form1 onclick="return delfs()">

<INPUT TYPE="button"  value="反选" onclick="FanAll(this.form)" class=form1>
<INPUT TYPE="button" value="全选" onclick="CheckAll(this.form)" class=form1>
<INPUT TYPE="reset" name="Reset" value="重置" title="重新选用户" class=form1>
</form></td><td><form METHOD=POST ACTION="$CGI{'cjyh'}"><input NAME=terms SIZE=16 class=form>
<input TYPE=submit VALUE="搜索名字" name="delid" class=form1></form></td></tr></table></CENTER></td></tr></table>\n\n~;
#&Tailer;
exit;
} 

####
sub userid{
 if (($CONFIG{'name'} ne $name)||($CONFIG{'pass'} ne $password)){&error("你没权管理","账号或密码有错,请注意大小写");}
 $usrpwdfile="$dirname/$FILE{'ursid'}";
 $pollfile="$dirname/$FILE{'poll'}";
   @used_values = split(/\s/,$FORM{'used_values'}); 
   foreach $used_value (@used_values) {
	 @misc_values = split(/\s/,$FORM{$used_value}); 
		foreach $misc_value (@misc_values) { 
        	  push(@DELLIST,$misc_value); 
		} 
   } 
  foreach $delit (@DELLIST) { 
 	$delit =~ s/20%/ /g;
	if($FORM{'remove_delfs'}){
		open(JUD,"$usrpwdfile/$delit.cgi"); 
		$pnames=<JUD>;
		close(JUD);
		($ursid,$pwd,$urs1,$urs2,$urs3,$urs4,$urs5,$urs6,$home,$urszf,$ursbf,$urs7,$urs8,$urs9,$urs10)=split(/\t/,$pnames);
	
		open(JUD,">$usrpwdfile/$delit.cgi"); 
		print JUD "$ursid\t$pwd\t$urs1\t$urs2\t$urs3\t$urs4\t$urs5\t$urs6\t$home\t0\t0\t0\t0\t0\t0";	
		close(JUD);


	}
	else{
 	  opendir(MEMBERDIR, "$pollfile/$delit");
	  @hastitles=readdir(MEMBERDIR);
	  closedir(MEMBERDIR);
	  @hastitles=reverse @hastitles;
		foreach $m(@hastitles){
			if($m !~/\./){
			opendir (POLLDIR, "$pollfile/$delit/$m"); 
			@polldir = readdir(POLLDIR);
			closedir (POLLDIR);
			foreach $a (@polldir){unlink("$pollfile/$delit/$m/$a");}
			rmdir("$pollfile/$delit/$m");
			}
		unlink("$pollfile/$delit/$m");
  		}
	  rmdir("$pollfile/$delit");
	if ($FORM{'remove_delreg'}){  unlink("$usrpwdfile/$delit.cgi"); } 
	}
12 下一页
💿 文件大小 336 K
👤 上传用户 dasdasdc
📂 所属分类 Java编程
🏷️ 相关标签

#读写
⌨️ 快捷键说明

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