| ありがとうございます。
直接移動の方、きちんと表示されるようになりました。
ですが、ページを分けたりする機能を追加したせいか
コメントログ表示での直接のログ削除機能が効かなくなってしまったようです。
管理画面には飛ぶようなのですが、削除されてないようです。
機能を追加してしまったのでおかしくなってしまったのでしょうか？
また中身書いておきます。
〜〜〜〜〜〜略〜〜〜〜〜〜
print <<"_COMS_";
<form action="$cgi_f" method="$met">$nf
<input type="hidden" name="mode" value="edit">
<input type="hidden" name="logs" value="$c_log">
<center><table width=90\%><tr><th bgcolor=$ttb>$p_co の投票理由</th></tr>
<tr><td>□<a href="$cgi_f?no=$no"> BACK</a></td></tr><tr bgcolor=$bg><td><br><ul>
_COMS_
@COM=reverse(@COM);
$sou=0; $i=0;
foreach $COM (@COM) {
$i++;
$COM =~ s/\n//g;
($vote,$com,$ip) = split(/<>/,$COM);
if($p_co eq $vote){
$sou++;
if($sou <= $FORM{"page"}){next;} #←追加
if($sou > $FORM{"page"}+$ComPage){next;} #←追加
if($com_f){print"<hr>$com -<input type=\"checkbox\" name=\"p_co\" value=\"$i\">\n";}
else{print"・<input type=\"checkbox\" name=\"p_co\" value=\"$i\">$com<!--$ip--><br>\n";} }
}
if($sou > $ComPage){
if($FORM{"page"}){
print"<a href=\"$cgi_f?mode=com&p_co=$p_co&page=";
print $FORM{"page"}-$ComPage;
print"&no=$no\">＜前の$ComPage件</a> ‖ ";
}
if($FORM{"page"}+$ComPage < $sou){
print"<a href=\"$cgi_f?mode=com&p_co=$p_co&page=";
print $FORM{"page"}+$ComPage;
print"&no=$no\">次の$ComPage件＞</a><br>";
}
}
for($i=0; $i<=$sou/$ComPage; $i++){
if($flag){print"| ";}
if($FORM{"page"}/$ComPage == $i){print"<b>$i</b>\n";}
else{
print"<a href=\"$cgi_f?mode=com&p_co=$p_co&page=";
print $i*$ComPage;
print"&no=$no\">$i</a>\n";
}
$flag=1;
}
print <<"_COMS_";
</ul><hr>$COMSOUコメント中 $souコメントが $p_co のコメントです。
<br>管理用パスワード/<input type="password" name="pass" size="8">
<input type=submit value="コメント削除"></form>
</td></tr></table></center>
_COMS_
〜〜〜〜〜〜略〜〜〜〜〜〜〜
管理画面のコメントログもページで分けてみようと思ったのですが
管理画面のコメントログの方が見当たりませんでした。
こちらはどこを見れば良いのでしょうか？
管理画面の方は普通のコメントログとは違ってしまって
ページで分けるのは難しくなりそうですか？
応用で出来ればいいなと思っているのですが…。
お忙しいとは思いますが、よろしくお願いします。
|
