📄 forums.cgi
字号:
elsif ($cstartnewthreads eq "all") { $folderpicture = qq~<img src=$imagesurl/images/folderallnew.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
elsif ($cstartnewthreads eq "cert") { $folderpicture = qq~<img src=$imagesurl/images/rzfoldernew.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
$cposts = qq~<font color=$fonthighlight><b>$cposts</b>~;
$cthreads = qq~<font color=$fonthighlight><b>$cthreads</b>~;
}
else {
if (($cforumpass)||($cprivateforum eq "yes")){ $folderpicture = qq~<img src=$imagesurl/images/lock_b.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
elsif ($cstartnewthreads eq "follow") { $folderpicture = qq~<img src=$imagesurl/images/follow.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
elsif ($cstartnewthreads eq "yes") { $folderpicture = qq~<img src=$imagesurl/images/folder.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
elsif ($cstartnewthreads eq "all") { $folderpicture = qq~<img src=$imagesurl/images/folderall.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
elsif ($cstartnewthreads eq "cert") { $folderpicture = qq~<img src=$imagesurl/images/rzfolder.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
$cposts = qq~<font color=$forumfontcolor><b>$cposts</b>~;
$cthreads = qq~<font color=$forumfontcolor><b>$cthreads</b>~;
}
if ($cstartnewthreads eq "no") { $folderpicture = qq~<img src=$imagesurl/images/jinghua.gif width=13 height=16 border=0 style="cursor:hand" onClick="javascript:O4($cforumid)">~; }
$clastposterfilename = $clastposter;
$clastposterfilename =~ y/ /_/;
$clastposterfilename =~ tr/A-Z/a-z/;
$forumlastvisit = $forumlastvisit + $timeadd;
$lastdate = &longdate("$forumlastvisit");
$lasttime = &shorttime("$forumlastvisit");
if ($clastposttime) {
$clastposttime = $clastposttime + $timeadd;
$longdate = &longdate("$clastposttime");
$shorttime = &shorttime("$clastposttime");
$forumlastpost = qq~<BR><font color=$lastpostfontcolor> $longdate $shorttime</font><BR>~;
if ($clastposter=~/\(客\)/) {
$clastposter=~s/\(客\)//isg;
$clastposterby = qq~<font color=$fontcolormisc2 title="此为未注册用户"> 最后发表： $clastposter</font> <img src="$imagesurl/images/lastpost.gif" width=11 height=10>~;
}
else { $clastposterby = qq~<font color=$fontcolormisc2> 最后发表： </font><span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $clastposterfilename : uri_escape($clastposterfilename)) . qq~')">$clastposter</span> <img src="$imagesurl/images/lastpost.gif" width=11 height=10>~; }
}
else { $forumlastpost = qq~<font color=$lastpostfontcolor> 没有帖子</font>~; $clastposterby = ""; }
if ((($cprivateforum ne "yes")||($membercode eq "ad")||($membercode eq "smo"))&&($topictitle)) {
my $topictitletemp = $topictitle;
$topictitletemp =~ s/\</</g;
$topictitletemp =~ s/\>/>/g;
$topictitletemp =~ s/\ / /g;
$topictitletemp =~ s/\&/\&/g;
$topictitletemp =~ s/ \ / /g;
$topictitletemp = &lbhz($topictitle,18);
$topictitletemp =~ s/\&/\&/g;
$topictitletemp =~ s/</\</g;
$topictitletemp =~ s/>/\>/g;
$lastpost = qq~<font color=$fontcolormisc2> 主题： </font><a href=topic.cgi?forum=$cforumid&topic=$threadnumber&replynum=last TITLE="$topictitle">$topictitletemp</a><BR>~;
}
else { $lastpost = ""; }
$forumbookmark = qq~<span style="CURSOR: hand" onClick="window.external.AddFavorite('$boardurl/forums.cgi?forum=$cforumid', '$boardname - $cforumnameadd1')"><IMG SRC=$imagesurl/images/fav_add.gif BORDER=0 width=15 height=15 ALT="将$cforumnameadd添加到收藏夹"></span>~;
if ($chiddenforum eq "yes") { $hiddeninfo = " <I>(隐含)</I>"; } else { $hiddeninfo = ""; }
if ($cteamlogo eq "") { $team=""; }
elsif (($cteamurl eq "")||($cteamurl eq "http://")) { $team=qq~<img src=$imagesurl/myimages/$cteamlogo>~; }
else { $team=qq~<a href=$cteamurl><img src=$imagesurl/myimages/$cteamlogo border=0></a>~; }
if ($forumnamedisp eq 1) { $cforumnamelink = qq~<table width=100% cellpadding=2 cellspacing=0><tr><td width=93%>$cforumname$hiddeninfo</td><td width=11><a href=post.cgi?action=new&forum=$cforumid><img src="$imagesurl/images/fpost2.gif" alt="在此分论坛发表新主题" width=11 border=0></a></td><td width=11><a href=poll.cgi?action=new&forum=$cforumid><img src="$imagesurl/images/fpost1.gif" alt="在此分论坛发表新投票" width=11 border=0></a></td><td width=11><a href=jinghua.cgi?action=list&forum=$cforumid><img src="$imagesurl/images/fpost3.gif" alt="查看此分论坛的精华帖子" width=11 border=0></a></td></tr><tr><td colspan=4 width=100%><img src=$imagesurl/images/forumme.gif width=10> <font color=$forumfontcolor>$cforumdescription</td></tr></table></td></tr></table>~; }
else { $cforumnamelink = "$cforumname$hiddeninfo<font color=$forumfontcolor><br><img src=$imagesurl/images/forumme.gif width=10> $cforumdescription</td></tr></table>"; }
$output .= qq~<table cellpadding=6 cellspacing=0 width=$tablewidth height=24 align=center bordercolor=$tablebordercolor border=1>
<tr><td bgcolor=$forumcolorone align=center width=26>$folderpicture</td>
<td bgcolor=$forumcolortwo valign=top width=*>
<table width=100% cellpadding=1><tr><td width=3%>$team</td><td width=1></td><td width=97%>$cforumnamelink</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>$cthreads <BR>$cposts </td></tr></table></td>
<td bgcolor=$forumcolorone width=168><font color=$lastpostfontcolor>$lastpost$clastposterby$forumlastpost</td>
<td bgcolor=$forumcolortwo align=center width=26>$forumbookmark</td>
</tr></table>~;
}
$lastcategoryplace = $ccategoryplace;
undef $cforummoderator; undef $modout; undef $forumbookmark;
}
$output.=qq~<BR>~;
}
}
$output.=qq~
<table cellpadding=0 cellspacing=0 width=$tablewidth align=center>
<tr><td align=center width=2></td><td>$newthreadbutton</td><td align=right colspan=2>$modoutput </td>
<form action="jinghua.cgi" method=post name="JingHua">
<input type=hidden name="action" value="add">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic">
</form>
</tr></table>
<table cellpadding=0 cellspacing=0 width=$tablewidth align=center><tr><td align=right width=*>$jinghua$fav$lookstyles</td>$orderdisplyed<td align=center width=4></td></tr></table>
<table cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<form action="delpost.cgi" name=Action method=post>
<input type=hidden name="forum" value="$inforum"><input type=hidden name="action" value="delete">
<tr><td height=1></td></tr></table><center>
<table cellpadding=0 cellspacing=0 width=$tablewidth height=24 bordercolor=$tablebordercolor border=1>
<tr><td bgcolor=$titlecolor width=32 align=center $catbacks><font color=$titlefontcolor><b>状态</b></td>
<td bgcolor=$titlecolor width=* align=center $catbacks><font color=$titlefontcolor><b>主 题</b> (点心情符为新闻方式阅读)</td>
<td bgcolor=$titlecolor align=center width=80 $catbacks><font color=$titlefontcolor><b>作 者</b></td>
<td bgcolor=$titlecolor align=center width=32 $catbacks><font color=$titlefontcolor><b>回复</b></td>
<td bgcolor=$titlecolor align=center width=32 $catbacks><font color=$titlefontcolor><b>点击</b></td>
<td bgcolor=$titlecolor width=195 align=center $catbacks><font color=$titlefontcolor><b> 最后更新 | 最后回复人</b></td>
$multimanage</tr></table>
~;
if ((-e "${lbdir}boarddata/jinghua$inforum.cgi")&&($usejhpoint eq "yes")) {
open(FILE, "${lbdir}boarddata/jinghua$inforum.cgi");
my @jhdatas = <FILE>;
close(FILE);
$jhdata = join("\_",@jhdatas);
$jhdata = "\_$jhdata\_";
$jhdata =~ s/\W//isg;
}
&getlist;
$numberofpages = $numberofitems / 25;
if ($numberofitems > 25) {
$showmore = "yes";
if ($inshow eq "" || $inshow < 0) { $inshow = 0; }
if ($inshow > 0) { $startarray = $inshow; } else { $startarray = 0; }
$endarray = $inshow + 25 - 1;
if ($endarray < ($numberofitems - 1)) { $more = "yes"; }
elsif (($endarray > (25 - 1)) && ($more ne "yes")) { $endarray = $numberofitems -1; }
}
else {
$showmore = "no";
$startarray = 0;
$topicpages = qq~<font color=$menufontcolor>本论坛只有一页</font>~;
$endarray = $numberofitems -1;
}
if (($inthreadages)&&($inthreadages ne "all")) { $threadagesstart = "&threadages=$inthreadages"; } else { undef $threadagesstart; }
if ($showmore eq "yes") {
if (25 < $numberofitems) {
($integer,$decimal) = split(/\./,$numberofpages);
if ($decimal > 0) { $numberofpages = $integer + 1; }
$mypages=$numberofpages;
#分页
$intshow=$inshow/(7*25);
($intshow,$mydecimal) = split(/\./,$intshow);
$intshow = $intshow + 1;
$preshow=($intshow-1)*7*25-25;
$nextshow=$intshow*7*25;
$pages=qq~<a href=$thisprog?forum=$inforum&show=$preshow$threadagesstart class=hb>←</a> ~ if ($intshow > 1);
if ($numberofpages > ($intshow*7)){
$numberofpages=($intshow*7);
$isnext=qq~<a href=$thisprog?forum=$inforum&show=$nextshow$threadagesstart class=hb>→</a> ~;
}
$pagestart = ($intshow-1)*7*25;
$counter = ($intshow-1)*7;
while ($numberofpages > $counter) {
$counter++;
if ($inshow ne $pagestart) { $pages .= qq~<a href=$thisprog?forum=$inforum&show=$pagestart$threadagesstart class=hb>$counter</a> ~; }
else {
$pages .= qq~<font color=$fonthighlight><b>$counter</b></font> ~;
if ($counter ne "1") {
$pagenow = $counter - 1;
$pageup = $pagestart - 25;
$showup = qq~<a href="$thisprog?forum=$inforum&show=$pageup$threadagesstart" title="第$pagenow页" ><font face=webdings >7</font></a> ~;
} else { $showup = qq~<font color=$fonthighlight><font face=webdings >7</font></font>~; }
if ($mypages > $counter) {
$pagenow = $counter + 1;
$pagedown = $pagestart + 25;
$showdown = qq~<a href="$thisprog?forum=$inforum&show=$pagedown$threadagesstart" title="第$pagenow页" ><font face=webdings >8</font></a> ~;
} else { $showdown = qq~<font color=$fonthighlight><font face=webdings >8</font></font>~; }
}
$pagestart = $pagestart + 25;
}
$pages .= $isnext;
#分页end
}
if ($inshow ne "0") { $beginpage=qq~<a href="$thisprog?forum=$inforum&show=0$threadagesstart" title="首 页" ><font face=webdings >9</font></a> ~; } else { $beginpage=qq~<font color=$fonthighlight><font face=webdings >9</font></font>~; }
$showend=($mypages-1)*25;
if ($inshow ne $showend) { $endpage=qq~<a href="$thisprog?forum=$inforum&show=$showend$threadagesstart" title="尾 页" ><font face=webdings >:</font></a> ~; } else { $endpage=qq~<font color=$fonthighlight><font face=webdings >:</font></font>~; }
$topicpages = qq~<font color=$menufontcolor><b>共 <font color=$fonthighlight>$mypages</font> 页</b> $beginpage $showup [ $pages ] $showdown $endpage~;
}
$abstopcount = 0;
undef @absontop;
if ($dispabstop ne "0") {
if (open(FILE, "${lbdir}boarddata/absontop.cgi")) {
@absontop = <FILE>;
close(FILE);
}
$absontopdata = join("\_",@absontop);
$absontopdata = "\_$absontopdata\_";
$absontopdata =~ s/[^\w\|]//isg;
$abstopcount = @absontop;
}
undef @catontop;
$cattopcount = 0;
if ($dispcattop ne "0")
{
if (open(FILE, "${lbdir}boarddata/catontop$categoryplace.cgi"))
{
@catontop = <FILE>;
close(FILE);
}
$catontopdata = join("_", @catontop);
$catontopdata = "\_$catontopdata\_";
$catontopdata =~ s/[^\w\|]//isg;
$cattopcount = @catontop;
}
$topcount = 0;
undef @ontop;
if (open(FILE, "${lbdir}boarddata/ontop$inforum.cgi")) {
@ontop = <FILE>;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -