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

即時新聞快訊：

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

按這裡註冊

忘記密碼

在線會員

文章搜尋

使用說明

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

主題標題： [轉貼教學]文章主題印章

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

請輸入您的會員名稱

您沒有註冊？

請輸入您的密碼

忘記密碼？

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

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

目前心情

將放在文章的前面

內容　

在此論壇中：

HTML 　標籤: 禁止使用

EMOTE　標籤: 禁止使用

LeoBBS 標籤: 可以使用

貼圖標籤　 : 允許

Flash 標籤 : 允許

音樂標籤　 : 允許

文字大小　 : 允許

文章數標籤 : 允許

積分標籤　 : 允許

保密標籤　 : 允許

允許使用表情符號轉換

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

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

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

選項

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

文章一覽：[轉貼教學]文章主題印章 (新回覆在最前面,最多列出 6 個)　 [列出所有回覆]

POP 發表於： 2009/10/24 10:12am

[這篇文章最後由POP在 2020/01/31 00:43am 第 3 次編輯]

範例如本文抬頭的"推薦"印章落款
轉貼自:

1. postings.cgi
找到
'lowlight' => \&lowlight,
加上
#主題印章_S
'gz' => \&gz,
'ungz' => \&ungz,
#主題印章_E

在最底下加上
#主題印章_S
sub gz {
&mischeader("增加主題印章");
$cleartoedit = "no";
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if(($membercode eq 'smo') && ($inpassword eq $password)) {$cleartoedit = "yes";}
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
if ($cleartoedit eq "no" && $checked eq "yes") { &error("增加主題印章&您不是本論壇壇主或版主，或者您的密碼錯$LeoBBS_J_CHT！"); }
if (($cleartoedit eq "yes") && ($checked eq "yes")) {
$gaiz= $query -> param('gaiz');
if($gaiz eq ''){&error("請選擇$LeoBBS_A_CHT枚印章！");}
open (file,">${lbdir}forum$inforum/gz$intopic.pl");
print file "\$gz=\"$gaiz\";\n1;";
close(file);

&addadminlog("增加主題印章$lockreason", $intopic);
$output .= qq~<SCRIPT>valigntop()</SCRIPT><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic align=center><font color=$fontcolormisc><b>增加主題印章成功\</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具體情況：<ul><li><a href="forums.cgi?forum=$inforum">返回論壇</a><li><a href="leobbs.cgi">返回論壇首頁</a></ul></tr></td>
</table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
} else {
$inmembername =~ s/\_/ /g;
$output .= qq~<SCRIPT>valigntop()</SCRIPT><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="gz">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>請輸入您的會員名稱、密碼進入版主模式 [主題印章]</b></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2><font color=$titlefontcolor>您目前的身份是：<font color=$fonthighlight><B><u>$inmembername</u></B></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入您的會員名稱</font></td><td bgcolor=$miscbackone><input type=text name="membername"> <font color=$fontcolormisc><span onclick="javascript:location.href='register.cgi?forum=$inforum'" style="cursor:hand">您沒有註冊？</span></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入您的密碼</font></td><td bgcolor=$miscbackone><input type=password name="password"> <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘記密碼？</a></font></td></tr><tr><td bgcolor=$miscbackone colspan=2 align=center>
選擇合適的印章？<br>
<select name="gaiz"><option value=> 請選擇... <option value=1> 精華<option value=2>推薦<option value=3>好帖<option value=4>版主已閱\<option value=5>嚴重警告</select></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="確定印章？"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
~;
}
}

sub ungz {
&mischeader("取消主題印章");
$cleartoedit = "no";
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if(($membercode eq 'smo') && ($inpassword eq $password)) {$cleartoedit = "yes";}
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
if ($cleartoedit eq "no" && $checked eq "yes") { &error("取消主題印章&您不是本論壇壇主或版主，或者您的密碼錯$LeoBBS_J_CHT！"); }
else {
unlink "${lbdir}forum$inforum/gz$intopic.pl";
&addadminlog("取消主題印章$lockreason", $intopic);
$output .= qq~<SCRIPT>valigntop()</SCRIPT><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic align=center><font color=$fontcolormisc><b>取消主題印章成功\</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具體情況：<ul><li><a href="forums.cgi?forum=$inforum">返回論壇</a><li><a href="leobbs.cgi">返回論壇首頁</a></ul></tr></td>
</table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
}
}
#主題印章_E

2. topic.cgi
找到
if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")&&($dispquickreply ne "no")) { require "fastreplay.pl"; }
加上
#主題印章_S
if (-e "${lbdir}forum$inforum/gz$intopic.pl"&&($instart eq '0' || $instart eq '')){
eval{require"${lbdir}forum$inforum/gz$intopic.pl";};
$output.=qq~<DIV id=a01 onmouseover="this.style.display='none'"
style="Z-INDEX: 1; RIGHT: 450px; WIDTH: 20px; POSITION: absolute; TOP: 330px; HEIGHT: 100px"
onmouseout="this.style.display='';">
<TABLE height=80 cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD width="50%"></TD>
<TD width="50%" height=100><IMG src="$imagesurl/stamp/$gz.gif"
border=0></TD></TR></TBODY></TABLE></DIV>~;
}
#主題印章_E

找到
取消精華</a> <img src=$imagesurl/images/fg.gif>
加上
<a href=postings.cgi?action=gz&forum=$inforum&topic=$intopic>印章</a> <img src=$imagesurl/images/fg.gif>
<a href=postings.cgi?action=ungz&forum=$inforum&topic=$intopic>取消印章</a> <img src=$imagesurl/images/fg.gif>

3. forums.cgi
找到
$hllink=($highlight=~m/\_$forumid-$topicid\_/i)?"<a href=postings.cgi?action=lowlight&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加重</font></a>":"<a href=postings.cgi?action=highlight&forum=$forumid&topic=$topicid><font color=$titlecolor>加重</font></a>";
加上
$gzlink=(-e "${lbdir}forum$forumid/gz$topicid.pl")?"<a href=postings.cgi?action=ungz&forum=$forumid&topic=$topicid><font color=$titlecolor>取消印章</font></a>":"<a href=postings.cgi?action=gz&forum=$forumid&topic=$topicid><font color=$titlecolor>印</font></a>"; #主題印章

找到|$hllink|(共兩處)並加上|$gzlink|
|$hllink|$gzlink|

4. 下載以下圖片並存入non-cgi/stamp資料夾內(需自行建立)

-=-=-=- 以下內容由 POP 在 2009年10月24日 10:17am 時新增 -=-=-=-
若需增加選項
請自行修改
<select name="gaiz"><option value=> 請選擇... <option value=1> 精華<option value=2>推薦<option value=3>好帖<option value=4>版主已閱\<option value=5>嚴重警告</select>

其中value=1的1為圖片1.gif

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

目前頁面執行消耗時間： 230.00 毫秒　[Gzip: On, Level: 9]