File size: 3.21Kb
<?
require("inc.php");
##------------------------------ заголовок ------------------------------------##
header("Content-type:text/vnd.wap.wml;charset=utf-8");
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">";
print "<wml>";
print "<card id=\"index\" title=\"$title\">";
print "$sindex";
print "$swapshop";
print "<p align=\"left\">";
##-----------------------------------------------------------------------------##
#####################################################
print "<small><b>$title</b></small><br/>";
print "<br/>";
print "<small><a href=\"helpreg.php?\">Добавить анкету</a></small><br/>";
print "<small><a href=\"search.php?loc=search\">Поиск анкет!</a></small><br/>";
print "<small>Просмотреть анкеты</small><br/>";
print "<small><a href=\"look.php?sex=m\">Мужские</a></small><br/>";
print "<small><a href=\"look.php?sex=zh\">Женские</a></small><br/>";
////////////////////////////////////////////////////////////////////////////////
$m_file = @file("m.txt");
$file = file("file.dll");
$total_m = count($m_file); ////////// читаем сколько строк в файле m.txt
$zh_file = @file("zh.txt");
$total_zh = count($zh_file); ////////// читаем сколько строк в файле zh.txt
$b = $file[0];
////////////////////////////////////////////////////////////////////////////////
$user_info_m = join('', file("posl/m.txt"));
list($name_m, $age_m, $id_m) = explode(":::",$user_info_m);
$user_info_zh = join('', file("posl/zh.txt"));
list($name_zh, $age_zh, $id_zh) = explode(":::",$user_info_zh);
$b = @base64_decode($b);
/////////////// выводим последние анкеты ////////////////////////////////////
print "<small><u>Последние анкеты:</u></small><br/>";
print "<small>Мужские: </small><br/>";
print "<small><a href=\"look_user.php?id=$id_m\">$name_m</a> <b>($age_m)</b> </small><br/>";
print "<small>Женские: </small><br/>";
print "<small><a href=\"look_user.php?id=$id_zh\">$name_zh</a> <b>($age_zh)</b> </small><br/>";
print "<small>*****©*****</small><br/>";
//////////////// всего мужских женских //////////////////////////////////////
print "<small>Мужских анкет: $total_m</small><br/>"; // Мужских анкет:
print "<small>Женских анкет: $total_zh</small><br/>"; // Женских анкет:
$counterarray = file("vsego.txt");
print "<small>Всего анкет: $counterarray[0]</small><br/>";
print "$line";
print "<br/><small><a href=\"$index\">$iname</a></small>";
print "</p></card></wml>";
?>