📄 cjyh.cgi

📁 --黑客防线-精华奉献本(攻册)
💻 CGI
📖 第 1 页 / 共 4 页
字号:
<TD><TABLE border=1 borderColor=ffffff
cellPadding=0 cellSpacing=0 height=200 width=100% bgColor=$bgcolor2><TBODY><TR><TD align=middle rowSpan=11 width=2%>&nbsp;</TD>
<TD align=middle width=12%>昵 称 </TD><TD align=middle width=34%>$username</TD><TD align=middle rowSpan=11
width=2%>&nbsp;</TD><TD align=middle colSpan=2>密 码 $rdpassword</TD></TR><TR><TD align=middle width=12%>性 别</TD>
<TD align=middle width=34%>$sex1</TD><TD align=middle colSpan=2
rowSpan=8><a href=$ttt><img src=$ttt width=200 height=150 border=0></a></TD></TR>
<TR><TD align=middle width=12%>等 级</TD><TD align=middle width=34%>$level</TD></TR>
<tr><TD align=middle width=12%>省 份</TD><TD align=middle width=34%>$city1</TD></TR>
<tr><TD align=middle width=12%>纹 银</TD><TD align=middle
width=34%><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=menu value=money><INPUT class=bt name=money size=6 maxLength=5 value=$money><INPUT type=submit value="确 定"></TD></TR>
<TR><TD align=middle width=12%>魅 力</TD><TD align=middle width=34%><INPUT class=bt name=charm size=6 maxLength=5 value=$charm><INPUT type=submit value="确 定"></TD></TR>
<TR><TD align=middle width=12%>QQ</TD><TD align=middle
width=34%>$QQ</TD></TR><TR><TD align=middle width=12%>发表文章</TD><TD align=middle width=34%>$fy1 篇</TD></TR>
<TR><TD align=middle width=12%>回复文章</TD><TD align=middle width=34%>$hf1 篇</TD></TR>
<TR><TD align=middle width=12%>总共发表</TD><TD align=middle width=34%>$tol 篇</TD>
<TD align=middle width=12%>Email</TD><TD align=middle><a href=mailto:$mail1>$mail1</a></TD></TR>
<TR><TD align=middle width=12%>注册日期</TD><TD align=middle width=34%>$lasttime1</TD>
<TD align=middle width=12%>个人主页</TD><TD align=middle><a href=$home1 target=_blank>$home1</a></TD></TR>
</TBODY></TABLE></TD></TR></TABLE></form><center><a href=javascript:history.back();><IMG src=$imagurl/back.gif border=0></a>
EOF
exit;
}else{
&errorview("对不起，此用户没有注册！");exit;
}}
##########
sub ckbz{
if ($FORM{'bzname'} ne ""){
if ( -e "$filepath/yhzl/$FORM{'bzname'}.cgi"){}else{&errorview("对不起，您输入的这个新版主的用户名还没有注册！");}
open(PSD,"$filepath/list/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
chomp($line);
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbanz)=split(/\t/,$line);
}
open(PSD,">$filepath/list/$username.cgi");
print PSD $FORM{'bzname'}."\t\t".$rmail."\t".$rhome."\t".$rtitle."\t".$yhq."\t".$rtime."\t".$htmlt."\t".$htmlw."\t".$jj."\t".$fbanz;
close(PSD);
}
if ( -e "$filepath/list/$username.cgi"){
open(PSD,"$filepath/list/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
chomp($line);
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw)=split(/\t/,$line);
}
open(PSD88,"$filepath/yhzl/$rname.cgi");
@lines88=<PSD88>;
close(PSD88);
foreach $line88 (@lines88) {
chomp($line88);
($mmymm)=split(/\t/,$line88);
}
$oldmon=$mon-2;
if($oldmon < 1){$year=$year-1;$oldmon=$oldmon+12}
if($oldmon <10){$oldmon="0".$oldmon;}
&csshtml;
print <<EOF;
<SCRIPT>
function del_reset(){
if (confirm("您确定要删除该论坛的全部数据吗?")){
return true;
}
return false;
}
</SCRIPT><center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
查 看 $rtitle 的 资 料 ！</font></b></td></tr></table><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=menu value=kills><input type=submit onclick="return del_reset()"  value='删除 $rtitle 的全部数据'></form>
<form action=$cgiurl METHOD=POST><input type=hidden name=menu value=fix><input type=hidden name=selname value=$username><input type=submit value='修复被破坏的索引文件'></form><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=menu value=qlid>
批量删除 <INPUT name=day size=3 maxLength=3 value=30> 天没有浏览过的贴子
<input type=submit value='确定'></form><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=menu value=cleanname>批量删除 <INPUT name=cleanname size=10> 在本论坛所发表的文章 <input type=submit value='确定'></form>
<table cellspacing=4 cellpadding=3><tr><td bgcolor=$bgcolor2><b>论坛名称：</b><td align=left bgcolor=$bgcolor2><a href=bbs.cgi?id=$username target=_blank>$rtitle</a></tr>
<tr><td bgcolor=$bgcolor2><b>论坛ID：</b><td align=left bgcolor=$bgcolor2><font color=FF0000>$username</font></tr>
<tr><td bgcolor=$bgcolor2><b>现任版主：</b><td align=left bgcolor=$bgcolor2><form action=$cgiurl METHOD="POST">
<input type="hidden" name="username" value="$username"><input name="menu" type="hidden" value="ckbz">
<INPUT name=bzname size=8 value=$rname> <input type=submit value='更改'></tr></form>
<tr><td bgcolor=$bgcolor2><b>密码：</b><td align=left bgcolor=$bgcolor2><font color=FF0000>$mmymm</font></tr>
<tr><td bgcolor=$bgcolor2><b>信箱：</b><td align=left bgcolor=$bgcolor2><font color=FF0000><a href=mailto:$rmail>$rmail</font></a></tr>
<tr><td bgcolor=$bgcolor2><b>个人主页：</b><td align=left bgcolor=$bgcolor2><font color=FF0000><a href=$rhome target=_blank>$rhome</font></a>
<tr><td bgcolor=$bgcolor2><b>申请时间：</b><td align=left bgcolor=$bgcolor2><font color=FF0000>$rtime.</font></table>
<br>[ <a href=javascript:history.back()> 返 回 </a> ]
EOF
exit;
}else{
&errorview("对不起，此ID没有注册！");exit;
}}
#########
sub bbslb{
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
注册论坛管理</font></b></td></tr></table><form name="reg" action="$cgiurl">
请输入论坛的ID：<input type=text name="username" size=12><input name="menu" type="hidden" value="ckbz">
<input type=submit value="确定"></form>
EOF
open(ROOM,"$list");
@lines=<ROOM>;
close(ROOM);
$size=@lines;
$ii=0;
$j=$size;
while ($j>0) {
$j=$j-$listpage;
$ii++;
}
open(TITLES,"$filepath/list/bbs");
@hastitles=<TITLES>;
close(TITLES);
$bbsdx=@hastitles;
print <<EOF;
<table border="1" width="90%" bordercolorlight="#008000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
</tr><tr><td bgcolor=$bgcolor0 width="70%" align="center"><font color=ffffff>讨论区</font></td>
<td bgcolor=$bgcolor0 width="10%" align="center"><font color=ffffff>论题数</font></td>
<td bgcolor=$bgcolor0 width="15%" align="center"><font color=ffffff>版主</font></td>
<td bgcolor=$bgcolor0 width="5%" align="center"><font color=ffffff>资料</font></td>
</tr>
EOF
if($page eq ""){$page=1;}
$pages=$page-1;
$pages=$page*$listpage-$listpage;
for($i=$pages; $i<$pages+$listpage; $i++) {
$line=@lines[$i];
chomp($line);
if($line ne ""){
($username1)=split(/\t/,$line);
open(TITLES,"$filepath/list/$username1.cgi");
@a=<TITLES>;
close(TITLES);
foreach $m (@a){
chomp($m);
if($m ne ""){
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj)=split(/\t/,$m);
}
$bbsbook  ="$filepath/list/$username1/bbs";
open(TITLES,"$bbsbook");
@hastitles=<TITLES>;
close(TITLES);
$hastitle=@hastitles;
$wzs=$hastitle;
print <<EOF;
<tr><td>　<a href=bbs.cgi?id=$username1 target=_blank>$rtitle</a><br>$jj</td><td align="center"><font color=FF0000>$wzs</font></td>
<td align="center"><a href="mailto:$rmail">$rname</a></td><td><form action=$cgiurl METHOD="POST">
<input type="hidden" name="username" value="$username1"><input name="menu" type="hidden" value="ckbz">
<input type=submit value="查看"></td></form></tr>
EOF
}}
}
print <<EOF;
<tr><td align="center" width="100%" colspan="5" bgcolor="$bgcolor2">免费论坛服务由<font color=cc0033>
</font><font color=ff6633><b><font Helvetica, sans-serif><a href=$zyurl>$zyname</font></a></b></font><font color=cc0033>
</font>提供　程序制作：<b><a href="http://www.yuzi.net" target="_blank">Yuzi工作室</a></td></tr>
<tr><td colspan="5">
EOF
$j=$size;
while ($j>0) {
print "<a href=$cgiurl?menu=bbslb&page=$ii>" if ($page != $ii);
print "[$ii]";
print "</a>" if ($page != $ii);
$j=$j-$listpage;
$ii--;
}
print <<EOF;
</td></tr></table></center></div></body></html>
EOF
exit;
}
##########
sub qlid{
if($FORM{'day'} < 7){&errorview("您输入的值不能小于7天!");}
opendir (MEMBERDIR2, "$filepath/list/$selname");
@members2 = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);
foreach $m (@members2){
if(length($m) eq "14"){
$rq=(-M "$filepath/list/$selname/$m");
if($rq > $FORM{'day'}){
unlink("$filepath/list/$selname/$m");
unlink("$filepath/list/$selname/$m"."b");
unlink("$filepath/vote/$m");
unlink("$filepath/vote/$m.dat");
unlink("$filepath/vote/$m.ip");
$delno++;
}}
}
if($delno ne ""){
open (GUEST2,">$filepath/list/$selname/bbs") ;
close(GUEST);
chmod(0666,"$filepath/list/$selname/bbs");
}else{$delno=0};
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
已经成功将 $FORM{'day'} 天没有浏览过的文章删除了！</font></b></td></tr></table><br>（共删除 <font color=FF0000><b>$delno</b></font> 篇文章）<br><br>[ <a href=javascript:history.back()> 返 回 </a> ]
EOF
exit;
}
###############
sub club{
open(ROOM,"$list");
@lines=<ROOM>;
close(ROOM);
foreach $line (@lines){
chomp($line);
($line)=split(/\t/,$line);
$listid="$listid$line\n";
}
open(ROOM,"$filepath/data/leftlist");
@leftlines=<ROOM>;
close(ROOM);
foreach $leftline (@leftlines){
chomp($leftline);
($leftline)=split(/\t/,$leftline);
$leftlistid="$leftlistid$leftline\n";
}
&csshtml;
print <<EOF;
<sCRIPT>
function del_reset(){
if (confirm("您确定要更新论坛列表吗?")){
return true;
}
return false;
}
</SCRIPT><center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
论坛列表设置</font></b></td></tr></table><br>注意：每一个类别名称或者论坛ID都要独立占用一行<br>类别添加方法：添加论坛类别时，请在类别名称前加上"__"符号<br><br><A href="JavaScript:New('cjyh.cgi?menu=all')">点击这里查看社区内所有论坛的ID</a>
<form method=POST><input name="menu" type="hidden" value=clubok>导航栏（左栏）论坛列表设置　　　主页面（右栏）论坛列表设置<br><textarea rows=15 name=leftlist cols=20>$leftlistid</textarea>　　<textarea rows=15 name=list cols=20>$listid</textarea>
<br><br><input type=submit value="　　　更　　　新　　　" onclick="return del_reset()"><br><br>
</body></html>
EOF
exit;
}
sub editcss{
open(ROOM,"$ImgDir/bbs.css");
@lines=<ROOM>;
close(ROOM);
foreach $line (@lines){
$listid="$listid$line";
}
&csshtml;
print <<EOF;
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=FF6633>
编辑CSS模板</font></b></td></tr></table><br>您可以在这里编辑模板文件，如果您不懂CSS，请不要改动。<br>
<form method=POST><input name="menu" type="hidden" value=cssok><textarea rows=15 name=list cols=50>$listid</textarea>
<br><br><input type=submit value="　　　更　　　新　　　"><br><br></body></html>
EOF
exit;
}
sub cssok{
$FORM{'list'}=~s/\r//g;
open (GUEST,">$ImgDir/bbs.css") ;
print GUEST "$FORM{'list'}";
close(GUEST);
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><head><META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312><meta HTTP-EQUIV="REFRESH" CONTENT="3;URL=$cgiurl?menu=editcss">
<LINK href="$imagurl/bbs.css" rel=stylesheet></head>
已经成功地更新了CSS模板文件，请稍候，系统将自动返回......
<BR><BR><A HREF="$cgiurl?menu=editcss">如果系统没有反应，请点击这里返回！</A></html>
EOF
exit;
}
sub lucidaok{
unless ( -e "$ImgDir/img/$FORM{'star'}.jpg"){&errorview("$FORM{'star'}没有上传照片，不能成为社区明星！");}
unless ( -e "$ImgDir/img/$FORM{'star2'}.jpg"){&errorview("$FORM{'star2'}没有上传照片，不能成为社区明星！");}
open(TMP,">$filepath/data/lucida");
print TMP "$FORM{'star'}\t$FORM{'star2'}";
close(TMP);
print "Content-type: text/html\n\n";
print <<EOF;
<html><META HTTP-EQUIV=Refresh CONTENT="0;url=$cgiurl?menu=lucida"></html>
EOF
exit;
}
sub clubok{
$FORM{'list'}=~s/\r//g;
open (GUEST,">$filepath/data/list.cgi") ;
print GUEST "$FORM{'list'}";
close(GUEST);
$FORM{'leftlist'}=~s/\r//g;
open (GUEST,">$filepath/data/temp") ;
print GUEST "$FORM{'leftlist'}";
close(GUEST);
open(PSD,"$filepath/data/temp");
@line=<PSD>;
close(PSD);
foreach $hastitle (@line) {
chomp($hastitle);
open (CHAT,"$filepath/list/$hastitle.cgi");
$line=<CHAT>;
close(CHAT);
($bzmc,$secret,$bzrmail,$outurl,$bbsming)=split(/\t/,$line);
if (length($bbsming) > 10){$bbsming=substr($bbsming,0,10);$bbsming.="..";}
$hastitle1="$hastitle1$hastitle\t$bbsming\n";
}
open (GUEST,">$filepath/data/leftlist") ;
print GUEST "$hastitle1";
close(GUEST);
chmod(0666,"$filepath/data/leftlist");
print "Content-type: text/html\n\n";
print <<EOF;
<HTML><head><META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312><meta HTTP-EQUIV="REFRESH" CONTENT="3;URL=$cgiurl?menu=club">
<LINK href="$imagurl/bbs.css" rel=stylesheet></head>
已经成功地更新了论坛列表，请稍候，系统将自动返回......
<BR><BR><A HREF="$cgiurl?menu=club">如果系统没有反应，请点击这里返回！</A></html>
EOF
exit;
}
sub money{
open (GUEST,"$filepath/guest/2$selname.cgi") ;
$line=<GUEST>;
close(GUEST);
💿 文件大小 537 K
👤 上传用户 invill
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#黑客
⌨️ 快捷键说明

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