|
|
03/16(Sun) 01:54
■ オープニングメッセージ&1000人単位の訪問者へのご挨拶
【お知らせ】キリ番の小ウィンドウ表示(2001/02/21)
訪問者の方が、設定したカウンター○○○番に訪問すると別小ウィンドウでお知らせする機能拡張版が幻影の館(TAKAさん)の「CGIの部屋-実習室-キリ番表示」で入手できます。キリ番ゲットの方に確実にお知らせができるのでお勧めです。
■解説
- 環境変数からリンク元URLを取得し、「キーワード」でその訪問者がどのページからの来訪かを判定し表示します。
- 「キーワード」(MySweetHomepageのmshなど)はリンク元URLの中のそのページが特定できる言葉を選びます。
- ページの追加は elsif の部分を追加します。
- 1000人単位の訪問者へのご挨拶は、私が使ってるままになってますので、リンクタグなどはあなたの環境に合わせて変更して下さい。
下のスクリプトをマウスでドラッグし「コピー」「貼りつけ」でコピーできます。
#!/usr/bin/perl
#↑perlの存在するpathに書き換えてください。
#-------------------------------------------------------------------#
# オープニングメッセージ&1000人単位の訪問者へのご挨拶
# openmsg.pl by http://kikuchisan.net/
#-------------------------------------------------------------------#
#書き換えるところ
$cnt = "./count"; #カウント数記録ファイルのパス指定
#書き変えるところ(ここまで)
#------カウンターファイルからアクセスカウントの取得
open (CNT,"$cnt") || die "$cnt :$!";
$count = ;
close(CNT);
chop($count) if $count =~ /\n/;
#------環境変数からリンク元の取得
$ref = $ENV{'HTTP_REFERER'};
#------サーチエンジン,リンク元の判定とメッセージ設定
if($ref =~/msh/) {$mes = "MySweetHomepageよりようこそ!!";}
elsif($ref =~/yahoo/) {$mes ="Yahoo検索よりようこそ!!";}
elsif($ref =~/infonavi/){$mes ="InfoNavigator検索よりようこそ!!";}
elsif($ref =~/infoseek/){$mes ="InfoSeek検索よりようこそ!!";}
elsif($ref =~/csj/) {$mes ="CSJindex検索よりようこそ!!";}
elsif($ref =~/search\.ocn/){$mes ="OCNサーチよりようこそ!!";}
elsif($ref =~/netplaza/){$mes ="NETPLAZA検索よりようこそ!!";}
elsif($ref =~/acara/ || $ref =~/rnet/){$mes ="ACARANAVI検索よりようこそ!!";}
elsif($ref =~/hole-in-one/){$mes ="Hole-in-One検索よりようこそ!!";}
elsif($ref =~/joyjoy/ || $ref =~/bnn-net/){$mes ="JOY検索よりようこそ!!";}
elsif($ref =~/goo/) {$mes ="goo検索よりようこそ!!";}
elsif($ref eq "") {$mes = "ブックマークからの訪問ですね(^^)。";}
elsif($ref =~/katoh/) {$mes ="kapiさんの掲示板解説リンクからようこそ!!";}
else {$mes ="菊池さんちのホームページへようこそ!";}
#------メッセージ出力
print"$mes ご来訪ありがとうございます。 \n";
#------アクセスカウント1000単位目の人へのメッセージ設定
$key = $count%1000;
$sen = $count - $key + 1000;
if ($key == "0") {print "あなた様が、
ちょうど $count 人目のご訪問者となりました。
ゲストブックに記念のご記帳お願い
できませんでしょうか。\n";}
#------アクセスカウント900〜999単位目の人へのメッセージ設定
if ($key >= "900") {print "もうすぐ、このホームページもご訪問者が
$sen に近づきつつあります。
ちょうど $sen 人目の方は
ゲストブックへのご記帳よろしくお願いします。\n";}
|
|
|