1) В директорий cgi-bin на сервере кладем
banner468.cgi ( обязательно разрешить для исполнения )
#!/usr/local/bin/perl
#banner468.cgi
if ( (!($ENV{"SERVER_SOFTWARE"} =~ /rus/))) {
print ";charset=windows-1251";
}
$LIST = 'banner468.list';
use CGI;
$HEAD = new CGI;
open(BANNERS, "$LIST") || die "Ошибка чтения $BANNERS. $!";
@banners = <BANNERS>;
$ban = splice(@banners, int rand @banners,1);
chomp($ban);
($img,$url,$border) = split(/\|/,$ban);
print $HEAD->header('text/plain');
print "<a href=$url target=\"_blank\">\n";
print "<img src=$img border=$border><br>\n";
print "</a>\n";
2) В тот же директорий кладем файл
banner468.list ( ссылка на картинку | ссылка на url | border=0 или 1 | target=… | комментарии к картинке |)
http://support.valuehost.ru/banners/va2.gif width=468 height=60|
http://order.valuehost.ru/start.php?uid=5384|0|_blank|
www.valuehost.ru|
http://female.ru/femme468.gif width=468 height=60|
http://female.ru|0|_blank|Бесплатная почта|
http://alena.net.ru/links/banners/ellen2.gif width=468 height=60|
http://alena.net.ru|0|_blank|Аленушкин дневник|
3) в HTML файле вставляем строчку ( сервер провайдера
должен быть настроен на работу с SSI )
<!--#exec cgi="/cgi-bin/ banner468.cgi " -->
В результате в этом месте каждый раз случайным образом будут появлятся баннеры из файла banner468.list