嗯，其實我自己的留言板日前也遭到機器人入侵了=__= ，不同於之前發佈的教學版本，那是原始的『Mkakikomitai Ver0.864』，再加上剛好有人問及，所以就再發一篇囉。
請搜尋「#設定ＣＳＳ樣式表」，並在其上加入以下紅字內容
$maru = 1 ; #留言框要使用圓角嗎？(0:否 1:是)…如果「否」，則可以不要$top_l,r,$bottom_l,r這些圖檔。
$antispam_use = 1; #認證碼顯示開關
#============================
#設定ＣＳＳ樣式表 ※如果不使用，請改為 $css_style = ""; 有需要的話，可以輸入２行或以上的文字(只要設定在兩個EOM標記之間就可以)。
在留言表格中，尋找自己喜歡的位置加入以下紅字內容
# Anti-Spam
if ( $antispam_use == 1 ) { #如果開關等於1就執行-開始
for ($i=1; $i<=4; $i++){ #取4位數(迴圈4次)-開始
$aspass .= int(rand 8)+1; #亂數產生數字
} #取4位數(迴圈4次)-結束
#↓請找適當位置加入↓有表格就把print "與\n";中間的東西放到表格
print " 驗證號碼：\n";
print "【 <font face=\"Verdana\" color=\"red\"><b>$aspass</b></font> 】請輸入至右邊欄位：\n"; #顯示亂數
print "<input type=hidden name=\"asverify\" value=\"$aspass\">\n"; #隱藏欄位顯示亂數
print "<input type=text name=\"aspass\" size=\"6\" maxlength=\"4\" value=\"\" $css_style>\n"; #輸入欄位
#↑請找適當位置加入↑有表格就放表格裡
} #如果開關等於1就執行-結束
#窗框顏色
if ( $colb_use != 1 && $FORM{'action'} ne 'res' && $c_resno eq '') {
print "<tr><td $tbgcolor>窗框顏色：</td>\n";
print "<td $tbgcolor>\n";
foreach (0 .. $#COLORS_B) {
if ( $c_color == $_ || ($c_color eq '' && $_ == 0)) { $dmy = "checked"; } else {
$dmy = "" ; }
print "<input type=radio name=color value=\"$_\" $dmy>";
print "<span style=font-size:$pt_mini;color:$COLORS_B[$_]>■</span>\n"; #(驚直修改 -
改以微縮字形大小顯示)
}
print "</td></tr>\n";
}
}
在「寫入記錄檔」區塊中加入以下紅字內容
###<--------------------------------------------------------------
###<--- 寫入記錄檔
###<--------------------------------------------------------------
sub regist {
#取得留言者的伺服器名稱
...
...
...
close(IN2);
if ( !(open(OUT2,">$logfile2"))) { &fileunlock ; &error("晉級狀態記錄檔 ($logfile2) 讀取失敗。"); }
print OUT2 @sv;
close(OUT2);
}
#Anti-Spam
if ($antispam_use == 1){ #如果開關等於1就執行-開始
if ( $FORM{'aspass'} eq '' ) { &error("你還沒有填入驗證碼喔！"); } #輸入欄位的值是空白
if ( $FORM{'aspass'}!=$FORM{'asverify'} ) { &error("驗證碼填錯了喔！"); } #比對輸入欄位是否與隱藏欄位顯示亂數值相同
} #如果開關等於1就執行-結束
$dcnt2 = @SVLOG;
if ( $dcnt2 < 1 ) {
$no = 1; #第１篇留言
} else {
$no = $MAXNO + 1;
}
Give me your comment
我已經成功了...
謝謝你的幫忙 :)
您好：
請問我不想把驗證號碼放在最上方，可是為何不論怎麼改、怎麼放，都會跑到最上方耶？可以教教我要如何放下面嗎？謝謝！
■01■ 選擇適當位置加入以上第二步紅字內容
■02■ 將紅字內容部分程式碼修改／新增，方法如下：
【print " 驗證號碼：\n";】改變成→【print "<tr><td $tbgcolor>驗證號碼：</td>\n";】
=========例=========
#↓請找適當位置加入↓有表格就把print "與\n";中間的東西放到表格
print "<tr><td $tbgcolor>驗證號碼：</td>\n";
====================
在【#↑請找適當位置加入↑有表格就放表格裡】之前加入一行【print "</td>\n";】
=========例=========
print "</td>\n";
#↑請找適當位置加入↑有表格就放表格裡
====================
這樣應該就可以改變位置了
建議最好是在輸入留言表格以上
您好，不好意思，還是不行耶，整個排版都變亂成一團了？怎麼辦呢？
請把您的mkakikomitai.cgi寄給我看（密碼欄位請先行遮蓋）
請告訴我您想將驗證碼輸入欄位放在哪
w812086(a)ms62.url.com.tw
(a)：@