Размер файла: 2.03Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
include 'uzdan.php';
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>";
///////////// выводим вмл заголовок
if($login != "" & $statys=="admin"){
print"Для удаления кликните на слово<br/><br/>";
$ss = @file("$rek/mat.txt");
$strok = sizeof($ss);
if($x==""){$x=0;}
$xkm=$x+12;
while($x<=$strok & $x<$xkm){
$textm=@file("$rek/mat.txt");
$mte=trim($textm[$x]);
print"<anchor title=\"ok\">$mte
<go href=\"dels.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"dels\" value=\"$x\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/>";
$x=$x+1;}
if($xkm<$strok){print"<br/><anchor title=\"ok\">далее
<go href=\"spisokm.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"x\" value=\"$x\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/>";}
print"<br/><anchor title=\"ok\">К списку комнат
<go href=\"rum.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor>
";
}
print "
<br/><br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>