File size: 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>';
};
?>