File size: 3.15Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
//////////////////////////////////////////////////////////////////////////
$gl="../"; /////////// ссылка на главную
$zag="Wapilkin 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"В этой категории пока нет ни одного сайта.<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&nach=$nach\">Next>></a><br/>";}
/////////выводим ссылки на главную и тд:
print "
<a href=\"index.php\">Каталог</a><br/>
<a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>