ага, проблема с переключением раскладки. Не даёт переключать. Если открыть её не с сайта, а саму по себе, то работает нормально:
http://salus.ru/042.swf
а если так:
http://salus.ru/gb.htm начинается глюк.
Вот код PHP:
<?
## Может отрегулировать первые три линии,чтоб не допускать в переменные спецсимволы (теги, слэши и пр.).
$Name = $Name;
$Email = $Email;
$Comments = $Comments;
$Website = $Website;
$Website = $Website;
$Name = stripslashes($Name);
$Email = stripslashes($Email);
$Website = stripslashes($Website);
$Comments = stripslashes($Comments);
####################################################################################
########### Считывание и запись из/в текстовый файл. #############
if ($Submit == "Yes") {
#Указание текстового файла, в котором будут хранится сообщения.
$filename = "GuestBook.txt";
#Открывает файл для чтения.
$fp = fopen( $filename,"r");
$OldData = fread($fp, 80000);
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>Website: </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, $New, 80000);
fclose( $fp );
}
####################################################################################
########## Выведение данных в swf ##
#Указывает, какой файл использовать для хранения сообщений.
$filename = "GuestBook.txt";
#Открывает файл для чтения.
$fp = fopen( $filename,"r");
$Data = fread($fp, 80000);
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;
}
}
?>