Kód: Vybrať všetko
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<LINK href="styl.css" rel="stylesheet" type="text/css">
<title>Kniha návštev - PHP</title>
</head>
<body>
<table width="500" align="center">
<tr><td width="500"><center><font class=nadpis>Kniha návštev</font><br><br>
<font class="male">povinné údaje označeny červeným písmem</font></center>
<hr color="#00008B"><br>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<form method="post">
<tr><td width=120 class=povinne>Jméno:</td>
<td><input type="text" name="jmeno" size="30" value="<?php
if ($jmeno=="" || $email=="" || $popis==""):
echo $jmeno;
endif;
?>"></td></tr>
<tr><td width=120 class=povinne>E-mail:</td>
<td><input type="text" name="email" size="30" value="<?
if ($jmeno=="" || $email=="" || $popis==""):
echo $email;
endif;
?>"></td></tr>
<tr><td width=120 class=nepovinne>Web (i s http://):</td>
<td><input type="text" name="web" size="30" value="<?
if ($jmeno=="" || $email=="" || $popis==""):
echo $web;
endif;
?>">
<input type="hidden" name="odeslano" value="ano"></td></tr>
<tr><td valign=top width=120 class=povinne>Text zprávy:</td>
<td><textarea cols="29" rows="5" name="popis"><?
if ($jmeno=="" || $email=="" || $popis==""):
echo $popis;
endif;
?></textarea></td></tr>
<tr><td width=120></td>
<td><center><input type="submit" value="Odeslat"> <input type="Reset"
value="Vymazat"></center></td></tr></form></table>
<?
if ($odeslano=="ano"):
if ($jmeno=="" || $email=="" || $popis==""):
echo "<center><br><font class=male>musíte vyplnit všetky povinné údaje<br></font></center>";
else:
$name = "<font class=jmeno>$jmeno</font><BR>\n"
$e_mail = "<A class="odkaz" HREF=mailto:$email>$email</A><BR>\n";
if ($web!=""):
$www = "<A class=odkaz HREF=\"$web\">$web</A><BR>\n";
endif;
$cas = "<font class=cas>" . Date("j. " . "m. " . "Y, " . "H:i:s") . "</font><BR>\n";
$popis2 = NL2BR(HTMLSpecialChars($popis));
$zprava = "<BR><font class=text>$popis2</font><BR><BR><HR
color=\"#00008B\"><BR>\n\n"
$write = StripSlashes($name . $e_mail . $www . $cas . $zprava);
if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
$data = FRead ($fp, FileSize("book.dat"));
FClose($fp);
endif;
$fp = FOpen ("book.dat", "w");
FWrite ($fp, $write.$data);
FClose ($fp);
endif;
endif;
?>
<hr color="#00008B"><br>
<?
if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
FPassThru($fp);
endif;
?>
</body>
</html>Kód: Vybrať všetko
$e_mail = "<A class="odkaz" HREF=mailto:$email>$email</A><BR>\n";