Jednoduchá kniha návštěv bez SQL (3) - ukázka zdrojového kódu zdrojový kód


<?
if (($akce=="add") && ($Email!="") && ($Jmeno!="") && ($Zprava!="")) {
  
$fp=FOpen("kniha.body","a");
FPutS($fp,"
<table border='0' cellpadding='0' cellspacing='0' width='100%'>
  <tr>
    <td width='100%'><font face='Tahoma' color='#808080'><small><small>"
.Date("j.n.Y H:i:s")."</small></small></font></td>
  </tr>
  <tr>
    <td width='100%'><small><font face='Tahoma'>$Jmeno (<a
    href='mailto:$Email'>$Email</a>) </font></small></td>
  </tr>"
);
FPutS($fp"
  <tr>
   <td width='100%'><small><font face='Tahoma'>WEB: <a href='$Web'>$Web</a>
   </font></small></td>
 </tr>"
);
FPutS($fp"
  <tr>
    <td width='100%'><small><font face='Tahoma'>&nbsp;&nbsp;</font></small></td>
  </tr>
  <tr>
    <td width='100%'><font face='Tahoma'><em><small>"
.NL2BR(HTMLSpecialChars($Zprava))."</small></em></font></td>
  </tr>
</table><hr>"
);

  
$fp=FOpen("kniha.head","r");
  
FPassThru($fp);
  echo 
"<br><br><hr>";
  
$fp=FOpen("kniha.body","r");
  
FPassThru($fp);
  
$fp=FOpen("kniha.tail","r");
  
FPassThru($fp);
  exit;

}
elseif (
$akce=="") {
  
$fp=FOpen("kniha.head","r");
  
FPassThru($fp);
  echo 
"<br><br><hr>";
  
$fp=FOpen("kniha.body","r");
  
FPassThru($fp);
  
$fp=FOpen("kniha.tail","r");
  
FPassThru($fp);
  exit;
}
else {
if (
$Web==""$Web="http://";
include 
"./kniha.head";
?>

<form method='POST' action='index.php'>
<input type='hidden' name='akce' value='add'>
<table border='0' cellpadding='0'
  cellspacing='0' width='100%'>
    <tr>
      <td width='18%'><font face='tahoma'><small>Vaše jméno*</td>
      <td width='82%'><input type='text' name='Jmeno' size='20' value='<? print $Jmeno?>'></td>
    </tr>
    <tr>
      <td width='18%'><font face='tahoma'><small>Váš e-mail*</td>
      <td width='82%'><input type='text' name='Email' size='20' value='<? print $Email ?>'></td>
    </tr>
    <tr>
      <td width='18%'><font face='tahoma'><small>Vaše www stránka</td>
      <td width='82%'><input type='text' name='Web' size='20' value='<? print $Web?>'></td>
    </tr>
    <tr>
      <td width='18%' valign='top'><font face='tahoma'><small>Text zprávy*</td>
      <td width='82%'><textarea rows='7' name='Zprava' cols='39'><? print $Zprava?></textarea></td>
    </tr>
    <tr>
      <td width='18%' valign='top'></td>
      <td width='82%'>&nbsp;&nbsp;</td>
    </tr>
    <tr>
      <td width='18%' valign='top'></td>
      <td width='82%'><input type='submit' value='Přidat' name='B1'><input type='reset'
      value='Vymazat' name='B2'></td>
    </tr>
  </table>
<br><br>
<font face='tahoma'><small>
* Takto označené položky je nutné vyplnit
</form>

</body>
</html>
<? }?>
Vložil/Poslal/Autor: Admin
Funkčnost: běží na straně serveru, nemělo by záležet na typu prohlížeče
zavřít okno | jít na hlavní stránku JakNaWeb.com