$file_c = "count.dat"; //カウントの記録ファイルへのパス $place = "kaho.itjp.net"; //設置するサーバーのドメイン $file_r = "referer.dat"; //ファイルをreadモードでopenする。 if(!($fp = fopen($file_c, "r"))){ /* ファイルが開けないときは終了 */ $count = " Can not open file read mode"; exit; } else { $count = fgets($fp, 256); $count = (int)$count; } fclose($fp); //サーバー外からのアクセスの場合のみカウントを増やす if (!(ereg ($place, $_SERVER["HTTP_REFERER"]))){ $count++; //ファイルをwriteモードでopenする。 if(!($fp = fopen($file_c, "w"))){ /* ファイルが開けないときは終了 */ $count = " Can not open file write mode"; exit; } fseek($fp, 0); fputs($fp, "$count"); fclose($fp); if ($_SERVER["HTTP_REFERER"]){ if(!($fp = fopen($file_r, "a+"))){ /* ファイルが開けないときは終了 */ $count = " Can not open file write mode"; exit; } $line = $_SERVER["HTTP_REFERER"] . "\n"; fputs($fp, $line); fclose($fp); } } ?>
プログラミング
主にPerl scriptを公開中