###################################################################### # phpRS KnihaHostu 1.1.0 ###################################################################### // vyuzivane tabulky: rs_kniha define('IN_CODE',true); // inic. ochranne konstanty include("config.php"); include("specfce.php"); include("myweb.php"); include("sl.php"); include("trlayout.php"); include($adrlayoutu); // aktivace spojeni if (!isset($GLOBALS["dbspojeni"])): $GLOBALS["dbspojeni"]=dbcon(); endif; //tato funkce zobrazuje formular a vklada prispevky do databaze function KnihaFormular() { global $knipredpona,$jmenoKniha,$emailKniha,$webKniha,$prispevekKniha,$textKniha,$odeslanoKniha; //kontrola zda byl formular odeslan if ($odeslanoKniha): //kontrola zda se nejedná o robota if ($_POST["robot"]*1==6): //kontrola zda byly zadany vsechny povinne udaje if(($jmenoKniha!="") and ($prispevekKniha!="") and ($textKniha!="")): //kontrola zda bylo dobre vyplneno pole email neo zustalo prazne if(EReg("^[^@]+@[^.]+\..+$",$emailKniha) or ($emailKniha=="")): //kontrola zda bylo dobre vyplneno pole www stranky neo zustalo prazne if(EReg("^[^.]+\..+$",$webKniha) or ($webKniha=="")): //kontrola zda promena www stranky zacina http://, pokud ne tak ji doplni if(!EReg("http://.*",$webKniha) and ($webKniha!="")) $webKniha='http://'.$webKniha; //pokud je promena email nebo www stranky prazdan doplni se do ni - if ($emailKniha=="") $emailKniha='-'; if ($webKniha=="") $webKniha='-'; //ziskani hodnot casovych promenych $datumKniha=Date(Y."-".m."-".d); $casKniha=Date(H.":".i.":".s); //vlozeni dat do databaze $retezec="http"; $pozice = StrPos($GLOBALS["textKniha"], $retezec); if ($pozice === false) /* vsimnete si operatoru === */ { $pridatKniha = MySQL_Query("INSERT INTO ".$GLOBALS["rspredpona"]."kniha VALUES ( '', '$jmenoKniha', '$emailKniha', '$webKniha', '$prispevekKniha', '$textKniha', '$datumKniha', '$casKniha')",$GLOBALS["dbspojeni"]); } else { $error=0; } //kontrola zda vse probehlo v poradku a vynulovani promenych if ($pridatKniha): //vynulovani vsech promenych $jmenoKniha=""; $prispevekKniha=""; $textKniha=""; $emailKniha=""; $webKniha=""; $commentKniha= "
".RS_KNIPRISOK."
"; else: //pokud je promena email nebo www stranky prazdan vynuluji se if ($emailKniha=="-") $emailKniha=''; if ($webKniha=="-") $webKniha=''; $commentKniha="".RS_KNIPRISER."
"; endif; else: $commentKniha="".RS_KNIPOLERWWW."
"; endif; else: $commentKniha="".RS_KNIPOLEREMAIL."
"; endif; else: $commentKniha="".RS_KNIHAERROR."
"; endif; else: $commentKniha="I have got you
"; endif; else: $commentKniha="".RS_KNIPOLETEXT."
"; endif; echo "".RS_KNIPRISER1."
"; endif; echo "".RS_KNIHEJE." ".MySQL_Num_Rows($vypisKniha)." ".RS_KNIHEJE1."
"; if (MySQL_Num_Rows($vypisKniha)<$pocetKniha) $pocetKniha=MySQL_Num_Rows($vypisKniha); //vyber poctu vypsanych prispevku switch($jakKniha): case "all": while ($zaznam = MySQL_Fetch_Array($vypisKniha)): KnihaVypisData($zaznam["idk"],$zaznam["jmeno"],$zaznam["email"],$zaznam["web"],$zaznam["nadpis"],$zaznam["text"],$zaznam["datum"],$zaznam["cas"]); endwhile; break; default: $i=0; while ($i<$pocetKniha): $i++; $zaznam = MySQL_Fetch_Array($vypisKniha); KnihaVypisData($zaznam["idk"],$zaznam["jmeno"],$zaznam["email"],$zaznam["web"],$zaznam["nadpis"],$zaznam["text"],$zaznam["datum"],$zaznam["cas"]); endwhile; endswitch; echo"".RS_KNIHEPOS." ".$pocetKniha." ".RS_KNIHEJE1." | ".RS_KNIHEALL."
"; } //tato funkce graficky upravuje vypis dat function KnihaVypisData($idk,$jmeno,$email,$web,$nadpis,$text,$datum,$cas) { echo "
".$nadpis."".RS_KNIHEKOLKO." ".$datum." (".$cas.") ".NL2BR($text)." ( Autor: "; if ($email=="-"): echo $jmeno; else: echo"".$jmeno.""; endif; echo" | Email: "; if ($email=="-"): echo "neuvedené"; else: echo"".$email.""; endif; echo" | www: "; if ($web=="-"): echo "neuvedené"; else: echo"".$web.""; endif; echo " ) |