来てほしくない人が増えたら、ホームページ自体をアクセス制限しちゃいましょう。
------ここからdeny.cgi-----------
#!/usr/local/bin/perl
#禁止するIPアドレスやホスト名を半角スペースで区切って追加してください。
#下記はあらしさんがよく使う匿名proxyです。
#「*」はワイルドカード。
$denyHost = 'xxDAMExx *.bell86.co.jp *.shimz.co.jp *.nava21.ne.jp *.NIPR.MIL ns.esn.gr.jp *.ccccc5.com *.n-suisan.jp *.edit.ne.jp *.x-nauts.co.jp *.telstra.net *.inter.net.th *.stllinux.org *.UPENN.EDU *.concrete-equipements.fr *.isp.tfn.net.tw fw.peaceboat.gr.jp *.mty.marcatel.net.mx casablanca.aitai.ne.jp';
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq "" || $host eq $addr){$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;}
if ($host eq $addr){$host='xxDAMExx'}
$denyflag=0;
foreach ( split(/\s+/, $denyHost) ) {
s/(\W)/\\$1/g;
s/\*/\.\*/g;
if ($host =~ /$_/i || $addr =~ /$_/i) { $denyflag=1; last; }
}
$jsm = ' = "';
$jse = '";';
print "Content-type: application/x-javascript\n\n";
print "denyflag$jsm$denyflag$jse\n";
print "host$jsm$host$jse\n";
print "addr$jsm$addr$jse\n";
exit;
------ここまでdeny.cgi-----------
■下記はホームページへの記述追加例(biglobeの場合です。notfoundページへ飛ばします)