📄 leoboard.cgi
字号:
<table width=100% cellpadding=1><tr><td width=3%>$team</td><td width=1></td><td width=97%>$forumnamelink</td>
<td bgcolor=$forumcolorone align=center width=80><font color=$forumfontcolor>$modout</td>
<td bgcolor=$forumcolortwo align=left width=97><table width=100% cellpadding=0 cellspacing=0><tr><td align=left><font color=$fontcolormisc2> 主题：<BR> 回复：</td><td align=right>$threads <BR>$posts </td></tr></table></td>
<td bgcolor=$forumcolorone width=168><font color=$lastpostfontcolor>$lastpost$lastposterby$forumlastpost</td>
<td bgcolor=$forumcolortwo align=center width=26>$forumbookmark</td>
</tr></table>~;
}
$lastcategoryplace = $categoryplace;
undef $forumlastvisit; undef $forummoderator; undef $modout; undef $forumbookmark;
}
$output .= qq~<br><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>~;
$leomemory = qq~<a href=http://www.LeoBBS.com target=_blank><img src=$imagesurl/images/powered.gif width=88 height=31 border=0 title="-------------------------- ☆ -------------------------\n 雷傲论坛(LeoBoard)由 CGI 编程者之家制作 \n 正版标示： Powered By CGIer.com \n 感谢您采用我们的论坛，让我们做的更好！ \n-------------------------- ☆ -------------------------"></a>~;
if (($lmforums ne "")&&($lmforums > 0)) {
$leomemory1 = qq~<a href=http://www.cgier.com target=_blank><img src=$imagesurl/images/ad8831.gif width=88 height=31 border=0 title="-------------------------- ☆ -------------------------\n 雷傲论坛(LeoBoard)由 CGI 编程者之家制作 \n 正版标示： Powered By CGIer.com \n 感谢您采用我们的论坛，让我们做的更好！ \n-------------------------- ☆ -------------------------"></a>~;
$output .= qq~
<tr><td bgcolor=$titlecolor colspan=2>
<font color=$titlefontcolor><b>-=> 联盟论坛 $uniontitle</b> [<a href=$thisprog?action=union><font color=$fontcolormisc>$unionview</font></a>] [<span style="cursor:hand" onClick="javascript:openScript('lmcode.cgi',480,240)">论坛联盟代码</span>]
</td></tr>
~;
if ($union == 1){
$lmtexts = "";
$lmlogos = "";
foreach $lmforum (@lmforums) {
chomp $lmforum;
next if ($lmforum eq "");
($lmforumname,$lmforumurl,$lmforuminfo,$lmforumorder,$lmweblogo) = split(/\t/,$lmforum);
if (($lmweblogo ne "")&&($lmweblogo ne "http:\/\/")) { $lmlogos .= qq~<a href=$lmforumurl target=_blank onmouseover="document.all.lmforum.stop();" onmouseout="document.all.lmforum.start();"><img src=$lmweblogo width=88 height=31 border=0 title="$lmforumname\n$lmforuminfo"></a> ~; }
else { $lmtexts .= qq~<a href=$lmforumurl target=_blank title="$lmforuminfo" onmouseover="document.all.lmforum1.stop();" onmouseout="document.all.lmforum1.start();">$lmforumname</a> ~; }
}
$output .= qq~<tr><td bgcolor=$forumcolorone width=26 align=center><img src=$imagesurl/images/shareforum.gif width=16 height=16></td><td bgcolor=$forumcolortwo width=*><table width=100% cellpadding=0 cellspacing=0><tr><td width=100%><img src=$imagesurl/images/none.gif width=500 height=1><BR><marquee name="lmforum" id="lmforum" behavior="alternate" direction="left" scrollamount="4" scrolldelay="1" hspace="0" vspace="0">$lmlogos</marquee></td><td width=100>$leomemory</td></tr></table></td></tr>~ if ($lmlogos ne "");
$output .= qq~<tr><td bgcolor=$forumcolorone width=26 align=center><img src=$imagesurl/images/shareforum.gif width=16 height=16></td><td bgcolor=$forumcolortwo width=*><table width=100% cellpadding=0 cellspacing=0><tr><td width=100%><img src=$imagesurl/images/none.gif width=500 height=1><BR><marquee name="lmforum1" id="lmforum1" behavior="alternate" direction="left" scrollamount="4" scrolldelay="1" hspace="0" vspace="0">$lmtexts</marquee></td><td width=100>$leomemory1</td></tr></table></td></tr>~ if ($lmtexts ne "");
}
}
$output .= qq~
</table></td></tr></table><img src=$imagesurl/images/none.gif width=10 height=5><br>
~;
if ($dispborn ne "no") {
&birthday;
unless (($dispborn eq "auto")&&($birthdayuser eq "")) {
$birthdayuser = "今天没有人过生日" if ($birthdayuser eq "");
$output .= qq~
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor colspan=7><font color=$titlefontcolor>
<B>-=> 今天过生日的注册用户 （共 $borncount 人） [ <a href="$imagesurl/images/rili.htm" target=_blank>论坛日历</a> ]</td></tr>
<tr><td bgcolor=$forumcolorone align=center width=26><img src=$imagesurl/images/born.gif alt="今天过生日人员名单" width=16 height=16></td>
<td bgcolor=$forumcolortwo colspan=6 width=*><img src=$imagesurl/images/none.gif width=400 height=0><br>
<font color=$forumfontcolor>$birthdayuser
</td></tr>~;
}
}
$onlinemaxtime = &dateformatshort($onlinemaxtime + $timeadd);
if ($otherbackpic ne "") { $otherbackpic = "background=$imagesurl/myimages/$otherbackpic"; }
if ($otherbackpic1 ne "") { $otherbackpic1 = "background=$imagesurl/myimages/$otherbackpic1"; }
$output .= qq~
</table></td></tr></table><img src=$imagesurl/images/none.gif width=10 height=5><br>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor colspan=7><font color=$titlefontcolor>
<B>-=> 论坛在线统计 （同时在线峰值：$onlinemax 人，发生时刻：$onlinemaxtime）</B> [$onlinetitle]</td></tr>
<tr><td bgcolor=$forumcolorone align=center width=26><img src=$imagesurl/images/online.gif alt="论坛在线人数" width=16 height=16></td>
<td bgcolor=$forumcolortwo colspan=6 width=* $otherbackpic><font color=$titlefontcolor>
<font color=$forumfontcolor>$membertongji $createday论坛总共被访问 <b>$count1</b> 次，共被点击 <b>$count2</b> 次。<BR></font>
~;
if ($onlineview == 1) {
$output .= qq~ <font color=$forumfontcolor>在线图例： <img src=$imagesurl/images/messages0.gif width=12> 论坛坛主 <img src=$imagesurl/images/messages6.gif width=12> 论坛总版主 <img src=$imagesurl/images/messages3.gif width=12> 分类区版主 <img src=$imagesurl/images/messages4.gif width=12> 论坛版主 <img src=$imagesurl/images/messages5.gif width=12> 认证会员 <img src=$imagesurl/images/messages1.gif width=12> 普通会员 <img src=$imagesurl/images/messages2.gif width=12> 客人或隐身会员<br><hr size=1 width=99%><table cellpadding=1 cellspacing=0 border=0><tr>$memberoutput</tr></table>~;
}
if ($dispview eq "yes") {
$output .= qq~</td></tr></table></td></tr></table><img src=$imagesurl/images/none.gif width=9 height=5><br>
<table cellspacing=0 cellpadding=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellspacing=1 cellpadding=3 width=100%>
<tr><td width=75% bgcolor=$titlecolor><b> -=> LB5000MX 论坛图例</td>
<td align=right noWrap bgcolor=$titlecolor width=25%>所有时间均为 - $basetimes </td></tr>
<tr><td bgcolor=$forumcolortwo colspan=3 $otherbackpic1>
<table cellspacing=4 cellpadding=0 width=92% align=center>
<tr><td colspan=6>论坛图例仅当你登录并且上次访问后才显示 $loginmessage</font></div></td></tr>
<tr><td><font color=$fonthighlight TITLE=允许注册会员发言和回复>正规论坛</font></td>
<td><font color=$fonthighlight TITLE=允许任何人发言和回复>开放论坛</font></td>
<td><font color=$fonthighlight TITLE=允许坛主和版主发言，其他注册用户只能回复>评论论坛</font></td>
<td><font color=$fonthighlight TITLE=允许拥有访问密码或已经经过认证的注册会员发言>保密论坛</font></td>
<td><font color=$fonthighlight TITLE=允许认证会员发言和回复>认证论坛</font></td>
<td colspan=2><font color=$fonthighlight>特殊论坛</font></td></tr>
<tr><td><img src=$imagesurl/images/foldernew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/folderallnew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/follownew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/lock_l.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/rzfoldernew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/jinghua.gif width=13 height=16 TITLE=只允许坛主和版主发言和操作> 只读精华区</td>
<td align=right valign=top rowspan=2>$leomemory</td></tr>
<tr><td><img src=$imagesurl/images/folder.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/folderall.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/follow.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/lock_b.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/rzfolder.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/shareforum.gif width=16 height=16 TITLE=和本论坛友情链接的联盟论坛> 联盟论坛区</td></tr>
</table>~;
}
if (($displink eq "yes")&&($links ne "")) {
$output .= qq~</td></tr></table></td></tr></table><img src=$imagesurl/images/none.gif width=9 height=5><br>
<table cellspacing=0 cellpadding=0 width=$tablewidth bgcolor=$tablebordercolor align=center border=0>
<tr><td><table cellspacing=1 cellpadding=3 width=100% border=0>
<tr><td bgcolor=$titlecolor colspan=7><font color=$titlefontcolor><B>-=> 首页连接</td></tr>
<tr><td bgcolor=$forumcolortwo colspan=7 width=*><font color=$titlefontcolor>
<font color=$forumfontcolor>$links
~;
}
my $timenow = $currenttime + $timeadd;
my $timenow1 = &longdate("$timenow");
my $timenow2 = &shorttime("$timenow");
$output .= qq~</td></tr></table></td></tr></table><img src=$imagesurl/images/none.gif width=9 height=5><br>
<table cellspacing=0 cellpadding=0 width=$tablewidth align=center>
<tr><td> 现在时间是 $timenow1 $timenow2 ($basetimes)</td>
<td align=right noWrap>[ <a href=leoboard.cgi?action=delcookieall>删除论坛 cookie</a> ] :: [ <a href=leoboard.cgi?action=resetall>标记所有为已读</a> ] :: [ <a href=$thisprog?action=expand>展开所有分类</a> ] :: [ <a href=$thisprog?action=depand>收缩所有分类</a> ] </td></tr>
</table><center><br>$adfoot</center>~;
&output( -Title => "$boardname", -ToPrint => $output, -Version => $versionnumber );
exit;
sub birthday {
$birthdayuser = "";
$borncount = 0;
my $filedate = "";
my $nowtime = &shortdate($currenttime + $timeadd);
(my $nowy, my $nowm, my $nowd) = split(/\//, $nowtime);
my $filetoopen = "${lbdir}data/birthdaytoday.cgi";
if (-e $filetoopen) {
open (BDILE, "$filetoopen");
@birthdaytoday = <BDILE>;
close (BDILE);
$filedate=$birthdaytoday[0];
chomp $filedate;
}
if ($filedate ne $nowtime) {
my $lockfile = "$lbdir" . "lock/birthday.lck";
if (!(-e $lockfile)) {
open (LOCKBIRTH, ">$lockfile");
close (LOCKBIRTH);
undef @birthdaytoday;
my $filetomakeopen = "${lbdir}data/lbmember3.cgi";
open (MEMFILE, "$filetomakeopen");
my @memberdata = <MEMFILE>;
close (MEMFILE);
push(@birthdaytoday, "$nowtime\n");
foreach (@memberdata) {
chomp $_;
(my $users, my $borns) = split(/\t/,$_);
(my $unowy, my $unowm, my $unowd) = split(/\//, $borns);
if (($nowm eq $unowm)&&($nowd eq $unowd)) {
my $usersfilename = $users;
$usersfilename =~ s/ /\_/g;
$usersfilename =~ tr/A-Z/a-z/;
$unowy = $nowy - $unowy;
$unowy = $unowy - 1900 if ($unowy > 1900);
push(@birthdaytoday, "$users\t$usersfilename\t$unowy\t\n");
}
}
chomp @birthdaytoday;
open (BDILE, ">$filetoopen");
foreach (@birthdaytoday) {
chomp $_;
next if ($_ eq "");
print BDILE "$_\n";
}
close (BDILE);
unlink($lockfile);
} else {
(my $sec,my $no) = localtime($currenttime + $timeadd);
$sec = int($sec/12);
unlink($lockfile) if ($sec == 2);
}
}
shift(@birthdaytoday);
$borncount = @birthdaytoday;
foreach (@birthdaytoday) {
(my $users,my $usersfilename,my $unowy) = split(/\t/,$_);
$birthdayuser .= qq~<span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $usersfilename : uri_escape($usersfilename)) . qq~')" title=祝$unowy岁生日快乐！>$users</span>, ~;
}
chop $birthdayuser;
chop $birthdayuser;
undef @birthdaytoday;
}
END {
if ($cpudisp eq "1") {
$spent_time = sprintf ("%.2f", ((times)[0] + (times)[1] - $start_time)*1000);
print "<center><font color=#c0c0c0>当前页面执行消耗时间： $spent_time 毫秒";
}
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -