Я гуест буку пишу... Тут меня интересуют вопросы:
1) Как сделать так чтобы новые сообщения появлялись вверху? Я это реализовал вот так:
open (DATA,"$datafile")|mustdie("Cannot open $datafile $!");
read (DATA,$file,[7]);
close (DATA);
open (DATA,">$datafile")|mustdie("Cannot open $datafile $!");
print DATA "<tr><td align=center valign=top><a href=mailto:$email>$name<td valign=top>$msg\n";
print DATA $file;
close (DATA);
---
Но представте если очень большой файл? :) Надо какой-то реверс, но какой?
2) Для админской панельки мне надо вот что: как удалить например определённую строчку (имеенно номер строки)? И вообще как определить сколько строк находится в файле?
3) Как реализовать чтобы например на странице не больше 10записей было, остальное всё в архив.
|
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
