PHP

From: Tomas Havlicek (THavlicek@JOSEPH.gjk.cz)
Date: 23. 05. 2001, 21:35 CEST


Dobry den
Mam takovy problem.
Delam v PHP chat, a chci, aby se mi nick z textboxu ulozil do promenne:
Ale porad me to vyzyva k naplneni nicku.
zde je kod a stranka je na http://hugo.gjk.cz/~joky/chat.html   :
Seznam stranek je na http://hugo.gjk.cz/~joky/chat/
------------------------------------ZACATEK kodu---------------------------
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<LINK href="styl.css" rel="stylesheet" type="text/css">
<title>JOkyho kniha navstev - PHP</title>
</head>

<body bgcolor=#FFFFFF>
		<form action="" method="post">
		<table>
		<tr>
<?
if ($nick==""):
echo "<p class=male>ZADEJTE NICK</p><input type=\"text\" name=\"jmeno\"
value=10><input type=\"submit\" action=\"\" method=post value=\"<< OK
>>\">";
$nick=$jmeno;

echo "<p class=male>$nick</p>";
else:
echo "<input type=\"hidden\" name=\"odeslano\" value=\"ano\"></td>
<td>"; 
echo "<input type=\"text\" size = 40  name=\"text\">";
				if ($text==""):	//pokud nebudou zadány
všechny povinné údaje, objeví se formulář znovu (s údaji, které již byly
vyplněny)
				echo $text;
         			endif;
				?></td>
				 <input type="hidden" name="odeslano"
value="ano">
				 
	<td>	<input type="submit" value="Odeslat">
	</td>
		</form>
<?
if ($odeslano=="ano"):

if ($jmeno=="" || $text==""):
//kontrola zadaných udajů, pokud nebyly zadány všechny povinné údaje, do
knihy se nic nezapíše
echo "<center><br><font class=male>neco chybi !!!<br></font></center>";

else:
//včechny povinné údaje jsou zadány

	$name = "<font class=\"male\">$nick</font>\n";
//do proměnné "name" uloží Jméno, zformátuje jej pomocí tagu <FONT> a otevře
nový řádek
	$popis2 = NL2BR(HTMLSpecialChars($text));
//změna konců řádků na tagy <BR> a ostraní znaky, které by mohly porušit
formátování
	$zprava = "<p class=textik align=\"left\" >$name>$popis2</p>\n\n";
//do proměnné "www" uloží $popis2, zformátuje, přidá čáru, která bude
oddělovat příspěvky a otevře nový řádek

	$write = StripSlashes($zprava);		
if (File_Exists ("text.dat")):
//existuje soubor book.dat
	$fp = FOpen ("text.dat", "r");
//otevře soubor book.dat pro čtení
	$data = FRead ($fp, FileSize("text.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
else:
echo "<center><br><font class=male>neexistuje<br></font></center>";
endif;


	$fp = FOpen ("text.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
endif;
endif;
echo "<center><br><font class=male>nick:$nick<br></font></center>";

endif;
?>

</html>

----------------------------------------KONEC
KODU----------------------------


Za vse mockrat dekuji

		tomahav - THavlicek@JOSEPH.gjk.cz



This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 07:10 CEST