Guest book + php3 + zapis do book.dat !

1. Návštěvník 80BBDD9A 4. 3. 2004 20:47

   Mam tento script a potreboval bych zmenit font pisma a porad mi to nejde! tento script zapisuje do book.dat! Zde je script: <? //odstraneni nebezpecnych znaku $jmeno = HTMLSpecialChars($jmeno); $email = HTMLSpecialChars($email); $web = HTMLSpecialChars($web); //formatovani prispevku $jmeno = "<table><tr><b><td class=<b>jmeno</b>>$jmeno</td></b></tr>"; $email = "<tr><td class=odkaz><A HREF=mailto:$email>$email</A></td></tr>"; if ($web!="" && $web!="http://"): $www = "<tr><td class=odkaz><A HREF=\"$web\">$web</A></td></tr>"; endif; $cas = "<tr><td class=cas>" . Date("j. " . "m. " . "Y, " . "H:i:s") . "</td></tr>"; $zprava = SubStr($zprava, 0, 1500); //bereme pouze 1500 znaku $zprava = Trim($zprava); //odstraneni mezer z konce retezce $zprava = HTMLSpecialChars($zprava); //odstraneni nebezpecnych znaku $zprava = Str_Replace("\n"," <BR> ", $zprava); //nahrazeni koncu radku na tagy <BR> $znak = 66; //dlouha slova delit po .. znacich $slovo = Split("[[:blank:]]+", $zprava); //rozdeleni textu na slova for($y=0;$y<Count($slovo);$y++): $slovo[$y] = Trim($slovo[$y]); //odstraneni mezer na konci slova if (Strlen($slovo[$y])<=$znak): //nebudeme delit if (EregI("^(www\..+\..{2,3})$", $slovo[$y])): //jedna se odkaz typu www...... $odkaz = EregI_Replace("^(www\..+\..{2,3})$", "<a href=http://\\1>\\1</a> ", $slovo[$y]); elseif (EregI("^(http://.+\..{2,3})$", $slovo[$y]))://jedna se odkaz typu http://....... $odkaz = EregI_Replace("^(http://.+\..{2,3})$", "<a href=\\1>\\1</a> ", $slovo[$y]); else: $odkaz = $slovo[$y] . " "; //jedna se o normalni slovo endif; $celek .= $odkaz; //spojime vsechny slova opet dohromady else: $delit = Ceil(StrLen($slovo[$y])/$znak); //delime dlouhe slovo for($z=0;$z<$delit;$z++): $cast = Substr($slovo[$y], $z*$znak, $znak); $celek .= $cast . " - "; //na konec jednotlivych casti pridame pomlcku endfor; endif; endfor; //povolime tyto tagy <b> <u> <i> $zprava = Str_Replace("<b>", "<b>", $celek); $zprava = Str_Replace("</b>", "</b>", $zprava); $zprava = Str_Replace("<i>", "<i>", $zprava); $zprava = Str_Replace("</i>", "</i>", $zprava); $zprava = Str_Replace("<u>", "<u>", $zprava); $zprava = Str_Replace("</u>", "</u>", $zprava); $zprava = "<tr><td class=text><br>$zprava</td></tr></table><hr color=#FFFF00>\n"; $write = StripSlashes($jmeno . $email . $www . $cas . $zprava); //odstraneni escape sekvenci if (File_Exists ("book.dat")): //existuje soubor book.dat $fp = FOpen ("book.dat", "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize("book.dat")); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); //zavře book.dat endif; $fp = FOpen ("book.dat", "w"); //otevře book.dat pro přepis nebo vytvoření FWrite ($fp, $write.$data); //zápis do souboru book.dat (nejprve aktuální příspěvek, poté předešlý obsah souboru book.dat) FClose ($fp); //zavře soubor book.dat ?> <head> <META HTTP-EQUIV="Refresh" CONTENT="0; URL=guest_book.php3"> </head>

2. Návštěvník 68EF7512 4. 3. 2004 21:30

   Podival bych se do stylopisu, tam to zmenis

3. Návštěvník 80BBDD9A 4. 3. 2004 21:32

   Podival bych se ale jsem zacatecnik(uplna lama)! Prosím co to je a kde to je?

4. Návštěvník 68EF7512 4. 3. 2004 21:47

   nejakysoubor.css vetsinou

5. Návštěvník 82986B07 5. 3. 2004 00:02

   v sekci "head" mas uvedenou adresu k nejakysoubor.css a kdyz se kouknes do tohohle skriptu, vzdycky je nejaka cast uvedena jako class="neco" - tak podle toho to v css vyhledas. takze vlastne tohle sem vubec za prvy nepatri, za druhy si najdi nejakej clanek o css zdar a silu najdes v syru.

6. Návštěvník 70FD7561 6. 3. 2004 10:52

   na CSS+HTML se koukni na www.jakpsatweb.cz

7. Návštěvník 80BBDD9A 7. 3. 2004 15:48

   Uz sem to vyresil! Dik za rady!

← Zpět na všechna témata