#!/usr/bin/perl
### ↑↑ パスはご利用になっているサーバの環境によって変えてください
$rand = time(); #乱数を発生させるために、現在のunix時間を取得
print "Content-type: text/plain\n\n";
if($rand % 5 == 0){ ## バリューコマース
print '<IFRAME frameBorder="0" allowTransparency="true" height="60" width="468" marginHeight="0" scrolling="no" src="http://ad.jp.ap.valuecommerce.com/servlet/htmlbanner?sid=3050&pid=870392322" MarginWidth="0"><script Language="javascript" Src="http://ad.jp.ap.valuecommerce.com/servlet/jsbanner?sid=3050&pid=870392322"></script><noscript><a Href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=3050&pid=870392322" target="_blank"><img Src="http://ad.jp.ap.valuecommerce.com/servlet/gifbanner?sid=3050&pid=870392322" height="60" width="468" Border="0"></a></noscript></IFRAME>';
} elsif($rand % 5 == 1){## A8.net
print '<a href="http://px.a8.net/svt/ejp?a8mat=BZB5W+FGOBEA+K+ZQ80H" target="_blank">
<img border="0" width="468" height="60" alt="Click Here!" src="http://ad.a8.net/svt/bgt?aid=020123204935&wid=001&eno=01&mid=s00000000002006001000&mc=1"></a>
<img border="0" width="1" height="1" src="http://ad.a8.net/0.gif?a8mat=BZB5W+FGOBEA+K+ZQ80H">';
} elsif($rand % 5 == 2){ ## Traffic Gate
print '<A href="http://ad.trafficgate.net/e/m.pl?h=1623&g=2&m=4&t=img" target="_blank"><IMG src="http://srv.trafficgate.net/e/b.pl?h=1623&g=2&m=4"
border="0"></A>';
} elsif($rand % 5 == 3){## アクセストレード
print '<a href="http://www.accesstrade.net/at/c.html?rk=0100000900041y" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=0100000900041y" alt="広告貼るならアクセストレード!" border="0"></a>';
} else { ## リンクシェア
print '<a href="http://click.linksynergy.com/fs-bin/click?id=0BIj0LKkB7s&offerid=33413.10000048&subid=0&type=4"><IMG border="0" width="468" height="60" alt="LinkShare" src="http://ad.linksynergy.com/fs-bin/show?id=0BIj0LKkB7s&bids=33413.10000048&subid=0&type=4"></a>';
}
|