zdrojový kód
<?
Header("Expires: ".GMDate("D, d M Y H:i:s")." GMT");
?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<title>Kniha návštev - PHP</title>
</head>
<body bgcolor="#333333" text="#FFFFFF" link="#00FF00" vlink="#00FF00" alink="#FF0000">
<tr>
<td width="0">
<center><font face="Tahoma"color="red">Kniha návštev</font>
<br><br>
<hr color="#FFFFFF">
<br>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<form action="" method="post">
<tr>
<td width=120 class=povinne>
MENO:
</td>
<td>
<input type="text" name="meno" size="20" value="<?
if ($meno=="" || $email=="" || $popis==""):
echo $meno;
endif;
?>">
</td>
</tr>
<tr>
<td width=120 class=povinne>
EMAIL:
</td>
<td>
<input type="text" name="email" size="20" value="<?
if ($meno=="" || $email=="" || $popis==""):
echo $email;
endif;
?>">
</td>
</tr>
<tr>
<td width=120 class=nepovinne>
</td>
<td>
<?
if ($meno=="" || $email=="" || $popis==""):
echo $web;
endif;
?>
<input type="hidden" name="odoslane" value="ano">
</td>
</tr>
<tr>
<td valign=top width=120 class=povinne>
TEXT:
</td>
<td>
<textarea cols="25" rows="3" name="popis"><?
if ($meno=="" || $email=="" || $popis==""):
echo $popis;
endif;
?></textarea>
</td>
</tr>
<tr>
<td width=120>
</td>
<td>
<center><input type="submit" value="Submit"> <input type="Reset" value="Reset"></center>
</td>
</tr>
</form>
</table>
<?
if ($odoslane=="ano"):
if ($meno=="" || $email=="" || $popis==""):
echo "<center><br><font class=male>Vyplnte všetky údaje<br></font></center>";
else:
$name = "<font class=meno>$meno</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=\"#FFFFFF\"><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="#FFFFFF"><br>
<?
if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
FPassThru($fp);
endif;
?>
</td>
</tr>
</table>
</body>
</html>
Vložil/Poslal/Autor: Admin
Funkčnost:
běží na straně serveru, nemělo by záležet na typu prohlížeče