📄 list.cgi

📁 --黑客防线-精华奉献本(攻册)
💻 CGI
📖 第 1 页 / 共 2 页
字号:
12 下一页
#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
$listpage=20; # 社区每页显示的论坛数目
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
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=~s/\.\.//g;
$FORM{$name} = $value;
}
$page=$FORM{'page'};
$username=$FORM{'username'};
$menu=$FORM{'menu'};
$id=$FORM{'id'};
$username=$Cookies{username};
$userpsd=$Cookies{password};
if($username ne ""){
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
($rpassword,$rusername,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$rating,$levelname,$level)=split(/\t/,$line);
if ($rating eq ""){$rating=0;}
}
if($menu eq ""){&index;exit;}
if($menu eq "main_frame"){
print "Content-type: text/html\n\n";
print <<EOF;
<FRAMESET name=main_frame rows=*,0 frameborder=0>
<FRAME name=yuzi_frame src=list.cgi?menu=show>
<FRAME name=message src=$imagurl/loading.htm>
EOF
exit;
}
open(TITLES,"$filepath/data/newmember");
$m=<TITLES>;
close(TITLES);
($newmember,$membertol)=split(/\t/,$m);
if($menu eq "many"){&many;exit;}
if($menu eq "show"){&show;exit;}
exit;
##########
sub show{
if($Cookies{estate} eq "1"){$tu=estate;}
$people=1;
open (FILE,"$filepath/data/people.cgi");
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;
open (FILE,">$filepath/data/people.cgi");
for ($i=0;$i<$SIZE;$i++)
{
$_=$LINES[$i];
($addr,$come_hour,$come_min,$come_sec,$olduser)=split(/\t/,$_);
$flag=($hour-$come_hour)*3600+($min-$come_min)*60+($sec-$come_sec);
if($addr eq $from && $olduser eq $Cookies{username}){
print FILE $from."\t".$hour."\t".$min."\t".$sec."\t".$Cookies{username}."\t$tu\t社区首页\t\tlist.cgi target=_top\n";
$check=1;
}
elsif ($flag < $timepop && $flag > 0) {
print FILE $_;
$people++;
}}
if ($check == 0) {
print FILE $from."\t".$hour."\t".$min."\t".$sec."\t".$Cookies{username}."\t$tu\t社区首页\t\tlist.cgi target=_top\n";
}
close (FILE);
open(PSD,"$filepath/list/bbs");
$index=<PSD>;
close(PSD);
open(PSD,"$filepath/list/$index");
$line=<PSD>;
close(PSD);
($index)=split(/\t/,$line);
&css;
print <<EOF;
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<BODY background=$imagurl/bg.gif><CENTER><TABLE width=90% border=0><TBODY><tr><TD align=center>
<img src=$imagurl/bbtitle5.gif>
</TD></FONT><TD align=middle><b><font size=4 color=$bgcolor0>$cityname</font></b><BR><ACRONYM title=编辑您的个人信息><a href="yhxiu.cgi"><IMG src="$imagurl/top_profile.gif" border=0></a></ACRONYM> <ACRONYM title=免费注册为新会员><a href="yhreg.cgi"><IMG src="$imagurl/top_register.gif" border=0></a></ACRONYM> <ACRONYM title=设置您的参数><a href="cookie.cgi?menu=setuppage"><IMG src="$imagurl/top_preferences.gif" border=0></a></ACRONYM> <ACRONYM title=搜索各论坛帖子的内容><a href="search.cgi"><IMG src="$imagurl/search.gif" border=0></a></ACRONYM> <A href="$imagurl/help.htm"><ACRONYM title="常见问题解答"><IMG src="$imagurl/top_faq.gif" border=0></ACRONYM></A>
</TD></TR></TBODY></TABLE><TABLE cellPadding=0 width=95% border=0><TBODY><TR>
<td width=1 valign=bottom><img src=$imagurl/caution.gif></td>
<TD vAlign=bottom width=40%><marquee scrollamount=3><a href=# onclick=javascript:window.open('affiche.cgi','','width=400,height=400,resizable,scrollbars')>$index</a></marquee></TD>
<TD vAlign=bottom width=10% align=center><a href=rank.cgi>管理人员</a></TD>
<TD vAlign=bottom width=22% align=right>社区区长：<a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$admname>$admname</a></TD>
<TD vAlign=bottom width=28% align=right>注册会员：<B>$membertol</B><BR>欢迎新会员：<a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$newmember>$newmember</a></TD></TR></TBODY></TABLE><TABLE cellspacing=0 cellpadding=0 cellPadding=4 width=95% border=0 bgcolor=$bgcolor>
<tr bgcolor=$bgcolor0>
<td bgcolor=$bgcolor0 width=7% height=25 valign=top></td>
<td bgcolor=$bgcolor0 width=35%><font color=$bgcolor4>论坛</font></td>
<td valign=center align=middle bgcolor=$bgcolor0 width=5%><font color=$bgcolor4>主题</font></td>
<td valign=center align=middle bgcolor=$bgcolor0 width=28%><font color=$bgcolor4>最后发表</font></td>
<td valign=center align=middle bgcolor=$bgcolor0 width=15%><font color=$bgcolor4>版主</font></td>
<td valign=center align=middle bgcolor=$bgcolor0 width=10% valign=top><font color=$bgcolor4>私人珍藏</font></td>
</tr></TABLE>
EOF
open(ROOM,"$filepath/data/list.cgi");
@lines=<ROOM>;
close(ROOM);
$size=@lines;
$ii=0;
$j=$size;
while ($j>0) {
$j=$j-$listpage;
$ii++;
}
if($page eq ""){$page=1;}
$pages=$page-1;
$pages=$page*$listpage-$listpage;
for($i=$pages; $i<$pages+$listpage; $i++) {
$line=@lines[$i];
chomp($line);
($username1,$sort)=split(/__/,$line);
if($sort ne ""){
print "<table width=95% cellspacing=0 border=1 bordercolor=$bgcolor height=25><tr bgColor=ffffff><td colspan=7>　<b><font color=$bgcolor0>$sort</font></b></td></tr></TABLE>";
}else{
($username1)=split(/\t/,$username1);
if($username1 ne ""){
open(TITLES,"$filepath/list/$username1.cgi")|| &errorview("系统不存在ID为$username1的论坛，请到社区管理->>论坛列表设置->>更新列表");
$m=<TITLES>;
close(TITLES);
($rname,$secret,$rmail,$rhome,$rtitle,$fbzmc2,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$m);
$bbsbook="$filepath/list/$username1/bbs";
open(TITLES,"$bbsbook");
@hastitles=<TITLES>;
close(TITLES);
$wzs=@hastitles;
if($wzs > 0){
$rq=(-M "$bbsbook");
$hastitle=@hastitles[0];
open(fff,"$filepath/list/$username1/$hastitle");
$fff=<fff>;
close(fff);
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote,$lastname,$rlasttime)=split(/\t/,$fff);
if (length($rtitles) > 20) {$rtitles = substr($rtitles,0,20);$rtitles.="...";}
if($lastname eq "--"){$lastname=$rusername};
$zhuihou="<table><tr><td valign=top><img src=$imagurl/$remote.gif></td><td><a onclick=min_yuzi() target=message href=bbs$Cookies{style}.cgi?id=$username1&menu=show&slttitle=$hastitle>$rtitles</a> ($lastname)<br>$rlasttime</td></tr></table>";
}
print <<EOF;
<table width=95% cellspacing=0 border=1 bordercolor=$bgcolor>
<TR><TD vAlign=top align=middle bgColor=$bgcolor2 width=7%>
EOF
if($secret ne ""){print "<img src=$imagurl/bbslock.gif>";}
elsif($rq < "1"){print "<img src=$imagurl/on.gif>";}else{print "<img src=$imagurl/off.gif>";}
print <<EOF;
</TD><TD vAlign=top bgColor=$bgcolor2 width=35%><a href=bbs$Cookies{style}.cgi?menu=listtitle&id=$username1>$rtitle</a><br>$jj</TD>
<TD vAlign=middle noWrap align=middle bgColor=$bgcolor1 width=5%>$wzs</TD>
<TD bgcolor=$bgcolor2 width=28%>$zhuihou</TD>
<TD vAlign=middle bgcolor=$bgcolor1 align=center width=15%><a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$rname>$rname</a><br><a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$fbzmc>$fbzmc</a><br><a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$fbzmc2>$fbzmc2</a></TD>
<TD vAlign=middle bgColor=$bgcolor2 align=center width=10%><a target=yuzi href=search.cgi?menu=add&add=$username1><font color=$bgcolor0>添加</font></a>/<a target=yuzi href=search.cgi?menu=del&add=$username1><font color=$bgcolor0>删除</font></a>
</TD></TABLE>
EOF
}}
}
foreach $line (@LINES) {
($rip,$r1,$r2,$r3,$rname,$tuu,$namebbs,$rtitles,$act)=split(/\t/,$line);
if($rtitles){$rtitless="\n当前动作：浏览“$rtitles”";}
$particular="活动时间：$r1:$r2:$r3\n目前位置：$namebbs$rtitless";

if($rname ne "" && $tuu ne "estate"){
$newline="";
if($NO_count <6){$NO_count ++;}else{$NO_count=1;}
$newline="</tr><tr>"if ($NO_count==6);
$rname2="<td width=16% style=word-break:break-all><a href=# onclick=javascript:open('friend.cgi?menu=fshtml&add=$rname','','width=320,height=170')><img src=$imagurl/face/$tuu.gif border=0 width=16 height=16 alt=发送讯息></a><a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$rname TITLE='$particular'>$rname</a></td>$newline";}
else{$rname2="";}
$rname1="$rname1$rname2";}
if($openlucida eq "on"){
$rqlucida=(-M "$filepath/data/lucida");
if(($rqlucida > $lucidatime)||(-z "$filepath/data/lucida")){&lucida;}
open (FILE,"$filepath/data/lucida") || &lucida;
$lucida=<FILE>;
close(FILE);
($lucida,$lucida2)=split(/\t/,$lucida);
open(PSD,"$filepath/yhzl/$lucida.cgi");
$lines=<PSD>;
close(PSD);
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf,$tuu,$jiao,$iewin,$QQ,$photo)=split(/\t/,$lines);
if($jiao eq ""){$jiao="这家伙很懒,什么都没有留下。"};
if($photo eq ""){$photostar="$imagurl/photo.gif";}else{$photostar="$ImgurlDir/$photo.jpg";}
if (length($jiao) > 100) {$jiao = substr($jiao,0,100);$jiao.="...";}
open(PSD,"$filepath/yhzl/$lucida2.cgi");
$lines=<PSD>;
close(PSD);
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex2,$rwork,$rcity,$rlove,$rfy,$rhf,$tuu,$jiao2,$iewin,$QQ,$photo2)=split(/\t/,$lines);
if($jiao2 eq ""){$jiao2="这家伙很懒,什么都没有留下。"};
if($photo2 eq ""){$photostar2="$imagurl/photo.gif";}else{$photostar2="$ImgurlDir/$photo2.jpg";}
if (length($jiao2) > 100) {$jiao2 = substr($jiao2,0,100);$jiao2.="...";}
print <<EOF;
<TABLE width=95% border=0 bgcolor=$bgcolor cellspacing=0 cellpadding=0>
<tr bgcolor=$bgcolor0><td height=25 valign=top>
</td><td width=100% align=center><font color=$bgcolor4>社区明星</font></td>
<TD bgcolor=$bgcolor0 align=right valign=top></TD>
</tr></table>
<table width=95% cellspacing=0 border=1 bordercolor=$bgcolor>
<tr bgcolor="#FFFFFF"><td align=middle rowspan="2"><a href=$photostar><img border=0 src=$photostar width=100 height=75 alt="$lucida"></a></td>
<td align=middle> <div align="center">个人简介</div> </td>
<td align=middle rowspan="2"><a href=$photostar2><img border=0 src=$photostar2 width=100 height=75 alt="$lucida2"></a></td>
<td align=middle colspan="2"> <div align="center">个人简介</div></td></tr><tr bgcolor="#FFFFFF">
<td width="28%">昵 称 ：<a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$lucida>$lucida</a><br>性 别 ：$rsex<br>介 绍 ：$jiao</td>
<td width="28%" colspan="2">昵 称 ：<a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$lucida2>$lucida2</a><br>性 别 ：$rsex2<br>介 绍 ：$jiao2</td>
</tr></TABLE>
EOF
}
if($username ne ""){
($kkk)=split(/\)/,$ENV{'HTTP_USER_AGENT'});
($bzd,$ie,$win,$me)=split(/;/,$kkk);
if($me eq " Win 9x 4.90"){$win=" Windows Me"}
elsif($win eq " Windows NT 5.0"){$win=" Windows 2000"}
elsif($win eq " Windows NT 5.1"){$win=" Windows XP"};
open(NUMBER,"$filepath/guest/2$username.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$tollys)=split(/\t/,$NUMBER);
if($lys){$msg="<bgsound src=$imagurl/msg.wav loop=1>";}
print <<EOF;
<TABLE width=95% cellspacing=0 cellpadding=0><tr><TD bgcolor=$bgcolor0 height=25 valign=top>
</TD><TD align=center bgcolor=$bgcolor0><font color=$bgcolor4>个人状态</font></TD>
<TD bgcolor=$bgcolor0 align=right valign=top></TD>
</table>
<table width=95% cellspacing=0 border=1 bordercolor=$bgcolor>
<tr><TD width=7% width=50 align=center bgcolor=FFFFFF><img src=$imagurl/user.gif></TD><TD bgcolor=FFFFFF><font color=333333 align=center>$username - 您现在有 $tollys 条留言 (有 $lys$msg 条新留言)</font><br>您的 IP 是：<font color=000066>$from</font>　　操作系统：<font color=000066>$win</font>　　浏览器：<font color=000066>$ie</font>
</TD></tr></TABLE>
EOF
}
print <<EOF;
<table width=95% cellspacing=0 cellpadding=0><tr><td bgcolor=$bgcolor0 height=25 valign=top>
</TD><TD bgcolor=$bgcolor0 align=center width=100%><FONT color=$bgcolor4>在线用户</FONT></TD>
<TD bgcolor=$bgcolor0 align=right valign=top></TD></tr></TABLE>
<table width=95% cellspacing=0 border=1 bordercolor=$bgcolor><tr><td width=7% align=center bgcolor=FFFFFF><IMG src=$imagurl/online.gif></td><td width=90% bgcolor=FFFFFF><A href="yhreg.cgi?menu=online"><FONT color=$bgcolor0>看看现在谁在这个论坛</A>(<font color=FF0000>$people</font>)<BR></FONT><table border=0 width=100%><tr>$rname1</tr></table></TD></TR></TABLE>
EOF
open (PEO,"$filepath/data/link");
@fun=<PEO>;
close (PEO);
if(@fun){
print "<TABLE width=95% bgcolor=$bgcolor cellspacing=0 cellpadding=0><tr><TD bgcolor=$bgcolor0 height=25 valign=top></TD><TD bgcolor=$bgcolor0 width=100% align=center><font color=$bgcolor4>友情链接</font></TD><TD bgcolor=$bgcolor0 align=right valign=top></TD></tr></TABLE>";
foreach $fun (@fun){
($linkid,$webname,$weburl,$logourl,$intro)=split(/\t/,$fun);
if($logourl ne "" && $logourl ne "http://"){$logourl="<td><a href=$weburl target=_blank><img src=$logourl border=0 width=88 height=31></a></td>";}else{$logourl="";}
print <<EOF;
<table cellSpacing=0 cellPadding=6 width=95% border=1 bordercolor=$bgcolor bgcolor=ffffff><tr><td align=middle width=30><img src=$imagurl/shareforum.gif></td>
<td width=100%><table border=0 width=100%>
<tr>$logourl<td width=100%><a href=$weburl target=_blank>$webname</a><br>$intro</tr></table>
</td></tr></table>
EOF
}}
print <<EOF;
<table border="0" width=95%><tr><td width=50% align=right>
EOF
$j=$size;
while ($j>0) {
print "<a href=list.cgi?menu=show&page=$ii>" if ($page != $ii);
print "[$ii]</a>";
$j=$j-$listpage;
$ii--;
}
print <<EOF;
</td><td width=50% align=center><font color=C0C0C0 style=font-size:7pt>Powered by Yuzi Studios &copy; 2001<br>
Yuzi Bulletin Board Version<font style=font-size:7pt><sup><b>TM</b></sup></font> $ver</td></tr></table></center></div></body></html>
EOF
exit;
}
##########
sub index{
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<link REL="SHORTCUT ICON" href=$imagurl/ybb.ico>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<SCRIPT>
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
12 下一页
💿 文件大小 537 K
👤 上传用户 invill
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#黑客
⌨️ 快捷键说明

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