echo "Эту страницу читают: <b>$user</b> чел.";

echo "Эту страницу за последние $to_secs сек. читали: <b>$user</b> чел.";

$REMOTE_ADDR = $_SERVER['REMOTE_ADDR'];

$text = str_replace("\r\n", "<br>\r\n", $text);

function nl2p($string) {
$s = "|\r\n|";
$d = "</p>\n<p>";
$string = "<p>". preg_replace($s, $d, $string) ."</p>";
$string = str_replace('<p></p>', '<br/>', $string);
return $string;
}

$ratio = $w_src/$w;

if( $ratio<1 ) $ratio=1;

<?php
// составление списка всех файлов и каталогов с рекурсивным поиском во вложенных директориях
function make_list( $directory ) {
$list = array();
if( $df = opendir( $directory ) ) {
while( $f = readdir( $df ) ) {
if( $f == '.' || $f == '..' ) continue;
$path = $directory . '/' . $f;
if( is_dir( $path ) ) {
$s = stat( $path );
clearstatcache();
$dir = array();
$dir[] = array(
'filename' => $path, // полное имя файла
'size' => $s[ 'size' ], // размер файла в байтах
'mtime' => $s[ 'mtime' ], // время последнего изменения файла
'owner' => $s[ 'uid' ], // числовой идентификатор владельца posix_getpwuid( $s[ '
'group' => $s[ 'gid' ], // числовой идентификатор группы posix_getgrgid( $s[ '
'perms' => sprintf( '0%o', 0777 & $s[ 'mode' ] ), // права доступа на файл
);
$list = array_merge( $list, $dir, make_list( $path ) );
continue;
}
if( is_file( $path ) && file_exists( $path ) ) {
$s = stat( $path );
clearstatcache();
$list[] = array(
'filename' => $path, // полное имя файла
'size' => $s[ 'size' ], // размер файла в байтах
'mtime' => $s[ 'mtime' ], // время последнего изменения файла
'owner' => $s[ 'uid' ], // числовой идентификатор владельца posix_getpwuid( $s[ '
'group' => $s[ 'gid' ], // числовой идентификатор группы posix_getgrgid( $s[ '
'perms' => sprintf( '0%o', 0777 & $s[ 'mode' ] ), // права доступа на файл

);
}
}
closedir( $df );
}
return $list;
}

$list = make_list( '.' ); // вместо точки можно задать абсолютный путь к папке
echo '<pre>', print_r( $list, false ), '</pre>';
?>

<?php
$days_description = file('file.dat', FILE_IGNORE_NEW_LINES);
$day = date('z');
echo $days_description[$day];
?>

procedure TForm1.Button1Click(Sender: TObject);
var
PostData:TStringList;
begin
PostData.Add('action=login');
PostData.Add('imembername='+'Мой логин');
PostData.Add('ipassword='+'Мой пароль');
PostData.Add('submit=%C2%F5%EE%E4');
IdHTTP1.Post('http://exbb.info/community/loginout.php',PostData);
end;

http://exbb.info/community/loginout.php
с параметрами
action=login&imembername=*&ipassword=?&submit=%C2%F5%EE%E4
где
* - логин пользователя
? - пароль пользователя