Размер файла: 3.67Kb
<?php
/////////////////////////////////////////////////////////////////////////////////////
//
// Made by : Sklep
// E-mail : [email protected]
// Site : http://mcwap.xost.ru
//
/////////////////////////////////////////////////////////////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE);
Error_Reporting (ERROR | WARNING);
##------------------------------ заголовок ------------------------------------##
header("Content-type:text/vnd.wap.wml; charset=utf-8");
print "<?xml version=\"1.0\"?>";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">";
print "<wml>";
print "<card id=\"index\" title=\"On-Line Знакомства\">";
print "<p align=\"center\">";
##-----------------------------------------------------------------------------##
#####################################################
$index = "http:// $site /"; /// ссылка на главную!
//////////////// слоган //////////////////////////////////////////////////////
print "<small><br/>";
print "<b>Портал знакомств!</b><br/>";
////////////////////////////////////////////////////////////////////////////////
print "<img src=\"1.gif\"/>";
print "<br/>";
print "-------<br/>";
print "<a href=\"helpreg.php?site=$site\">Добавить анкетку</a><br/>";
print "<a href=\"search.php?loc=search&site=$site\">Найди себе пару!</a><br/>-------<br/>";
print "Просмотреть анкетки:<br/>";
print "<a href=\"look.php?sex=m&site=$site\">Парней</a><br/>";
print "<a href=\"look.php?sex=zh&site=$site\">Девушек</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 "<b>А у наc новенькие:</b><br/>";
print "Парниша: <br/>";
print "<a href=\"look_user.php?id=$id_m&site=$site\">$name_m</a> <b>($age_m)</b> <br/>";
print "Девушка: <br/>";
print "<a href=\"look_user.php?id=$id_zh&site=$site\">$name_zh</a> <b>($age_zh)</b> <br/>";
print "-------<br/>";
////////////////////////////////////////////////////////////////////////////////
//////////////// всего мужских женских //////////////////////////////////////
print "<small>";
print "Парней у нас: $total_m<br/>"; // Мужских анкет:
print "Девушек у нас: $total_zh<br/>"; // Женских анкет:
$counterarray = file("vsego.txt");
print "А всего анкет: $counterarray[0]<br/>";
print "</small>";
print "-------";
////////////////////////////////////////////////////////////////////////////////
print "<br/><a href=\"faq.php?site=$site\">FAQ</a>";
print "<br/><a href=\"$index\">(с) $site 2006</a><br/><br/>";
print "<a href=\"http://mcwap.xost.ru\">][akepy</a><br/>(c) Sklep™ 2006</small>";
print "</p></card></wml>";
?>