7.SSIを利用して楽にバナー広告を表示させよう

最近バナー広告を表示して小遣い稼ぎをするというものがあります。
アフィリエイトサイトっていうんでしょうか?
A8.netとか有名みたいですが・・・
たくさん契約するといちいちバナー貼るのも大変なので
SSIを使って楽しちゃおうということです。

今回の場合セキュリティにとっては危ないことをしますので
サーバーによっては使用を拒否されたり突然削除されることもありえます。
また、cgiを置くサーバーとデータを置くサーバーは同一でないと動作しません。

adv.cgi
↑ダウンロードできますが使用に際して私は一切責任を取りませんしサポートも一切しません。
#!/usr/local/bin/perl 

#ここではデータディレクトリを adv としてcgiのあるディレクトリにつくってます。
#cgiと本体のHTMLは同一ディレクトリにないと動作しない可能性があります。

$ddir ="./adv/"; #データディレクトリのこのcgiからの相対パス 

opendir(DIR,$ddir); 

foreach(grep(!/^\.{1,2}$/,readdir(DIR))) 

push(@datas,$_); 

$datan=@datas; 
srand; 
$datann=int rand($datan); 

open(IN,"$ddir$datas[$datann]");
@dataf = <IN>;
close(IN);

foreach (@dataf){
print $_;
}

exit;

一目瞭然ですがopendirとreaddirでファイル名を取得して
ddirの中のデータファイルをランダムに表示させています。

データ
データファイルの中身の例
これは私の例なのでコピー&ペーストしても無駄です。
getpoint.txt
<center>

<!Get Point>

<!-- Get Point 468*60 FullSize Banner START -->
<A TARGET=_blank HREF="http://wwa.irias.co.jp/?WCI=Home&WCE=182801">
<IMG WIDTH=468 HEIGHT=60 ALT=CLICK! SRC="http://www.irias.co.jp/b1.gif">
</A>
<!-- Get Point 468*60 FullSize Banner END -->
 

</center>

呼び出しは簡単で
<!--#exec cmd="./adv.cgi"-->
ってHTMLに挿入するだけです。
 

まあいろいろ試してみましょう。
 

もどる