周氏家族:::...Chous family - 在『雷傲論壇討論區』內發表文章

即時新聞快訊：

>> 歡迎您，訪客：登入論壇

按這裡註冊

忘記密碼

在線會員

文章搜尋

使用說明

>>> 有關雷傲論譠相關問題、下載資訊討論。
周氏家族:::...Chous family → 『家族視聽娛樂間』 → 『雷傲論壇討論區』 → 發表回覆

主題標題： [討論]各個版面獨立設置，允許進入的名單或限制不許進入的名單

您目前的身份是：訪客，要使用其他會員身份，請輸入會員名稱和密碼。未註冊訪客請輸入網名，密碼留空白。

請輸入您的會員名稱

您沒有註冊？

請輸入您的密碼

忘記密碼？

請輸入驗證碼（注意：必需輸入）

一共是四個數字，如果看不清楚，請先複製編輯的文章內容後再重新整理此頁

目前心情

將放在文章的前面

內容　

在此論壇中：

HTML 　標籤: 禁止使用

EMOTE　標籤: 禁止使用

LeoBBS 標籤: 可以使用

貼圖標籤　 : 允許

Flash 標籤 : 允許

音樂標籤　 : 允許

文字大小　 : 允許

文章數標籤 : 允許

積分標籤　 : 允許

保密標籤　 : 允許

允許使用表情符號轉換

　『 HTML 編輯器』『 ASCII 字型產生器』『文字內容取代』

模式:使用說明　完全　基本　　>> 複製到剪貼簿 | 查看長度 | 轉換剪貼簿超文字 <<

點選表情圖即可在文章中加入相關的表情

選項

使用 LeoBBS 標籤？
是否顯示您的簽名檔？
您是否希望使用表情符號轉換在您的文章中？
使用字型樣式轉換？
加密此文章，只對部分會員可見，會員威望至少需要
出售此文章，只有付錢才可以查看，售價周元 (收取稅率: 3%)

文章一覽：[討論]各個版面獨立設置，允許進入的名單或限制不許進入的名單 (新回覆在最前面,最多列出 6 個)　 [列出所有回覆]

POP 發表於： 2003/08/28 08:41pm

1.論壇最新文章不顯示
post.cgi
找到
if (($privateforum ne "yes")&&($startnewthreads ne "pay")) {
$filetomakeopen = "$lbdir" . "data/recentpost.cgi";
改成
if (($privateforum ne "yes")&&($startnewthreads ne "pay")&&($allowusers eq "")) {
$filetomakeopen = "$lbdir" . "data/recentpost.cgi";

2.最後回覆的不顯示
leoboard.cgi
找到
else { $lastpost = ""; }
加上
if (-e "${lbdir}data/style${forumid}.cgi") {
require "${lbdir}data/style${forumid}.cgi";
if ($allowusers ne "") {
$forumlastpost = qq~<font color=$lastpostfontcolor> 保密論壇</font>~;
$lastposterby = "";
$lastpost = "";
}
}

麻煩在試試看...

5555 發表於： 2003/08/28 00:27am

下面引用由POP在 2003/08/27 10:48pm 發表的內容：
改過以後因為記錄已經存在
所以當然還會顯示阿

不是.......................................

應該是說..改完後重新上傳更新檔案後！

在那發一個帖～還是會顯示！！

POP 發表於： 2003/08/27 10:48pm

改過以後因為記錄已經存在
所以當然還會顯示阿

5555 發表於： 2003/08/27 08:16pm

藍色框起來的部分是只有會員自己可以看到！所以每個人都會不一樣！

紅色框起來的部分是論壇新帖～每個人都一樣～改過後還是會顯示!

POP 發表於： 2003/08/27 05:52pm

我指的是只有"論壇最新發表主題"

這一向不寫入記錄中

其他要再看看...

5555 發表於： 2003/08/26 11:25pm

下面引用由POP在 2003/08/26 06:39pm 發表的內容：
我現在才發現3.08和3.01真的不一樣
先測試leoboard是否會通過好了
leoboard.cgi
找到
...

執行上～沒問題ㄟ
只是還是沒辦法隱藏
不知是不是我論壇新帖的調用法有關??

以下是我首頁的調用法
leoboard.cgi
找到：
$output .= qq~<br><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>~;
在後面加入：
if ($maxpersontopic && $inmembername ne "客人")
{
$myposts = &getmytopic("post");
$myreplys = &getmytopic("reply");
$newtopics = &getmytopic("all");
$output .= qq~<tr><td bgcolor=$titlecolor width=30%><b>-=> 我被回復的主題：</b></td><td bgcolor=$titlecolor width=30%><b>-=> 我參與討論的主題：</b></td><td bgcolor=$titlecolor width=*><b>-=> 論壇最新發表主題：</b></td></tr><tr><td bgcolor=$forumcolorone valign=top style="line-height: 130%">$myposts</td><td bgcolor=$forumcolortwo valign=top style="line-height: 130%">$myreplys</td><td bgcolor=$forumcolortwo valign=top style="line-height: 130%">$newtopics</td></tr></table></td></tr></table>~;
$output .= qq~<br><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>~;
}

找到：
END {
if ($cpudisp eq "1") {
$TT1 = new Benchmark;
$td = Benchmark::timediff($TT1, $TT0);
$td = Benchmark::timestr($td);
$td =~ /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s*sys/i;
print "<center><font color=$#c0c0c0>程式佔用 CPU 時間：$2 usr + $3 sys";
}
}
在前面加入：
sub getmytopic
{
my $mode = shift;
if ($mode eq "all")
{
$filetoopen = $lbdir . "data/recentpost.cgi";
}
else
{
$filetoopen = $lbdir . "mytopic/" . $mode . "/" . $memberfilename . ".cgi";
$filetoopen = &stripMETA($filetoopen);
}
my @temptopics;
if (-e $filetoopen)
{
open(FILE, $filetoopen);
@temptopics = <FILE>;
close(FILE);
}
my $mytopics = "";
if (@temptopics)
{
foreach (@temptopics)
{
chomp($_);
my ($tempinforum, $tempintopic, $temptopictitle, $tempcurrenttime, $tempposticon, $tempmembername) = split(/\t/, $_);
if (($tempposticon eq "") || ($tempposticon !~ /^[0-9]+\.gif$/i))
{
$tempposticon = int(rand(23));
if ($tempposticon <10 )
{
$tempposticon = "0$tempposticon.gif";
}
else
{
$tempposticon = "$tempposticon.gif";
}
}
$temptopictitle =~ s/\&/\&/g;
$temptopictitle =~ s/\"/\"/g;
$temptopictitle =~ s/\</</g;
$temptopictitle =~ s/\>/>/g;
$temptopictitle =~ s/\ / /g;
if (length($temptopictitle) > 30)
{
$temptopictitle = substr($temptopictitle, 0, 26);
if ($temptopictitle =~ /^([\000-\177]|[\200-\377][\200-\377])*([\000-\177]|[\200-\377][\200-\377])$/)
{
$temptopictitle .= " ...";
}
else
{
chop($temptopictitle);
$temptopictitle .= "　...";
}
}
else
{
my $addspace = 30 - length($temptopictitle);
for (my $i = 0; $i < $addspace; $i++) {$temptopictitle .= " ";}
}
$temptopictitle =~ s/\&/\&/g;
$temptopictitle =~ s/\"/\"/g;
$temptopictitle =~ s/</\</g;
$temptopictitle =~ s/>/\>/g;
$temptopictitle =~ s/ /\ /g;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($tempcurrenttime + $timezone * 3600 + $timedifferencevalue * 3600);
$year += 1900;
$mon++;
$mon = "0$mon" if ($mon < 10);
$mday = "0$mday" if ($mday < 10);
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$tempcurrenttime = "$year/$mon/$mday $hour:$min";
if ($mode eq "all")
{
$mytopics .= qq~<img src=$imagesurl/posticons/$tempposticon border=0> <a href=$boardurl/topic.cgi?forum=$tempinforum&topic=$tempintopic target=_blank title="帖子發表時間: $tempcurrenttime">$temptopictitle</a>[<a href=profile.cgi?action=show&member=$tempmembername title="點擊查看$tempmembername的資料" target=_blank>$tempmembername</a>]<br>~;
}
elsif ($mode eq "post")
{
$mytopics .= qq~<img src=$imagesurl/posticons/$tempposticon border=0> <a href=$boardurl/topic.cgi?forum=$tempinforum&topic=$tempintopic target=_blank title="最後回復時間: $tempcurrenttime">$temptopictitle</a><br>~;
}
else
{
$mytopics .= qq~<img src=$imagesurl/posticons/$tempposticon border=0> <a href=$boardurl/topic.cgi?forum=$tempinforum&topic=$tempintopic target=_blank title="最後參與時間: $tempcurrenttime">$temptopictitle</a><br>~;
}
}
}
else
{
$mytopics = "　暫時沒有記錄";
}
return $mytopics;
}

本論壇言論純屬發言者個人意見，與 周氏家族:::...Chous family 立場無關