■9620 / ) |
Re[1]: I-BOARDにスレッドリスト機能追加
|
□投稿者/ オオワシ -(2004/08/01(Sun) 06:11:01)
| すいませんでした、ソースはこの部分です↓
if($Top_t){ print"<br><a name=\"list\"></a><table width=\"85\%\" border=1 bordercolor=\"$ttb\" cellpadding=2 cellspacing=0><tr>\n"; print"<td bgcolor=\"$k_back\"><center><b>$listi スレッドリスト</b> ( )内はレス数<hr size=1 color=\"$ttb\"></center>\n"; } @NEW=(); %RES=(); %N=(); $Rno=0; $K=1; $i=1; $NS=0; $ListFlag=0; $news=""; open(LOG,"$log") || &er_("Can't open $log"); while ($lines = <LOG>){ ($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type,$delkey,$ip,$sml)=split(/<>/,$lines); ($Ip,$ID,$Sex,$Old,$Rank,$UT)=split(/:/,$ip); if($name eq ""){next;} $NS++; $Ti=time; if($type){ if($news eq ""){if(($Ti-$UT) <= $new_t*3600 && $UT){$news="$up_i_";}else{$news="$hed_i";}} if(($page < $i && $page_end >= $i-1) && $KLOG eq ""){$RES{$type}.="$lines";} if($Top_t){$N{$type}++;} }else{ push(@NEW,$lines); $i++; if($Top_t){ if($news eq ""){if(($Ti-$UT) <= $new_t*3600 && $UT){$news="$new_i";}else{$news="$hed_i";}} if($d_may eq ""){$d_may="無題";} if($N{$namber} eq ""){$N{$namber}=0;} $Rno++; $PAH=$a_max*$K; if($PAH <= $Rno){$PAL="page=$PAH&"; $K++;} if($Rno <= $LiMax || $FORM{"ListAll"}){ if($page eq $PAH-$a_max){print"<a href=\"#$namber\">";} else{print"<a href=\"$cgi_f?namber=$namber&mode=res&no=$no$pp\">";} print"$news $d_may($N{$namber})</a> |\n"; }elsif($FORM{"ListAll"} eq ""){$ListFlag=1;} } $news=""; } } close(LOG); if($Top_t){ if($ListFlag){print"<div align=\"right\">[<a href=\"$cgi_f?page=$page&ListAll=1&no=$no$pp#list\">全スレッドリスト表\示</a>]</div>";} print"</td></tr></table><br>\n"; }
|
|