sub print_rank{ #$FORM{xx}→$LC_xxに変換 local( $LC_kt=$_[0], #$FORM{kt} $LC_mode=$_[1], #$FORM{mode} $LC_page=$_[2], #$FORM{page} $Stitle, #タイトル ); if($LC_mode eq "rev"){$Stitle="アクセスランキング";} elsif($LC_mode eq "rev_bf"){$Stitle="前回のアクセスランキング";} else{$Stitle="アクセスランキング(累計)";} if($LC_kt){$Stitle.=" - " . $ganes{$LC_kt};} local($Eref=$ENV{HTTP_REFERER}); $Eref=&url_en($Eref); # (↑修正不可↑)--> print<<""; $Stitle - Mono Search

記事 $Stitle 情報

print<<"";

# print<<""; のサイトやブログを情報を紹介

# print<<"";
Navi 検索エンジン登録 Mono Search > # print<<""; $Stitle
☆★$Stitle 記事 紹介 サイト ブログ
print<<"";
他のカテゴリ | サイトマップ ヘルプ | 修正変更
★$Stitle 関連 サイト 情報 ブログ
   $Stitle 注目$Stitle 推薦:$Stitle推薦サイト $Stitle 注目$Stitle 相互:$Stitle相互リンク $Stitle 注目$Stitle 新着:$Stitle新着サイト
$Stitle スポンサード リンク
インフォーメイション $Stitle
スポンサー $Stitle
# print<<""; ##一括削除用のフォーム出力(上) &get_cookie; if($CK_data[3] && !($EST{html} && $ganes{$LC_kt})){ print<<"EOM";
EOM } {local($sec,$min,$hour,$mday,$mon,$year,$wday); if($LC_mode eq "rev"){ ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}rev_ys.cgi"))[9]); } elsif($LC_mode eq "rev_bf"){ ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}rev_bf.cgi"))[9]); } else{ ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}rev_rui.cgi"))[9]); } $mon++; $year+=1900; $youbi=('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday]; $last_mod=sprintf("%04d/%02d/%02d($youbi) %02d:%02d", $year,$mon,$mday,$hour,$min,); } # (↑修正不可↑)--> print<<"";
最終更新:$last_mod

# print<<""; $PRmokuji # print<<""; # print<<""; if($Slog[7]){ print<<""; } print<<"";
  第$rank位 -> ${pt}pt
$Slog[0] $Stitle $Slog[1] $Stitle $Slog[0] &put_icon; # print<<"";
$Stitle $Slog[0] $Slog[4] $Slog[1] Edit $Stitle $Slog[0] # print<<""; #
# print<<"";
$Slog[6]
$Slog[7]

#";



# (↑修正不可↑)--> print<<""; $PRmokuji # print<<"";
# # print<<"";
#