Просмотр архива GOWAP Каталог


<?



            





Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки

header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа







$gl="http://gowap.org.ru";        /////////// ссылка на главную

$zag="GOWAP_CATALOG";                                               /////////// Загаловок





print "<?xml version="1.0" encoding="utf-8"?>

    <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">

    <wml><card id="mas" title="$zag">";

                        





print "<p align="center"><b>&#x041A;&#x0430;&#x0442;&#x0435;&#x0433;&#x043E;&#x0440;&#x0438;&#x0438;:</b></p>";       /////////////////        выводим жирным шрифтом "Категории"



if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));}      ////////// открываем счетчик количества дерикторий, и считываем из него их количества  (если номер деректории не передан)

print"<p>";

$n=0; 

while($n <= 15)

   {

    $text = @implode("",@file("rekord/$kat.txt"));       /////////// выводим ссылки на деректории (15 ссылок на странице)

    $text=trim($text);

    if ($text != "")  { print "<a href="katalog.php?op=$kat">$text</a><br/>"; $n=$n+1; };

    $kat=$kat-1;

    if ($kat<=0) {$n=16;};

};

print"</p>";



if ($kat>0) {print"<p align="center"><a href="index.php?kat=$kat">more</a><br/></p>";}        /////////// выводим ссылку на следующию страницу, если на этой поместились не все дериктории





print"<p align="center"><a href="dob.php?kateg=next">&#x0414;&#x043E;&#x0431;&#x0430;&#x0432;&#x0438;&#x0442;&#x044C; &#x0441;&#x0430;&#x0439;&#x0442;</a><br/>

<a href="$gl">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/></p>";

                                    //// выводим ссылку на добавить и на главную.





print "</card></wml>";



?>