http://yurei.iobb.net/
http://www2s.biglobe.ne.jp/~yukio_s/にあるＷｅｂページのログのまとめ

もくじ

１．ページの履歴を作成するプログラム
２．MicrosoftのAccessを用いて集計する方法
３．カウンタは上、下？
４．結果と感想

　Ｗｅｂページのログをとるのにリスト１または、リスト２のプログラムをＷｅｂページに仕掛けます。自作のサーバを公開していたらわざわざこんなことをしなくてもいいのですが・・。

　で、リスト１とリスト２の違いは
　http://www2s.biglobe.ne.jp/~yukio_s/
　http://yurei.iobb.net/
とではサーバが違います。下のほうはWindowsです。（WindowsでもＰｅｒｌを使えるようにしていれば、リスト１でも可です。）
 

#!/usr/local/bin/perl5
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon++;
$ad=$ENV{'REMOTE_ADDR'};
$ua=$ENV{'HTTP_USER_AGENT'};
$hr=$ENV{'HTTP_REFERER'};
$year=$year+1900;
open(wri,">>マル秘");
    print wri $year."/".$mon."/".$mday." ".$hour.":".$min.":".$sec.",".$ua.",".$ad.",".$hr."\n";
close(wri)

リスト１

<%
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    'ログ
    Dim ra,hua,hr
    Dim fso_L,fo_L
    hua=Request.ServerVariables("HTTP_USER_AGENT") & ","
    ra=Request.ServerVariables("REMOTE_ADDR") & "," 
    hr=Request.ServerVariables("HTTP_REFERER")
    Set fso_L = CreateObject("Scripting.FileSystemObject")
    Set fo_L= fso_L.OpenTextFile(Server.MapPath("マル秘"), ForAppending, True)
    fo_L.WriteLine Now & "," & hua & ra & hr
    fo_L.Close
    Set fo_L=Nothing
    Set fso_L=Nothing
%>

リスト２

2001/5/9 17:2:22,Mozilla/4.0 (compatible; MSIE 5.0; Windows 95; DigExt),211.126.2??.???,http://www2s.biglobe.ne.jp/~yukio_s/index.htm

データ１

　ファイル名「マル秘」のデータは適当に減らしたり新しいファイルにしたほうがいいです。http://www2s.biglobe.ne.jp/~yukio_s/にあるカウンターは、IE5.5の戻るでは、カウント数が増えないが、リスト１、２のプログラムでは１つデータを作る時もあるようです。

　$ad=$ENV{'REMOTE_ADDR'};というのでIPアドレスを確認します。

　http://www.mse.co.jp/ip_domain/やUNIXのコマンドを使用することでドメイン名等を確認することができるようです。

で、得られたファイル名「マル秘」をアクセスで、L_dataとしてリンクする。

　テーブル「Data」を作成する。

ID
日付
Ver
IP
WWW

　クエリー「L_dataとDataとの差分」

SELECT DISTINCTROW L_data.日付, L_data.Ver, L_data.IP, L_data.WWW
FROM L_data LEFT JOIN Data ON L_data.日付 = Data.日付
WHERE (((Data.IP) Is Null))
ORDER BY L_data.日付;

　クエリー「追加」

INSERT INTO Data ( Ver, IP, WWW, 日付 )
SELECT L_dataとDataとの差分.Ver, L_dataとDataとの差分.IP, L_dataとDataとの差分.WWW, L_dataとDataとの差分.日付
FROM L_dataとDataとの差分;

　クエリー「q_Data」

SELECT Data.日付, Data.Ver, Data.IP, Data.WWW, Left([日付],7) AS 年月
FROM Data
ORDER BY Data.日付 DESC;

　クエリー「カウント」

SELECT q_Data.WWW, q_Data.年月, Count(q_Data.WWW) AS WWWのｶｳﾝﾄ
FROM q_Data
GROUP BY q_Data.WWW, q_Data.年月
ORDER BY q_Data.年月 DESC , Count(q_Data.WWW) DESC;

　クエリーのクロス集計ウィザードを使えばできます。

３．カウンタは上、下？

　先日、カウンタの集計をした時に思ったことがあります。私のトップページでは、自前のＣＧＩは上、ＢＩＧＬＯＢＥのは下にありました。
　ふと、カウンタのＣＧＩはホームページの上の方につけた場合と下の方につけるのでは、どちらの方がいいのかなぁ？　と疑問をもちました。
　私自身、絵やＨＴＭＬの達人でないので、シンプルだけど文字が多いページ作りになっていると思います。お散歩や旅行で撮った写真のページが、色数や画素数をあまり落とさなかったりしてやや重いのが現状だと思います。

　ところで、ブラウザでページを見ると、

• そのファイルをいったん全部落としてから、表示する。
• 落としてすぐ表示しようとする。

　どちらなのかなぁ？

　それから、上と下ではどのくらい時間差があるのかなぁと思い

#!/usr/local/bin/perl5
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon++;
$ad=$ENV{'REMOTE_ADDR'};
$ua=$ENV{'HTTP_USER_AGENT'};
$hr=$ENV{'HTTP_REFERER'};
$year=$year+1900;
open(wri,">>xxx.txt");
print wri $year."/".$mon."/".$mday." ".$hour.":".$min.":".$sec.",".$ua.",".$ad.",".$hr."\n";
close(wri)

　のxx.cgiをテスト用のページ（写真と字が何行か書いてある）の上と下につけてみたんですが、xxx.datには１つしか記録されていませんでした。理由は？。
　で、xxu.cgiとxxd.cgiとしてページにつけてみました。データはxxu.datとxxd.datとしました。

上側xxu.dat
2004/6/13 11:50:18
2004/6/13 11:50:48
2004/6/13 11:51:52
2004/6/13 11:52:10
2004/6/13 11:52:15

下側xxd.dat
2004/6/13 11:50:19
2004/6/13 11:50:48
2004/6/13 11:51:52
2004/6/13 11:52:11
2004/6/13 11:52:15

　ＡＤＳＬ８Ｍ（実際はでていない）の環境で、？のデータ量の状態です。
　ＣＧＩは上と下では時間的差がでているみたい。

　んー。やっぱ上の方がいいのかなぁ。

４．結果と感想

▼２００６年２月２１日までで久々に集計してみました。

　まずは、２月１−２１日までのブラウザに関する情報をまとめてみました。
　「.NET CLR 」がないのは.ＮＥＴ　Frameworkをインストールしていないと考えていいのかなぁ。「.NET CLR 2.0.50727」というのもでたしてきたなー。
　しかしＩＥ強し。

SELECT Data.Ver, Count(Data.Ver) AS Verのカウント
FROM Data
WHERE (((Data.日付)>=#2/1/2006#))
GROUP BY Data.Ver;

　お次は、ページ別カウント数をまとめました。
　２００６年１月のカウント数を降順で並べています。

月別ページのカウント（２００６年２月に関しては２１日まで）

　次の方法で、「http://www2s.biglobe.ne.jp/~yukio_s/sunday/c_2.htm」のカウント数を時系列にまとめました。

SELECT Left([Data].[日付],7) AS 年月, Count(Data.日付) AS カウント
FROM Data
WHERE (((Data.WWW)="http://www2s.biglobe.ne.jp/~yukio_s/sunday/c_2.htm"))
GROUP BY Left([Data].[日付],7);

▼2005年４月度　1〜12日20：50まで集計の感想

　久々に中間報告です。ＰＯＳシステムに関するページを消してどんな風になるか気になりましたので・・・。

　出勤簿に関するページがかなり多いようです。原因は？？？？

　トップページから各ページにいくのでなく、
　検索サイトで、「出勤簿」などのキーワードで検索してきているパーターンが多いとみるべきなのだろうか？　それともブラウザのお気いりに登録しているリピータとみるべきなのか？　そんなにマメに更新していないので後のは少ないように思うのだが・・・。

2005/4/12

▼２００４年１２月２３日１７時までの集計結果

　少し字がはいりっきっていない・・

▼２００４年８月度集計と９月中間の感想

　８月は夏ばてという感じでした。９月も厳しさが残っていそうな感じです。

2004/9/17

▼７月度集計の感想

　私自身忘れていたのですが、ジオのページにアクセスがあったようです。
　たまには更新しないといけないかなぁ。

2004/8/3

▼６月度集計の感想

　トップページ（home/）が例月と比較すると異常に多いです。日別ＩＰアドレスの件数と比較するといいのでしょうね。感覚的には、５月が１日あたり平均1.7回/ＩＰとしたら、６月は平均２.1回/ＩＰかなー。最頻値は１です。かなりシビアです。

　ＰＯＳに関するページが返り咲きました。
　梅雨で外に出るのが嫌な人が多くての増加か？　　
　ＷＨＯＩＳ（JPNIC）によると29日の２０時ごろ大手Ｔ社さんかレボ社さんがこられていたようです。NSLOOKUPではひっかかりませんでした。エールの交換ということでしょうか？ラベルが低いせいか・・・。

▼２００４年５月の感想

• 今月はＰＯＳに関するアクセスが大幅に減りました。あきられたのでしょうか？　総額ショック？　次は、うーん・・・・。
• 工事担任者試験の翌日から工事担任者に関するアクセス件数が増加しました。
• 出勤簿を題材にしたページの変化は、履歴管理の重要性か？　当然ですが残業代を考える上で時間管理は大切。まさに、時は金なり！　仕事に関することでは、テイラーも時間研究にこだわっていたような。そんなとこであがってるでしょうか・・・？　好きで残業頑張る人は少ないですよね。
• msde.htmに関しては、今までが異常だったのかなぁー。

　これらの情報をもとにして改善をしていこうと思いますので、今後ともよろしくお願いします。

2004/5/29

▼平成１３年６月度集計

　平成13年６月度、リスト５のCGIをつけていたアドレスは表１のWWWです。
　右の％はninni.txtで作成された各アドレスのレコード数/合計値646*100
　(ninni.txtにWWWがちゃんとあったのは905に対して646)

表１　平成１３年６月度

　よく分からない点はhttp://www2s.biglobe.ne.jp/~yukio_s/を最初にみて、各項目にいっているケースか、一度きてIEのお気に入りとかに登録されているような直接ページを見るケースなのかが、はっきりしない。データはあるのだけど、どう処理したらいいか分からないのが、本音かも。

　2001/7/13より「最近の時代についていけていないという評価か、儲かっていないからか？　いまひとつ考課のよくなかった」という理由で休眠中のPOSの部屋は思っていたより比率が高かった。