| すいませんでした、ソースはこの部分です↓
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";
}
|
