-- 作者： POP -- 發表時間： 2009/10/24 10:12am [這篇文章最後由POP在 2020/01/31 00:43am 第 3 次編輯] 範例如本文抬頭的"推薦"印章落款 轉貼自: [url=http://memorybbs.com/cgi-bin/topic.cgi?forum=80&topic=645&start=0][img]http://chous.100webspace.net/bbs/non-cgi/stamp/3.gif[/img][/url] 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|(共兩處)並加上|<!--主題印章_S-->$gzlink|<!--主題印章_E--> |$hllink|<!--主題印章_S-->$gzlink|<!--主題印章_E--> 4. 下載以下圖片並存入non-cgi/stamp資料夾內(需自行建立) http://chous.100webspace.net/bbs/non-cgi/stamp/1.gif http://chous.100webspace.net/bbs/non-cgi/stamp/2.gif http://chous.100webspace.net/bbs/non-cgi/stamp/3.gif http://chous.100webspace.net/bbs/non-cgi/stamp/4.gif http://chous.100webspace.net/bbs/non-cgi/stamp/5.gif[br][br][color=#990000][b]-=-=-=- 以下內容由 [i]POP[/i] 在 [i]2009年10月24日 10:17am[/i] 時新增 -=-=-=-[/b][/color] 若需增加選項 請自行修改 <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