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


<?



             





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

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





//////////////////////////////////////////////////////////////////////////



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

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



//////////////////////////////////////////////////////////////////////////

















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"><p>";

                            ///////////// выводим вмл заголовок





$vsego = @implode("",@file("rekord/$op.dat")); ///// окрываем счетчик деректории

///////если он равен нулю, говорим мол: нету здесь ничего:

if($vsego<=0){print"&#x0412; &#x044D;&#x0442;&#x043E;&#x0439; &#x043A;&#x0430;&#x0442;&#x0435;&#x0433;&#x043E;&#x0440;&#x0438;&#x0438; &#x043F;&#x043E;&#x043A;&#x0430; &#x043D;&#x0435;&#x0442; &#x043D;&#x0438; &#x043E;&#x0434;&#x043D;&#x043E;&#x0433;&#x043E; &#x0441;&#x0430;&#x0439;&#x0442;&#x0430;.<br/>";}

if($nach=="") {$nach=1;} /////////определяем начальную позицию



    $i=1;

     while($i <= 10)

       {$text = @implode("",@file("rekord/$nach=$op.dion"));                                           

    $text=trim($text);

    $nach=$nach+1; 

     if($text!="") {print "$text"; 

    $i=$i+1; }

    if($nach>$vsego) {$i=12;}

        };        /////выводи ссылки и описания сайтов





if($nach < $vsego) {print"<a href="katalog.php?op=$op&amp;nach=$nach">Next>></a><br/>";}







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

print "

<a href="index.php">&#x041A;&#x0430;&#x0442;&#x0430;&#x043B;&#x043E;&#x0433;</a><br/>

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

</p></card></wml>";



?>