?? scjyh.cgi
字號:
#!/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> ";
if($idok){ print "<A href=\"$CGI{'new'}?id=$line\" title='調查列表' target='_blank'>$line</a>";}
else { print "$line";}
print "</td><td> $r_pwd</td><td> $r_email</td><td> $r_oicq</td><td> <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) 共有 $total_lines 位會員</td></tr></table><table border=0><tr><td align=center>
<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"); }
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -