1. 環境変数からリンク元ＵＲＬを取得し、「キーワード」でその訪問者がどのページからの来訪かを判定し表示します。

2. 「キーワード」(MySweetHomepageのmshなど)はリンク元ＵＲＬの中のそのページが特定できる言葉を選びます。

3. ページの追加は elsif の部分を追加します。

4. 1000人単位の訪問者へのご挨拶は、私が使ってるままになってますので、リンクタグなどはあなたの環境に合わせて変更して下さい。

下のスクリプトをマウスでドラッグし「コピー」「貼りつけ」でコピーできます。

#!/usr/bin/perl #↑perlの存在するpathに書き換えてください。 #-------------------------------------------------------------------# # オープニングメッセージ＆1000人単位の訪問者へのご挨拶 # openmsg.pl by http://kikuchisan.net/ #-------------------------------------------------------------------# #書き換えるところ $cnt = "./count"; #カウント数記録ファイルのパス指定 #書き変えるところ(ここまで) #------カウンターファイルからアクセスカウントの取得 open (CNT,"$cnt") || die "$cnt :$!"; $count = <CNT>; 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 ="ｋａｐｉさんの掲示板解説リンクからようこそ!!";} else {$mes ="菊池さんちのホームページへようこそ！";} #------メッセージ出力 print"$mes ご来訪ありがとうございます。<br>\n"; #------アクセスカウント１０００単位目の人へのメッセージ設定 $key = $count%1000; $sen = $count - $key + 1000; if ($key == "0") {print "<font size=4>あなた様が、 ちょうど<font color=red> $count 人目</font>のご訪問者となりました。<br> ゲストブックに記念の<a href=\"visitor.html\">ご記帳</a>お願い できませんでしょうか。</font>\n";} #------アクセスカウント９００〜９９９単位目の人へのメッセージ設定 if ($key >= "900") {print "もうすぐ、このホームページもご訪問者が $sen に近づきつつあります。<br> ちょうど<font color=red> $sen 人目</font>の方は<a href=\"visitor.html\"> ゲストブック</a>へのご記帳よろしくお願いします。\n";}