File size: 6.12Kb
for ($i=0; $i<$am; $i++){ // Список авторов
$tmp= trim($abs[$i]);
if ($tmp!=="") {
$fstr= explode("|", $tmp);
if ($fstr!=="") {
$let= $fstr[1];
if ($let!= "Разное") @$ll[$let]++; // $letterlist
else {@$razn++; $nrzn=$fstr[0];}
@$ct++;
}
}
}
foreach ($ll as $k=>$v) { // Список первых букв авторов
$let= $k[0];
@$la[$let]++;
}
$wml.= "Авторов: <b>".count($ll)."</b><br/>\nПроизведений: <b>".$ct."</b><br/><br/>\n";
$wml.= "Выберите первую букву фамилии автора:\n</p><p align=\"center\">\n";
$wml.= "<table columns=\"2\" align=\"LL\"><tr><td>";
if (isset($la["А"])) $wml.= "А(<a href=\"$PHP_SELF?cmd=ShA&a=1&sz=".@$sz."&dcs=".@$dcs."\">".$la["А"]."</a>)</td><td>";
else $wml.= "А</td><td>";
if (isset($la["Б"])) $wml.= "Б(<a href=\"$PHP_SELF?cmd=ShA&a=2&sz=".@$sz."&dcs=".@$dcs."\">".$la["Б"]."</a>)</td></tr><tr><td>";
else $wml.= "Б</td></tr><tr><td>";
if (isset($la["В"])) $wml.= "В(<a href=\"$PHP_SELF?cmd=ShA&a=3&sz=".@$sz."&dcs=".@$dcs."\">".$la["В"]."</a>)</td><td>";
else $wml.= "В</td><td>";
if (isset($la["Г"])) $wml.= "Г(<a href=\"$PHP_SELF?cmd=ShA&a=4&sz=".@$sz."&dcs=".@$dcs."\">".$la["Г"]."</a>)</td></tr><tr><td>";
else $wml.= "Г</td></tr><tr><td>";
if (isset($la["Д"])) $wml.= "Д(<a href=\"$PHP_SELF?cmd=ShA&a=5&sz=".@$sz."&dcs=".@$dcs."\">".$la["Д"]."</a>)</td><td>";
else $wml.= "Д</td><td>";
if (isset($la["Е"])) $wml.= "Е(<a href=\"$PHP_SELF?cmd=ShA&a=6&sz=".@$sz."&dcs=".@$dcs."\">".$la["Е"]."</a>)</td></tr><tr><td>";
else $wml.= "Е</td></tr><tr><td>";
//if (isset($la["Ё"])) $wml.= "Ё(<a href=\"$PHP_SELF?cmd=ShA&a=7&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ё"]."</a>)</td><td>";
//else $wml.= "Ё</td><td>";
$wml.= "</td><td>";
if (isset($la["Ж"])) $wml.= "Ж(<a href=\"$PHP_SELF?cmd=ShA&a=8&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ж"]."</a>)</td></tr><tr><td>";
else $wml.= "Ж</td></tr><tr><td>";
if (isset($la["З"])) $wml.= "З(<a href=\"$PHP_SELF?cmd=ShA&a=9&sz=".@$sz."&dcs=".@$dcs."\">".$la["З"]."</a>)</td><td>";
else $wml.= "З</td><td>";
if (isset($la["И"])) $wml.= "И(<a href=\"$PHP_SELF?cmd=ShA&a=10&sz=".@$sz."&dcs=".@$dcs."\">".$la["И"]."</a>)</td></tr><tr><td>";
else $wml.= "И</td></tr><tr><td>";
if (isset($la["Й"])) $wml.= "Й(<a href=\"$PHP_SELF?cmd=ShA&a=11&sz=".@$sz."&dcs=".@$dcs."\">".$la["Й"]."</a>)</td><td>";
else $wml.= "Й</td><td>";
if (isset($la["К"])) $wml.= "К(<a href=\"$PHP_SELF?cmd=ShA&a=12&sz=".@$sz."&dcs=".@$dcs."\">".$la["К"]."</a>)</td></tr><tr><td>";
else $wml.= "К</td></tr><tr><td>";
if (isset($la["Л"])) $wml.= "Л(<a href=\"$PHP_SELF?cmd=ShA&a=13&sz=".@$sz."&dcs=".@$dcs."\">".$la["Л"]."</a>)</td><td>";
else $wml.= "Л</td><td>";
if (isset($la["М"])) $wml.= "М(<a href=\"$PHP_SELF?cmd=ShA&a=14&sz=".@$sz."&dcs=".@$dcs."\">".$la["М"]."</a>)</td></tr><tr><td>";
else $wml.= "М</td></tr><tr><td>";
if (isset($la["Н"])) $wml.= "Н(<a href=\"$PHP_SELF?cmd=ShA&a=15&sz=".@$sz."&dcs=".@$dcs."\">".$la["Н"]."</a>)</td><td>";
else $wml.= "Н</td><td>";
if (isset($la["О"])) $wml.= "О(<a href=\"$PHP_SELF?cmd=ShA&a=16&sz=".@$sz."&dcs=".@$dcs."\">".$la["О"]."</a>)</td></tr><tr><td>";
else $wml.= "О</td></tr><tr><td>";
if (isset($la["П"])) $wml.= "П(<a href=\"$PHP_SELF?cmd=ShA&a=17&sz=".@$sz."&dcs=".@$dcs."\">".$la["П"]."</a>)</td><td>";
else $wml.= "П</td><td>";
if (isset($la["Р"])) $wml.= "Р(<a href=\"$PHP_SELF?cmd=ShA&a=18&sz=".@$sz."&dcs=".@$dcs."\">".$la["Р"]."</a>)</td></tr><tr><td>";
else $wml.= "Р</td></tr><tr><td>";
if (isset($la["С"])) $wml.= "С(<a href=\"$PHP_SELF?cmd=ShA&a=19&sz=".@$sz."&dcs=".@$dcs."\">".$la["С"]."</a>)</td><td>";
else $wml.= "С</td><td>";
if (isset($la["Т"])) $wml.= "Т(<a href=\"$PHP_SELF?cmd=ShA&a=20&sz=".@$sz."&dcs=".@$dcs."\">".$la["Т"]."</a>)</td></tr><tr><td>";
else $wml.= "Т</td></tr><tr><td>";
if (isset($la["У"])) $wml.= "У(<a href=\"$PHP_SELF?cmd=ShA&a=21&sz=".@$sz."&dcs=".@$dcs."\">".$la["У"]."</a>)</td><td>";
else $wml.= "У</td><td>";
if (isset($la["Ф"])) $wml.= "Ф(<a href=\"$PHP_SELF?cmd=ShA&a=22&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ф"]."</a>)</td></tr><tr><td>";
else $wml.= "Ф</td></tr><tr><td>";
if (isset($la["Х"])) $wml.= "Х(<a href=\"$PHP_SELF?cmd=ShA&a=23&sz=".@$sz."&dcs=".@$dcs."\">".$la["Х"]."</a>)</td><td>";
else $wml.= "Х</td><td>";
if (isset($la["Ц"])) $wml.= "Ц(<a href=\"$PHP_SELF?cmd=ShA&a=24&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ц"]."</a>)</td></tr><tr><td>";
else $wml.= "Ц</td></tr><tr><td>";
if (isset($la["Ч"])) $wml.= "Ч(<a href=\"$PHP_SELF?cmd=ShA&a=25&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ч"]."</a>)</td><td>";
else $wml.= "Ч</td><td>";
if (isset($la["Ш"])) $wml.= "Ш(<a href=\"$PHP_SELF?cmd=ShA&a=26&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ш"]."</a>)</td></tr><tr><td>";
else $wml.= "Ш</td></tr><tr><td>";
if (isset($la["Щ"])) $wml.= "Щ(<a href=\"$PHP_SELF?cmd=ShA&a=27&sz=".@$sz."&dcs=".@$dcs."\">".$la["Щ"]."</a>)</td><td>";
else $wml.= "Щ</td><td>";
if (isset($la["Э"])) $wml.= "Э(<a href=\"$PHP_SELF?cmd=ShA&a=28&sz=".@$sz."&dcs=".@$dcs."\">".$la["Э"]."</a>)</td></tr><tr><td>";
else $wml.= "Э</td></tr><tr><td>";
if (isset($la["Ю"])) $wml.= "Ю(<a href=\"$PHP_SELF?cmd=ShA&a=29&sz=".@$sz."&dcs=".@$dcs."\">".$la["Ю"]."</a>)</td><td>";
else $wml.= "Ю</td><td>";
if (isset($la["Я"])) $wml.= "Я(<a href=\"$PHP_SELF?cmd=ShA&a=30&sz=".@$sz."&dcs=".@$dcs."\">".$la["Я"]."</a>)</td></tr><tr><td>";
else $wml.= "Я</td></tr><tr><td row=\"2\">";
if (isset($razn)) $wml.= "Разное(<a href=\"$PHP_SELF?cmd=ShM&a=".$nrzn."&sz=".@$sz."&dcs=".@$dcs."\">".$razn."</a>)</td></tr>";
else $wml.= "Разное</td></tr>";
$wml.= "</table>";
$wml.= "</p><p align=\"left\">\n<a href=\"$PHP_SELF?cmd=Mark&sz=".@$sz."&dcs=".@$dcs."\">Условные обозначения</a><br />\n<br />
Если какое-то произведение не открывается, открывается в непонятной кодировке или несоответствует названию/автору/серии, пожалуйста, сообщите об этом по e-mail<br /><i>[email protected]</i><br />";