Cool PHP skripty #1

19.02.2002 18:49 | blackhole

Zaciname novy serial o PHP. V tomto serialy budu uverejnene najzaujimavejsie skripty, bez ktorych sa pri tvorbe kvalitnej weby nezaobydete. V prvej casti vam prinasame hned 6. Obrazkovy guestbook, odosielanie mailu, kalendar, kto ma meniny, kolko trva nacitanie stranky atd.

Odosielanie Mailu <?mail('prijemca@email.sk', 'Subjekt', 'Sprava', 'From: odosielatel@email.sk');?>Obrázkový Guestbook <?// musíš vytvoriť adresár \"temp\"(na internete s atributmi 777)  if ($action == \"add\"){    if (file_exists(\"temp/\".basename($userfile_name))) {        $text = \"Takyto súbor už existuje<br>\";    }else{       copy($userfile, 'temp/'.basename($userfile_name));       if (file_exists(\"temp/\".basename($userfile_name))) {            Header(\"Location: addpicture.php\");       }else{           $text = \"Zlyhal upload<br>\";        };    };  };  ?> <HTML> <BODY> <CENTER>  <FORM ENCTYPE=\"multipart/form-data\" METHOD=\"POST\" ACTION=\"addpicture.php?action=add\">  Súbor: <INPUT TYPE=\"file\" NAME=\"userfile\" SIZE=\"20\"><BR>  <INPUT TYPE=\"submit\" VALUE=\"Pridaj\">  </FORM>  <? echo $text; ?> <br><br> <?  $dir = @opendir(\"temp\");  while ($file=@readdir($dir)) {    if (($file != \".\") and ($file!= \"..\")){        echo \"<IMG SRC='temp/$file' BORDER=1><BR>$file<BR><BR>\";    };  };  ?></CENTER>  </BODY> </HTML>Zistenie času potrebného na načítanie stránky <? $time1 = microtime(); $time1 = explode(\" \",$time1); $time1 = $time1[1] + $time1[0]; // toto musis mat na uplnom zaciatku stranky $rd = \"100000\"; //tu nastavis zaokruhlenie ?> <!-- sem vloz celu html stranku --> <? // toto na konci stranky $time2 = microtime(); $time2 = explode(\" \",$time2); $time2 = $time2[1] + $time2[0]; $deltatime = $time2 - $time1; $deltatime = (round(($deltatime*$rd)))/$rd; echo \"stránku som natiahol za $deltatime sekúnd.\"; ?>Koľko ľudí je práve online

CREATE TABLE visitors (IP varchar(16) NOT NULL, SecTime int(11) DEFAULT \\'0\\' NOT NULL); <?$viewtime=300; //koľko sekúnd sa bude rátať návšteva 1 človeka MySQL_Query(\"delete from visitors where (SecTime<'\".(time()-1000000000-$viewtime).\"')or(IP='$REMOTE_ADDR');\"); MySQL_Query(\"insert into visitors values ('$REMOTE_ADDR','\".(time()-1000000000).\"');\"); $readers=MySQL_Fetch_Array(MySQL_Query(\"select count(*) as Total from visitors;\")); $readers=$readers['Total']; echo \"Tieto stránky si práve číta $readers ľudí.\"; ?>Kto má meniny <?function Meniny(){ $mena=array('Nový rok', 'Alexandra', 'Daniela', 'Drahoslav', 'Andera', 'Antónia', 'Bohuslav(a)', 'Severín', 'Alexej', 'Dáša', 'Malvína', 'Ernest', 'Rastislav', 'Radovan', 'Dobroslav', 'Kristína', 'Nataša', 'Bohdana', 'Drahomíra', 'Dalibor', 'Vincent', 'Zora', 'Miloš', 'Timotej', 'Gejza', 'Tamara', 'Bohuš', 'Alfonz', 'Gašpar', 'Ema', 'Emil', 'Tatiana', 'Erik(a)', 'Blažej', 'Veronika', 'Agáta', 'Dorota', 'Vanda', 'Zoja', 'Zdenko', 'Gabriela', 'Dezider', 'Perla', 'Arpád', 'Valentín', 'Pravoslav', 'Ida', 'Miloslava', 'Jaromír', 'Vlasta', 'Lívia', 'Eleonóra', 'Etela', 'Roman(a)', 'Metej', 'Frederik(a)', 'Viktor', 'Alexander', 'Zlatica', 'Radomír', 'Albín', 'Anežka', 'Bohumil(a)', 'Kazimír', 'Fridrich', 'Radoslav', 'Tomáš', 'Alan(a)', 'Františka', 'Branislav, Bruno', 'Angela, Angelika', 'Gregor', 'Vlastimil', 'Matilda', 'Svetlana', 'Boleslav', 'Ľubica', 'Eduard', 'Jozef', 'Víťazoslav', 'Blahoslav', 'Beňadik', 'Adrián', 'Gabriel', 'Marián', 'Emanuel', 'Alena', 'Soňa', 'Miroslav', 'Vieroslava', 'Benjamín', 'Hugo', 'Zita', 'Richard', 'Izidor', 'Miroslava', 'Irena', 'Zoltán', 'Albert', 'Milena', 'Igor', 'Július', 'Estera', 'Aleš', 'Justína', 'Fedor', 'Dana, Danica', 'Rudolf', 'Valér', 'Jela', 'Marcel', 'Ervín', 'Slavomír', 'Vojtech', 'Juraj', 'Marek', 'Jaroslava', 'Jaroslav', 'Jarmila', 'Lea', 'Anastázia', 'Sviatok práce', 'Žigmunt', 'Galina', 'Florián', 'Lesana, Lesia', 'Hermína', 'Monika', 'Ingrida', 'Roland', 'Viktória', 'Blažena', 'Pankrác', 'Servác', 'Bonifác', 'Žofia', 'Svetozár', 'Gizela', 'Viola', 'Gertrúda', 'Bernard', 'Zina', 'Júlia, Juliana', 'Želmíra', 'Ela', 'Urban', 'Dušan', 'Iveta', 'Viliam', 'Vilma', 'Ferdinand', 'Petronela, Petrana', 'Žaneta', 'Xénia', 'Karolína', 'Lenka', 'Laura', 'Norbert', 'Róbert', 'Medard', 'Stanislava', 'Margaréta', 'Dobroslava', 'Zlatko', 'Anton', 'Vasil', 'Vít', 'Blanka', 'Adolf', 'Vratislav(a)', 'Alfréd', 'Valéria', 'Alojz', 'Paulína', 'Sidónia', 'Ján', 'Tadeáš', 'Adriána', 'Ladislav(a)', 'Beáta', 'Peter a Pavol, Petra', 'Melánia', 'Diana', 'Berta', 'Miloslav', 'Prokop', 'Sviatok sv. Cyrila a Metoda', 'Patrícia, Patrik', 'Oliver', 'Ivan', 'Lujza', 'Amália', 'Milota', 'Nina', 'Margita', 'Kamil', 'Henrich', 'Drahomír', 'Bohuslav', 'Kamila', 'Dušana', 'Iľja, Eliáš', 'Daniel', 'Magdaléna', 'Oľga', 'Vladimír', 'Jakub', 'Anna, Hana', 'Božena', 'Krištof', 'Marta', 'Libuša', 'Ignác', 'Božidara', 'Gustáv', 'Jerguš', 'Dominik(a)', 'Hortenzia', 'Jozefína', 'Štefánia', 'Oskár', 'Ľubomíra', 'Vavrinec', 'Zuzana', 'Darina', 'Ľubomír', 'Mojmír', 'Marcela', 'Leonard', 'Milica', 'Elena, Helena', 'Lýdia', 'Anabela', 'Jana', 'Tichomír', 'Filip', 'Bartolomej', 'Ľudovít', 'Samuel', 'Silvia', 'Augustín', 'Nikola', 'Ružena', 'Nora', 'Drahoslava', 'Linda', 'Belo', 'Rozália', 'Regína', 'Alica', 'Marianna', 'Miriama', 'Martina', 'Oleg', 'Bystrík', 'Mária', 'Ctibor', 'Ľubomil, Ľudomil', 'Jolana', 'Ľudmila', 'Olympia', 'Eugénia', 'Konštantín', 'Ľuboslav(a)', 'Matúš', 'Móric', 'Zdenka', 'Ľuboš, Ľubor', 'Vladislav', 'Edita', 'Cyprián', 'Václav', 'Michal, Michaela', 'Jarolím', 'Arnold', 'Levoslav', 'Stela', 'František', 'Viera', 'Natália', 'Eliška', 'Brigita', 'Dionýz', 'Slavomíra', 'Valentína', 'Maximilián', 'Koloman', 'Boris', 'Terézia', 'Vladimíra', 'Hedviga', 'Lukáš', 'Kristián', 'Vendelín', 'Uršuľa', 'Sergej', 'Alojzia', 'Kvetoslava', 'Aurel', 'Demeter', 'Sabína', 'Dobromila, Kevin', 'Klára', 'Šimon(a)', 'Aurélia', 'Denis(a)', 'Pamiatka zosnulých', 'Hubert', 'Karol', 'Imrich', 'Renáta', 'René', 'Bohumír', 'Teodor', 'Tibor', 'Martin, Maroš', 'Svätopluk', 'Stanislav', 'Irma', 'Leopold', 'Agnesa', 'Klaudia', 'Eugen', 'Alžbeta', 'Félix', 'Elvíra', 'Cecília', 'Klement', 'Emília', 'Katarína', 'Kornel', 'Milan', 'Henrieta', 'Vratko', 'Ondrej, Andrej', 'Edmund', 'Bibiána', 'Oldrich', 'Barbora', 'Oto', 'Mikuláš', 'Ambróz', 'Marína', 'Izabela', 'Radúz', 'Hilda', 'Otília', 'Lucia', 'Branislava, Bronislava', 'Ivica', 'Albína', 'Kornélia', 'Sláva, Slávka', 'Judita', 'Dagmara', 'Bohdan', 'Adela', 'Nadežda', 'Adam a Eva', '1. Sviatok vianočný', 'Štefan', 'Filoména', 'Ivana, Ivona', 'Milada', 'Dávid', 'Silvester'); $den=date(\"z\", time()); if ((date(\"Y\", time())%4>0)&&($den>59)) {   $den++; } if ($den==1||$den==121||$den==186||$den==306||$den==359) {   $out=\"Dnes je \".$mena[$den]; }else{   $out=\"Meniny má \".$mena[$den]; }   return $out; } echo Meniny(); ?>Kalendár <?<TABLE BORDER=1> <TR><TD COLSPAN=7 ALIGN=\"center\"> <? echo date('F Y', time()); ?> <TR> <TD>Po <TD>Ut <TD>St <TD>Št <TD>Pi <TD>So <TD><FONT COLOR='red'>Ne</FONT> <? $weekday=date('w', time()); $today=date('j', time()); $days=date('t', time()); $year=date('Y', time()); $month=date('n', time()); $FirstInMonth=date('w', mktime(0, 0, 0, $month, 1, $year)); if ($FirstInMonth==0) {$FirstInMonth=7;} $isvalid=true; $counting=false; $fakeday=1; $day=1; for ($week=0; $isvalid; $week++) {   echo \"<TR>\";   for ($i=1; ($i<=7); $i++) {       echo \"<TD>\";       if ($fakeday==$FirstInMonth) {           $counting=true;       }       $isvalid=($day<=$days);       if ($counting && $isvalid) {           if ($day==$today) {               echo \"<FONT COLOR='blue'>$day</FONT>\\n\";           }elseif ($i==7) {               echo \"<FONT COLOR='red'>$day</FONT>\\n\";           }else{               echo $day;           }           $day++;       }       $fakeday++;   } } ?> </TABLE>Načítanie obrázku <?// pomenujte subor IMG.PHP$im = @ImageCreateFromGif('obrazok.gif'); /* Skus otvorit */ if ($im == \"\") { /* Ak nemoze otvorit */   $im = ImageCreate(100, 30); /* Vytvori prazdny obrazok */   $bgc = ImageColorAllocate($im,255,255,255); /* Zadefinuje farbu */   $tc = ImageColorAllocate($im,0,0,0);   ImageFilledRectangle($im, 0, 0, 150, 30, $bgc);   ImageString($im, 1, 10, 10, \"Error loading\", $tc); /* Vypise chybu */ } Header(\"Content-type: image/gif\"); ImageGif($im);// Obrazok volajte img.php?im=nazov_obrazku// Powered by :genius ?> To je na dnes vsetko. Uz teraz sa mozte tesit na dalsiu seriu.GENIUS