Apache a CGI skripty VIII. – reklamní bannery

Dnes si ukážeme, jak vytvořit jednoduchý reklamní banner, který zobrazuje obrázky s odkazem v náhodném pořadí.
Dnes si ukážeme, jak vytvořit jednoduchý reklamní banner, který zobrazuje obrázky s odkazem v náhodném pořadí. Pro přesměrovaní odkazu, použijte CGI skript, který je popsán v předchozím díle.
CGI skript:

#!/perl/bin/perl.exe
  
  print "Content-type: text/html\n\n";
  print "<HTML>\n <HEAD>\n <TITLE> Nahodna rotace reklamnich banneru</TITLE>\n ";
  print "</HEAD>\n";
  print "<BODY BGCOLOR=#FFFFFF LINK=#000080 VLINK=#008E47>";
  
  # seznam obrazku pro reklamni bannery
  @obrazek = ("jedna.gif","dve.gif","tri.gif","ctyri.jpg");
  
  # seznam url, kam se budou bannery odkazovat
  @url = ("http://www.jedna.cz","http://www.dve.cz","http://www.tri.cz","http://www.ctyri.cz");
  
  # seznam popisu reklamnich banneru
  @alt = ("popis 1","popis 2","popis 3","popis 4");
  
  # vygenerovani nahodneho cisla
  srand(time ^ $$);
  srand(time ^ $$);
  $cislo = rand(@obrazek);
  
  # vlastní vytisknuti reklamniho banneru do HTML stranky.
  # vytištění obrázku s nepřímým odkazem na stranku klienta,
  # který si banner objednal.
  print " <A HREF=/cgi-bin/redir.cgi?url=$url[$cislo]&img=$obrazek[$cislo]> ";
  print " <IMG SRC=/images/$obrazek[$cislo] WIDTH=468 HEIGHT=60 BORDER=1 ";
  print " ALT=\"$alt[$cislo]\"></A><BR>";
  
  # popis reklamního banneru s nepřímým odkazem na stránku klienta.
  print " <A HREF=/cgi-bin/redir.cgi?url=$url[$cislo]&img=$obrazek[$cislo]> ";
  print " $alt[$cislo]</A><BR>";
  
  print "</HTML>";
  exit;
  

  
Váš názor Další článek: Souborová hlídka

Témata článku: Software, Programování, Reklama, CGI, Skript, Print, Banner, Exit, Head, REK, Rand, Ban, Reklamní odkaz, Reklamní banner


Určitě si přečtěte

Nejlepší hardware: Skládáme nenáročnou sestavu i extrém na hry

Nejlepší hardware: Skládáme nenáročnou sestavu i extrém na hry

** Poradíme, jaký se teď vyplatí koupit hardware ** Procesory, desky, paměti, grafické karty... je z čeho vybírat ** Počítač ale nemusíte skládat, ukážeme i výhodné hotové počítače

Stanislav Janů | 8

Prohnali jsme prohlížeče benchmarky. Nový Edge je opravdu Chrome a je rychlý!

Prohnali jsme prohlížeče benchmarky. Nový Edge je opravdu Chrome a je rychlý!

** Prohnali jsme nový Edge webovými benchmarky ** Potvrzují, že je to Chrome ** V animacích a vektorech je možná nejlepší

Jakub Čížek | 44



Aktuální číslo časopisu Computer

Velký test fotolabů

Oklamali jsme rozpoznání obličeje

13 tipů pro rychlejší Wi-Fi

Test NVMe SSD 500 GB