📄 list.cgi

📁 BBS3000 sourceCode
💻 CGI
📖 第 1 页 / 共 2 页
字号:
12 下一页
#!/usr/bin/perl
#------------------------------------------------------#
#                 本程序为Yuzi工作室提供	       #
#                Yuzi论坛3000 v3.20 免费版             #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
$perpage  = 20;
$title ="$imagurl/phb.gif";
$list="$filepath/data/list.cgi";
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);
$FORM{$name} = $value;
}
$page    =$FORM{'page'};
$username = $FORM{'username'};
$menu = $FORM{'menu'};
$id = $FORM{'id'};
&GetCookies;
if ($username eq ""){$username=$Cookies{username}};
if ($userpsd eq ""){$userpsd=$Cookies{password}};
if($menu eq "many"){&many; exit;}
if($menu eq "show"){&show; exit;}
&index;
exit;
##########
sub show{
$filename="$people";
($sec,$min,$hour,$mday,$mon,$year)=localtime(time);
$mon=$mon+1;
$year=$year+1900;
$people=1;
open (FILE,"$filename");
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;
open (FILE,">$filename");
for ($i=0;$i<$SIZE;$i++)
{
$_=$LINES[$i];
($addr,$come_hour,$come_min,$come_sec,$host,$come_time,$olduser)=split(/,/,$_);
$flag=($hour-$come_hour)*3600+($min-$come_min)*60+($sec-$come_sec);
if ( $addr eq "$ENV{'REMOTE_ADDR'}" ) {
print FILE "$ENV{'REMOTE_ADDR'},$hour,$min,$sec,$ENV{'REMOTE_HOST'},$come_time,$username,$id\n";
$check=1;
}
elsif ($flag < 120 && $flag > 0) {
print FILE $_;
$people++;
}
}
if ($check == 0) {
print FILE "$ENV{'REMOTE_ADDR'},$hour,$min,$sec,$ENV{'REMOTE_HOST'},$hour:$min:$sec,$username,$id\n";
}
close (FILE);
open(ROOM,"$list");
@lines=<ROOM>;
close(ROOM);
$size=@lines;
&send_html;
$ii=0;
$j=$size;
while ($j>0) {
$j=$j-$perpage;
$ii++;
}
opendir(mmm,"$filepath/yhzl");
@mmm=readdir(mmm);
closedir(mmm);
$mmm=@mmm;
$mmm=$mmm-2;
print <<EOF;
<HTML><HEAD><LINK href="$imagurl/bbs.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript">
popup = window.open('', 'yuzi');
popup.location.href = 'list.cgi?menu=many';
</script>
</HEAD>
<BODY text=#000000 vLink=#0099cc aLink=#0099cc link=#0099cc bgColor=#ffffff leftMargin=0 background="$imagurl/bg.gif" topMargin=0 rightMargin=0 marginwidth="0" marginheight="0">
<CENTER>
<TABLE width="90%" border=0>
<TBODY>
<TR>
<TD></TD>
</FONT>
<TD align=middle>
<IMG src="$imagurl/bbtitle5.gif">
<BR><FONT size=1><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="cjyh.cgi"><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> </FONT></FONT>
</TD></TR></TBODY></TABLE></CENTER>
<CENTER>
<TABLE cellPadding=0 width="90%" border=0>
<TBODY>
<TR>
<TD vAlign=bottom align=left>
<FONT size=2>
<script language=JavaScript>
today=new Date();
function initArray(){
this.length=initArray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initArray.arguments[i]  }
var d=new initArray(
"星期日",
"星期一",
"星期二",
"星期三",
"星期四",
"星期五",
"星期六");
document.write(
"<font color=##000000 style='font-size:9pt;font-family: 宋体'> ",
today.getYear(),"年",
today.getMonth()+1,"月",
today.getDate(),"日 ",
d[today.getDay()+1],
"</font>" );
</script>
</body>
</FONT>
</TD>
<TD>$username <script language="javaScript">
now = new Date(),hour = now.getHours()
if(hour < 6){document.write("凌晨好!")}
else if (hour < 9){document.write("早上好!")}
else if (hour < 12){document.write("上午好!")}
else if (hour < 14){document.write("中午好!")}
else if (hour < 17){document.write("下午好!")}
else if (hour < 19){document.write("傍晚好!")}
else if (hour < 22){document.write("晚上好!")}
else {document.write("夜里好!")}
</script> 欢迎光临</TD>
<TD>社区区长：<a href=yhreg.cgi?menu=viewuser&username=$admname target=_blank>$admname</a></TD>
<TD vAlign=bottom align=right>注册会员:<B>$mmm</B> </TD></TR></TBODY></TABLE>
EOF
foreach $line (@lines){
$line=~ s/\n//g;
$jms ="$filepath/data/list.cgi";
open(TMP,"$jms");
@line=<TMP>;
close(TMP);
}
open(TITLES,"$filepath/list/bbs");
@hastitles=<TITLES>;
close(TITLES);
$bbsdx=@hastitles;
print <<EOF;
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
<TBODY>
<TR>
<TD bgColor=#0099cc>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR bgColor=#99ccff>
<TD bgcolor="#99CCFF" width="5%">&nbsp;</TD>
<TD vAlign=bottom bgcolor="#99CCFF" width="45%"><B><FONT color=#ffffff size=1>论坛</FONT> </B> </TD>
<TD vAlign=middle noWrap align=middle bgcolor="#99CCFF" width="5%"><B><FONT color=#ffffff size=1>主题</FONT></B> </TD>
<TD vAlign=middle noWrap align=middle bgcolor="#99CCFF" width="22%"><B><FONT color=#ffffff size=1>最后发表</FONT></B> </TD>
<TD vAlign=middle align=center bgcolor="#99CCFF" width="13%"><B><FONT color=#ffffff size=1>版主</FONT> </B> </TD>
<TD vAlign=middle align=center bgColor=#99CCFF width="10%"><B><FONT color=#ffffff size=1>私人珍藏</FONT> </B> </TD>
</TR>
EOF
$chgcolor==0;
if($page eq ""){$page=1;}
$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);
$onlined="<a href=search.cgi?menu=add&add=$username1><IMG src=$imagurl/fav_add.gif border=0></a>";
if ( -e "$filepath/guest/3$username.cgi"){
open (PEO,"$filepath/guest/3$username.cgi");
@lineszd=<PEO>;
close (PEO);
foreach $lineszds (@lineszd) {
$lineszds=~ s/\n//g;
($rnamezd)=split(/,/,$lineszds);
if ($rnamezd eq $username1){$onlined="<a href=search.cgi?menu=del&add=$username1><IMG src=$imagurl/fav_del.gif border=0></a>";
}
}
}
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");
$m=<TITLES>;
close(TITLES);
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$m);
$bbsbook  ="$filepath/list/$username1/bbs";
$rq=(-M "$bbsbook");
open(TITLES,"$bbsbook");
@hastitles=<TITLES>;
close(TITLES);
$hastitle=@hastitles;
$wzs=$hastitle;
$hastitle=@hastitles[0];
($rrrr)=split(/,/,$hastitle);
if ( -e "$filepath/list/$username1/$rrrr"){
}else{
open(fff,"$filepath/list/$username1/$rrrr");
$fff=<fff>;
close(fff);
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee)=split(/\t/,$fff);
if($rlastname eq "--"){$rlastname=$rusername};
}
if($chgcolor==0){
$chgcolor=0;
print <<EOF;
<TR>
<TD vAlign=top align=middle bgColor=#ffffff>
EOF
if($rq < "1"){
print "<img src=$imagurl/on.gif>";
}else{
print "<img src=$imagurl/off.gif>";
}
print <<EOF;
</TD>
<TD vAlign=top bgColor=#ffffff>
<a href=bbs.cgi?id=$username1>$rtitle</a><br>$jj</TD>
<TD vAlign=middle noWrap align=middle bgColor=#99ccff>$wzs</TD>
<TD noWrap align=middle bgcolor=#FFFFFF>
$rlasttime<br><a href=yhreg.cgi?menu=viewuser&username=$rlastname target=_blank>$rlastname</a></TD>
<TD vAlign=middle bgcolor=#99CCFF align="center"><a href=yhreg.cgi?menu=viewuser&username=$rname target=_blank>$rname</a> <a href=yhreg.cgi?menu=viewuser&username=$fbzmc target=_blank>$fbzmc</a></TD>
<TD vAlign=middle bgColor=#ffffff align="center">
$onlined
</TD>
</TR>
EOF
$rlastname="";
$rlasttime="";
}
}
12 下一页
💿 文件大小 375 K
👤 上传用户 demonray
📂 所属分类其他
🏷️ 相关标签

#sourceCode #3000 #BBS
⌨️ 快捷键说明

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