#!/usr/local/bin/perl # --------------------------------------------------------------------------------------------- # K's Counter Special v2.0(CGIアクセスカウンター) # Programing By ジェッターK (2000-07-24) # E-Mail: webmaster@ks-power.net # HomePage: http://www.ks-power.net/ # --------------------------------------------------------------------------------------------- # ■スクリプトの概要及び注意事項 # 1.このスクリプトは、ページ毎にカウントが可能なスクリプトです。 # 各ページのアクセス状況を把握したい場合にご使用になれます。 # SSIが使用できないプロバイダーの方でも、設置が可能です。 # また、画像を連結していますので早くて綺麗です。 # 画像連結はとほほさんのgifcat.plを使用させて頂きました。 # 2.先頭行のPerlのパスをご使用のプロバイダに合わせて下さい。 # 3.このスクリプトは個人使用に限り、フリーソフトです。但し、著作権は放棄していません。 # 転載、再配布の際にはオリジナルのまま配布をお願いします。 # また、商用目的でご使用の場合は別途メールにて連絡をお願い致します。 # (著作権表示部の削除・編集は行わないで下さい。) # 4.このスクリプト使用における損害の発生に対して作者(ジェッターK)は一切の責任を負いません。 # 5.設置に関する質問はサポート掲示板にお願い致します。メールによる質問はご遠慮下さい。 # 6.クッキーを使用した二重カウントアップの防止機能付き。 # (この機能と使用すると、ブラウザを開いている限り二重カウントアップはされません。但し # ブラウザ側でクッキーがオフなっていると機能しません。) # --------------------------------------------------------------------------------------------- # ■設置方法 # 入力フォームのタグを ; close(DAT); $n = 0; $total = 0; foreach (@cnt) { chop($_); ($name,$value) = split(/=/,$_); $n++; $cname{$n} = $name; $count{$n} = $value; $total = $total + $value; } # ■ランキング表示 print "Content-type: text/html\n\n"; print "
Make your own free website on Tripod.com
\n"; print "
\n"; print "[ 戻る ]\n"; print "

\n"; print "

Page Access Ranking

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; $n = 0; foreach (sort {$count{$b} <=> $count{$a}} keys(%count)) { $n++; $grp = int($count{$_} * $k + 0.5); print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "
RankingPage NameCountCount Graph
$n$cname{$_}$count{$_}
Total$total
\n"; print "

\n"; print "

\n"; print "


\n"; print "
$ver
\n"; print ""; exit; ### ■Error処理 sub error { print "Content-type: text/html\n\n"; print "\n\n"; print "\n"; print "\"$_[0]\"
\n"; print "

\n"; print "\n"; print "ホームへ戻る\n"; print "\n"; print "\n"; exit; }