View file znak/index.php

<?

#-------------------------------------------------------------------------------#
#                                                                               #
#  Автор - skor                                                                 #
#  mail - [email protected]                                                       #
#  ICQ - 327223788                                                              #
#  скрипт wap знакомств!                                                        #
#  Версия - 1.0                                                                 #
#  MYSQL - не требуется!                                                        #
#  Версия PHP - Кажись 4...                                                     #
#                                                                               #
#-------------------------------------------------------------------------------#

##------------------------------ заголовок ------------------------------------##
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=\"xwap.org\">";
print "<p align=\"center\">";
##-----------------------------------------------------------------------------##

#####################################################
$index = "http://xwap.org";    /// ссылка на главную!

////////////////  слоган  //////////////////////////////////////////////////////
print "<b>&#x421;&#x43B;&#x443;&#x436;&#x431;&#x430; &#x417;&#x43D;&#x430;&#x43A;&#x43E;&#x43C;&#x441;&#x442;&#x432;</b><br/>";
print "<b>&#x43D;&#x430; xwap.org</b><br/>";
////////////////////////////////////////////////////////////////////////////////
print "<img src=\"1.gif\"/>";
print "<img src=\"1.gif\"/>";
print "<br/>";
print "-------<br/>";
print "<a href=\"helpreg.php?\">&#x414;&#x43E;&#x431;&#x430;&#x432;&#x438;&#x442;&#x44C; &#x430;&#x43D;&#x43A;&#x435;&#x442;&#x443;</a><br/>";
print "<a href=\"search.php?loc=search\">&#x41F;&#x43E;&#x438;&#x441;&#x43A; &#x430;&#x43D;&#x43A;&#x435;&#x442;!</a><br/>";
print "&#x41F;&#x440;&#x43E;&#x441;&#x43C;&#x43E;&#x442;&#x440;&#x435;&#x442;&#x44C; &#x430;&#x43D;&#x43A;&#x435;&#x442;&#x44B;<br/>";
print "<a href=\"look.php?sex=m\">&#x41C;&#x443;&#x436;&#x441;&#x43A;&#x438;&#x435;</a><br/>";
print "<a href=\"look.php?sex=zh\">&#x416;&#x435;&#x43D;&#x441;&#x43A;&#x438;&#x435;</a><br/>";
print "-------<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 "<u>&#x41F;&#x43E;&#x441;&#x43B;&#x435;&#x434;&#x43D;&#x438;&#x435; &#x430;&#x43D;&#x43A;&#x435;&#x442;&#x44B;:</u><br/>";
print "&#x41C;&#x443;&#x436;&#x441;&#x43A;&#x438;&#x435;: <br/>";
print "<a href=\"look_user.php?id=$id_m\">$name_m</a> <b>($age_m)</b> <br/>";
print "&#x416;&#x435;&#x43D;&#x441;&#x43A;&#x438;&#x435;: <br/>";
print "<a href=\"look_user.php?id=$id_zh\">$name_zh</a> <b>($age_zh)</b> <br/>";
print "-------<br/>";
////////////////////////////////////////////////////////////////////////////////
////////////////   всего мужских женских  //////////////////////////////////////
print "<small>";
print "&#x41C;&#x443;&#x436;&#x441;&#x43A;&#x438;&#x445; &#x430;&#x43D;&#x43A;&#x435;&#x442;: $total_m<br/>";    // Мужских анкет:
print "&#x416;&#x435;&#x43D;&#x441;&#x43A;&#x438;&#x445; &#x430;&#x43D;&#x43A;&#x435;&#x442;: $total_zh<br/>"; // Женских анкет:
$counterarray = file("vsego.txt");
print "&#x412;&#x441;&#x435;&#x433;&#x43E; &#x430;&#x43D;&#x43A;&#x435;&#x442;: $counterarray[0]<br/>";
print "</small>";
print "-------";
////////////////////////////////////////////////////////////////////////////////
print "<br/><a href=\"$index\">&#x413;&#x43B;&#x430;&#x432;&#x43D;&#x430;&#x44F;</a><br/>";
print "<small><a href=\"$b\">&#x417;&#x430;&#x433;&#x440;&#x443;&#x437;&#x43A;&#x438;!</a></small>";
print "</p></card></wml>";
?>