掲示板用CGIの表示のさせ方



◇-?掲示板用CGIの表示のさせ方-なお(2005/07/02-16:53)No.271834
 ┗?~Re:掲示板用CGIの表示のさせ方...-YamanoAnaANa(2005/07/03-00:44)No.271930

▲このページのトップに戻る
271834掲示板用CGIの表示のさせ方なお 2005/07/02-16:53

メーカー名:富士通
OS名:WindowsXp
パソコン名:MG50J
--
こんなに書いてもいいのか戸惑ったのですが、凄く困っているので、教えて欲しいです。

掲示板用のcgiを頂いたのですが、レスが長くなってもページが変わらないため、ドンドン
下に長くなって困ってます。
実際の一部のperlを下に書いてます。

1,10行レスを表示させたら次のページに移動させたいのです。
2,現在は古いレスから表示させているのですが、新しい記事の順番で表示せたいのです。

誰かプログラムのプロの方、力をお貸し下さい m(_ _)m

#―――スレッド表示レス用―――#
sub threadres {
local($flag) = 0;
foreach (@LOG) {
($no, $oyano, $time, $genre, $sub, $name, $color, $mess, $url, $mail, $pass, $host) = split(/<>/);
&get_date($time);

if ($link_mode) {
if ($link_target) {
$mess =~ s/(https?:\/\/[\w\.\~\-\/\?\&\#\+\=\:\;\@\%]+)/<a href="$1" style="color:$color" target="_blank">$1<\/a>/gi;
} else {
$mess =~ s/(https?:\/\/[\w\.\~\-\/\?\&\#\+\=\:\;\@\%]+)/<a href="$1" style="color:$color">$1<\/a>/gi;
}
}

$mark = '';
if ($Time - $time < $indi_time * 3600) {
if ($oyano eq 'no') {
$mark = " <font color=\"#FF0000\">$new_mark</font>";
} else {
$mark = " <font color=\"#FF0000\">$up_mark</font>";
}
}

if ($oyano ne 'no') { $j++; }

if ($in{'mode'} eq 'find') {
$width = '100%';
if ($oyano eq 'no') {
$find_no = $no;
} else {
$find_no = $oyano;
}
} else {
if ($oyano eq 'no') {
if ($flag) { print qq|<br><br>\n|; $flag = 0; }
$width = '100%';
} else {
$width = '90%';
}
}

if ($oyano ne 'no') {
print <<"EOH";
<div align="left">【<font color="ff0000">$j</font>】$date $mark<BR>
$mess</div>
<div align="right">[$name]</div>
EOH
}else {
print qq |\n|;
}
print qq|$host| if ($host_view);
print qq|\n|;



if ($in{'mode'} eq 'find') {
print <<"EOH";
<form action="$main_cgi" method="POST">
<input type="hidden" name="mode" value="rel">
<input type="hidden" name="act" value="find">
<input type="hidden" name="obje" value="$in{'obje'}">
<input type="hidden" name="no" value="$find_no">
<input type="submit" value="内容\表\示">
</form>
EOH
} else {
if ($oyano eq 'no') {
$flag = 1;
if (!$in{'mode'} && !$in{'act'}) {
print <<"EOH";
<form action="$main_cgi" method="POST">
<input type="hidden" name="mode" value="rel">
<input type="hidden" name="no" value="$no">
<input type="submit" value="RES" onMouseOver=this.style.backgroundColor="$hov_col"
onMouseOut=this.style.backgroundColor="" style="width:50px" class="btn">
</form>
EOH
}
}
}
print qq|\n|;
print qq|\n|;
print qq|<br>\n| if ($in{'mode'} eq 'find');
}
}

▲このページのトップに戻る
271930Re:掲示板用CGIの表示のさせ方YamanoAnaANa 2005/07/03-00:44

記事番号271834へのコメント
回答ではありません。
http://www.psl.ne.jp/bbpro/
のような perl の掲示板に書き込まれたほうが解決が早いような気がします。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言