Показать сообщение отдельно
Старый 27.11.2003, 22:38
2K WebStudio вне форума Посмотреть профиль Отправить личное сообщение для 2K WebStudio Посетить домашнюю страницу 2K WebStudio Найти все сообщения от 2K WebStudio
  № 5  
2K WebStudio
 
Аватар для 2K WebStudio

Регистрация: Jul 2002
Адрес: Russia Federation Moscow
Сообщений: 779
Отправить сообщение для 2K WebStudio с помощью ICQ
Ребят! Я не лаймер всё-таки!
вот скрипт:
PHP код:
#Указание текстового файла, в котором будут хранится сообщения.
        
$filename "GuestBook.txt";

#Открывает файл для чтения.

        
$fp fopen$filename,"r"); 
        
$OldData fread($fp80000); 
        
fclose$fp ); 

#Показывает дату добавления сообщения (дата не русифицирована).
        
$Today = (date ("l dS of F Y ( h:i:s A )",time()));

#Вот тут изменяйте по вкусу - можете настроить цвет, разиер и толщину шрифта, порядок выведения Ника, Емэйла и УРЛ"а.

        
$Input "<b>Name: </b>$Name<br><b>Email: </b><a href=\"mailto:$Email\">$Email</a><br><b>Photo: </b><a href=\"http://$Website\" target=\"_blank\">$Website</a><br><b>Comments: </b>$Comments<br><font size=\"-1\">Date: $Today</font><br><br>.:::.";

#Добавление надписи 'GuestBook=' к началу текстового файла с сообщениями.  Это нужно, чтобы swf"ка могла отображать сообщения из текстового файла.

        
$New "$Input$OldData";

#Открывает файл для записи.

        
$fp fopen$filename,"w+"); 
        
fwrite($fp$New80000); 
        
fclose$fp ); 
}

####################################################################################
########## Выведение данных в swf ##

#Указывает, какой файл использовать для хранения сообщений.
        
$filename "GuestBook.txt";

#Открывает файл для чтения.

        
$fp fopen$filename,"r"); 
        
$Data fread($fp80000); 
        
fclose$fp );

#SРасщепление старых данных в массив,как только встречается такая фишка .:::.
        
$DataArray split (".:::."$Data);

#Подсчет количества сообщений в гостевухе.
        
$NumEntries count($DataArray) - 1;

        print 
"&TotalEntries=$NumEntries&NumLow=$NumLow&NumHigh=$NumHigh&GuestBook=";
        for (
$n $NumLow$n $NumHigh$n++) {
        print 
$DataArray[$n];
                if (!
$DataArray[$n]) {
                Print 
"<br><br><b>The end.</b>";
                exit;
                }
        }
        


####################################################################################
###############  Конец.
?> 
из исходника
Так вот: на Apache работает, копирую на сервак в нете - не пашет!!!
Ничего не меняю в названиях файлов, явно, чтол php работает: во-первых потомучто, если запустить этот скрипт с жестака не на серваке, то получится всякая гадость, и к тому же простой скрипт:
<?
print "2k";
?>
на этом серваке работает!
Повторяю, CHMOВ поставил все семёрки!