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

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

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

271834	掲示板用CGIの表示のさせ方	なお	2005/07/02-16:53
メーカー名：富士通ＯＳ名：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'); } }

▲このページのトップに戻る

271930	Re:掲示板用CGIの表示のさせ方	YamanoAnaANa	2005/07/03-00:44
記事番号271834へのコメント回答ではありません。 http://www.psl.ne.jp/bbpro/ のような　perl の掲示板に書き込まれたほうが解決が早いような気がします。

パソコントラブル解決・過去ログTOP > ログTOP > 掲示板用CGIの表示のさせ方

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

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