View file biblioteka/books.php

File size: 2.71Kb
<?
// В файле books.bfa находится список всех авторов и произведений.
$AUTORSPP= 15;

require "begin.php";
require_once "strconvert.php";

if (@$PHP_SELF=='') $PHP_SELF = $_SERVER["PHP_SELF"];
if (!isset($cmd)) {eval(implode('',file("sh.dat")));}

$wml.= "<card id=\"books\" title=\"On-LineLib\">\n
<do type=\"options\" name=\"main\" label=\"Books...\" optional=\"false\">
<go href=\"$PHP_SELF\" sendreferer=\"false\" method=\"get\" enctype=\"application/x-www-form-urlencoded\" />
</do>\n
<p align=\"left\">\n";

$abs= @file("books.bfa"); // $abs- Array BookS
$am= count($abs);

// $cmd- какую команду выполнять
switch ($cmd):
case "Rd": // Команда ЧИТАТЬ! Вместе с ней должны быть переданы: номер произведения!!!, размер страницы, страница
for ($i=0; $i<$am; $i++) {
  $arr= explode("|", trim($abs[$i])); // Получаем строку-список
  if ($arr[0]===$a) break;
}
$faut= $arr[4]; // Получить файл
  
  if (!isset($pg)) $pg= 0;
  if (@$sz<1000) $sz= 1000;
  
  $fs= filesize($faut);
  if (($pg*$sz)>$fs) $pg= (int)($fs/$sz);
  $fp = @fopen($faut,"r");
  $sss= $sz*$pg;
  @fseek($fp, $sss, SEEK_SET);
  $str= @fread($fp, $sz);
  @fclose($fp);
  
$wp= (int)($fs/$sz);
  
$wml.= "<b>[Pages: ".$pg." / ".$wp."]</b><br/>\n";
$wml.="NumberPage:<br />\n
<input name=\"nstr\" title=\"Number Pages\" format=\"*N\" value=\"".$pg."\"/> <a href=\"$PHP_SELF?cmd=Rd&amp;dcs=".@$dcs."&amp;sz=$sz&amp;a=$a&amp;pg=$(nstr)\">Ok</a><br />\n- - -<br />\n";

$str= trim($str, "\x20"); //СѓРґР°Р»СЏРµС‚ РїСЂРѕР±РµР»СЊРЅС‹Рµ СЃРёРјРІРѕР»С‹
$str= del_symb($str); // СѓРґР°Р»СЏРµС‚ РІСЃС‘, РєСЂРѕРјРµ \n, x020-x07F, Рђ-СЏРЃС‘, -, вЂњ, вЂќ!
$str= changest($str);
$str= nl2br($str);
  
  $lp= $pg-1; if ($lp<0) $lp= 0;
  $rp= $pg+1; if (($rp*$sz)>$fs) $rp= $rp-1;
  if ($pg>0) $s1= "<a href=\"".$PHP_SELF."?cmd=Rd&amp;dcs=".@$dcs."&amp;sz=".$sz."&amp;a=".$a."&amp;pg=".$lp."&amp;rdr=".rand(1,9999)."\">назад-</a>\n"; else $s1= "";
  if ($pg<$wp) $s2= "<a href=\"".$PHP_SELF."?cmd=Rd&amp;dcs=".@$dcs."&amp;sz=".$sz."&amp;a=".$a."&amp;pg=".$rp."&amp;rdr=".rand(1,9999)."\">-вперёд</a>\n"; else $s2= "";

$wml.=  "$str \n";

  $wml.= "<br /><small>".$s1.$s2."</small>";
  if ($s1.$s2!=="") $wml.="<br />\n";
  $wml.= "<a href=\"$PHP_SELF\">Выбоp книги</a> <br/>\n";
  break;

case "ShL": //список букв
  eval(implode('',file("shl.dat")));
  break;

case "ShA": // список авторов
  eval(implode('', file("sha.dat")));
  break;

case "ShM": // список произведений
  eval(implode('',file("shm.dat")));
  break;

case "ShS": // список книг серии
  eval(implode('',file("shs.dat")));
  break;
  
case "Mark": //список букв
  eval(implode('',file("mark.dat")));
  break;

endswitch;

require "prologue.php";
echo $wml;
?>