来てほしくない人が増えたら、ホームページ自体をアクセス制限しちゃいましょう。 ------ここから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ページへ飛ばします)