Просмотр файла au/adm/ind.php

Размер файла: 788B
<?php
Defined('ADMIN_S_S') or die ('Доступ запрещен!!!');
$bit = filesize('au/pisma.txt');
   if ($bit == 0) {echo 'Нет сообщений.'; exit;};


 $fp = fopen('au/pisma.txt', "r");

   while (!feof($fp))
   {
   $sob1 = fgets($fp);
   $sob2 = explode('|',$sob1);
   echo '<hr>';
   echo '<b>'.$sob2[0].'</b>';  // имя
   echo $sob2[1];   // мыло
   echo '<b>'.$sob2[2].'</b>';     // текст
   $a++;

   };
   fclose ($fp);

if ($_POST[dell_all] != 1)
{?>
<form name="del_all" action="<?php echo $_SERVER[self]?>" method="post">
<input name="dell_all" type="hidden" value="1">
<input type="submit" value="Очистить">
</form>
<?php
}
else
{
$fp = fopen ("au/pisma.txt", "w");
fclose ($fp);
echo 'Удачно. <a href="/admin.php?int=au/adm/ind.php">Далее</a>';
};
?>