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

📄 cjyh.cgi

📁 BBS3000 sourceCode
💻 CGI
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<p class=pt10 align=center><b>用 户 $rdname 的 资 料 ！</b><br><br>
<table border="0" width="100%">
  <tr>
    <td width="100%" colspan="2" align="center"><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=adm value=$adm><input type=hidden name=psd value=$psd><input type=hidden name=menu value=chgusers><input type=submit onclick="return del_reset()" value=删除此用户的所有资料></form>
    </td>
  </tr>
  <tr>
    <td align="right">
<form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=adm value=$adm><input type=hidden name=psd value=$psd><input type=hidden name=menu value=jjzz>入狱原因：<input size="25" name="yyin"> <input type=submit onclick="return jjzz_reset()" value="将 $username 抓进监狱"></form> 
    </td>
    <td>
<form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=adm value=$adm><input type=hidden name=psd value=$psd><input type=hidden name=menu value=ssff><input type=submit  value="从监狱里释放出来"></form>
    </td>
  </tr>
</table><TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=80%>
<TBODY>
<TR>
<TD height=58>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD vAlign=bottom width=2%><IMG height=32
src=$imagurl/Image$tu.gif width=32></TD>
<TD vAlign=bottom width=98%>　　 　　　　　
<TABLE border=0 cellPadding=0 cellSpacing=0 width=97%>
<TBODY>
<TR>
<TD bgColor=#F8E8CB width=37%>　秘密档案请勿外传
：）</TD>
<TD align=left vAlign=bottom
width=6%><FONT color=#ff0033><IMG src=$imagurl/jiao.gif></FONT></TD>
<TD align=right width=57%><a href=guest.cgi?action=add_form&guest=$username&name=$lllyyy>给 $username 发送一句悄悄话</a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=36>
<TABLE border=0 cellPadding=0 cellSpacing=1 width=100%>
<TBODY>
<TR bgColor=#eceef2>
<TD>
<TABLE border=1 borderColor=#F8E8CB
cellPadding=0 cellSpacing=0 height=200 width=100% bgcolor=#FEFBF5>
<TBODY>
<TR>
<TD align=middle rowSpan=10 width=2%>&nbsp;</TD>
<TD align=middle width=12%>昵 称 </TD>
<TD align=middle width=34%>$username</TD>
<TD align=middle rowSpan=10
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=7>$jiao</TD></TR>
<TR>
<TD align=middle width=12%>等 级</TD>
<TD align=middle width=34%>$deji</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%>$love1</TD></TR>
<TR>
<TD align=middle width=12%>职 业</TD>
<TD align=middle
width=34%>$work1</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%>个人主页</TD>
<TD align=middle><a href=$home1 target=_blank>$home1</a></TD></TR>
<TR>
<TD align=middle width=12%>最近发言</TD>
<TD align=middle width=34%>$lasttime1</TD>
<TD align=middle width=12%>Email</TD>
<TD align=middle><a href=mailto:$mail1>$mail1</a></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<center><p><a href=javascript:window.history.back();><IMG src=$imagurl/back.gif border=0></a></p><br>
EOF
exit;
}else{
&errorview("对不起，此用户没有注册！");exit;
}
}
##########
sub ckbz{
if ($FORM{'bzname'} ne ""){
if ( -e "$filepath/yhzl/$FORM{'bzname'}.cgi"){}else{&errorview("对不起，你输入的这个新版主的用户名还没有注册！");exit;}
open(PSD,"$filepath/list/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($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) {
$line=~ s/\n//g;
      ($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) {
$line88=~ s/\n//g;
      ($mmymm)=split(/\t/,$line88);
}
$oldmon=$mon-2;
if($oldmon < 1){$year=$year-1;$oldmon=$oldmon+12}
if($oldmon <10){$oldmon="0".$oldmon;}
&send_html;

print <<EOF;
<SCRIPT language=JavaScript1.2>
function del_reset(){
	if (confirm("您确定要删除该论坛的全部数据吗?")){
		return true;
	}
	return false;
}
function mon_reset(){
	if (confirm("您确定要该删除该论坛以前的文章吗?")){
		return true;
	}
	return false;
}
</SCRIPT>
<HEAD>
<TITLE>查 看 $rtitle 的 资 料 ！</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>
<br>
<p class=pt10 align=center><b>查 看 $rtitle 的 资 料 ！</b><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=adm value=$adm><input type=hidden name=psd value=$psd><input type=hidden name=menu value=kills><input type=submit onclick="return del_reset()"  value=删除$rtitle的全部数据></form>
<p class=pt10 align=center>
<form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=adm value=$adm><input type=hidden name=psd value=$psd><input type=hidden name=menu value=qlid>
<select name=mon>
<option value=1>删除 1 个月以前的文章</option>
<option value=2>删除 2 个月以前的文章</option>
<option value=3>删除 3 个月以前的文章</option>
<option value=6>删除 6 个月以前的文章</option>
<option value=9>删除 9 个月以前的文章</option>
<option value=12>删除 12 个月以前的文章</option>
</select>
<input type=submit onclick="return mon_reset()" value='确定'>
</form>
<table cellspacing=4 cellpadding=3><tr><td class=pt9 bgcolor=#FFF5E1><b>论坛名称：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$rtitle</font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>现任版主：</b><td class=pt9 align=left bgcolor=#FFF5E1>

<form action=$cgiurl METHOD="POST">
<input type="hidden" name="username" value="$username">
<input type="hidden" name="adm" value="$adm">
<input type="hidden" name="psd" value="$psd">
<input name="menu" type="hidden" value="ckbz">
<INPUT name=bzname size=8 value=$rname> <input type=submit value='更改'></tr>
</form>


<tr><td class=pt9 bgcolor=#FFF5E1><b>密码：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$mmymm</font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>信箱：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000><a href=mailto:$rmail>$rmail</a></font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>个人主页：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000><a href=$rhome target=_blank>$rhome</a></font>
<tr><td class=pt9 bgcolor=#FFF5E1><b>申请时间：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$rtime.</font></table>
<br>
<div align=center><center><table border=1 borderColorDark=#ffffff borderColorLight=#008000 cellPadding=0 cellSpacing=0 width=60%><tbody><tr><td align=middle width=100%>本页面采用CGI程序更新，程序制作：“<a href=http://www.yuzi.net target=_blank>Yuzi工作室</a>”</td></tr></tbody></table></div>
<br>[ <a href=javascript:history.back()> 返 回 </a> ]
EOF
   exit;
}else{
&errorview("对不起，此ID没有注册！");exit;
}
}
#########
sub bbslb{
&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">
</body>
<h2 align="center">注册论坛管理</h2>
<div align=center><center>
<a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</a><br>
<form name="reg" action="$cgiurl">
请输入论坛的ID：<input type=text name="username" size=12>
<input type="hidden" name="adm" value="$adm">
<input type="hidden" name="psd" value="$psd">
<input name="menu" type="hidden" value="ckbz">
<input type=submit value="确定">
</form>
</center></div>
EOF
open(ROOM,"$list");
@lines=<ROOM>;
close(ROOM);
$size=@lines;
&send_html;
$ii=0;
$j=$size;
while ($j>0) {
$j=$j-$perpage;
$ii++;
}
print <<EOF;

EOF
foreach $line (@lines){
$line=~ s/\n//g;
$jms ="data/list.cgi";
open(TMP,"$jms");
@line=<TMP>;
close(TMP);
}
open(TITLES,"$filepath/list/bbs");
@hastitles=<TITLES>;
close(TITLES);
$bbsdx=@hastitles;
print <<EOF;
<br>
<div align="center"><center>
<table border="1" width="80%" bordercolorlight="#008000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
</tr>
<tr>
<td background=$imagurl/tablebg.gif width="70%" align="center"><font color=ffffff>讨论区</font></td>
<td background=$imagurl/tablebg.gif width="10%" align="center"><font color=ffffff>论题数</font></td>
<td background=$imagurl/tablebg.gif width="15%" align="center"><font color=ffffff>版主</font></td>
<td background=$imagurl/tablebg.gif width="5%" align="center"><font color=ffffff>资料</font></td>
</tr>
EOF
$chgcolor==0;
if($page eq ""){$page=$ii;}
$pages=$page-1;
$pages=$page*$perpage-$perpage;
for($i=$pages; $i<$pages+$perpage; $i++) {
$line=@lines[$i];
$line=~ s/\n//g;
if($line ne ""){
($username1)=split(/\t/,$line);
unless(-f "$filepath/list/$username1.cgi"){
open(TMP,">$filepath/list/$username1.cgi");
close(TMP);
chmod(0666,"$filepath/list/$username1.cgi");
}
open(TITLES,"$filepath/list/$username1.cgi");
@a=<TITLES>;
close(TITLES);
foreach $m (@a){
$m=~ s/\n//g;
if($m ne ""){
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj)=split(/\t/,$m);
}
unless(-f "$filepath/list/$username1/bbs"){
open(TMP,">$filepath/list/$username1/bbs");
close(TMP);
chmod(0666,$filepath/list/$username1/bbs);
}
$bbsbook  ="$filepath/list/$username1/bbs";
open(TITLES,"$bbsbook");
@hastitles=<TITLES>;
close(TITLES);
$hastitle=@hastitles;
$wzs=$hastitle;
$rqzs=$hastitle*3;
if($chgcolor==0){
$chgcolor=0;
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 type="hidden" name="adm" value="$adm">
<input type="hidden" name="psd" value="$psd">
<input name="menu" type="hidden" value="ckbz">
<input type=submit value="查看">
</form></td>
</tr>
EOF
}
}
}
}
print <<EOF;
<tr>
<td align="center" width="100%" colspan="5" bgcolor="#FFF5E1">免费论坛服务由<font color=#cc0033>
</font><font color=#ff6633><b><font Helvetica, sans-serif><a href=$zyurl>$zyname</a></font></b></font><font color=#cc0033>
</font>提供　程序制作：<b><a href="http://www.yuzi.net" target="_blank">Yuzi工作室</a></td></tr>
<tr>
<td colspan="5">
EOF
#$i=1;
$j=$size;
while ($j>0) {
print "<a href=$cgiurl?menu=bbslb&adm=$adm&psd=$psd&page=$ii>" if ($page != $ii);
print "[$ii]";
print "</a>" if ($page != $ii);
$j=$j-$perpage;
$ii--;
}
print <<EOF;
</td>
</tr>
</table>
</center></div>
</body>
</html>
EOF
exit;
}
##########
sub qlid{
$oldmon=$mon-$FORM{'mon'};
if($oldmon <1){$year=$year-1;$oldmon=$oldmon+12}
if($oldmon <10){$oldmon="0".$oldmon;}
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($rd_time2 > "$year$oldmon"."00000000"){
print GUEST2 "$usersays2\n";
}else{
unlink("$filepath/list/$selname/$usersays2");
unlink("$filepath/list/$selname/$usersays2"."b");
$delno++;
}
}
close(GUEST);
if($delno eq ""){$delno=0};
&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>已经成功将 $year 年 $oldmon 份以前的文章删除了！</h2>（共删除 <font color=#FF0000><b>$delno</b></font> 篇文章）<br>
<p align=center><a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</p></a>
</body></html>
EOF
exit;
}
######################### END OF SCRIPT #########################
12

⌨️ 快捷键说明

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