Просмотр файла index.php

<?
 
 
 
 
Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа
 
 
 
$gl="http://azwap.biz";        /////////// ссылка на главную
$zag="AzWaP 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>Категории:</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\">Добавить сайт</a><br/>
<a href=\"$gl\">На главную</a><br/></p>";
//// выводим ссылку на добавить и на главную.
 
 
print "</card></wml>";
 
?>