Размер файла: 2.5Kb
<?
##------------------------------ заголовок -----------------------------------##
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>";
##-----------------------------------------------------------------------------##
#####################################################
$index = "http://xwap.org"; /// ссылка на главную!
if ($loc == "search"){
print "<b>Поиск анкет:</b><br/>";
print "Я ищу";
print "<select name=\"sex\" title=\"===\">";
print "<option value=\"m\">Парня</option>";
print "<option value=\"zh\">Девушку</option></select><br/>"; // пол
print "Возраст:<br/>";
print "<input type=\"text\" name=\"age\" format=\"*N\" maxlength=\"2\"/><br/>";
print "<anchor title=\"ok\">Искать
<go href=\"search.php?loc=obr\" method=\"post\">";
print "<postfield name=\"sex\" value=\"$(sex)\"/>"; ////// пол
print "<postfield name=\"age\" value=\"$(age)\"/>"; ///////// возраст
print "</go></anchor><br/>";
print "<br/><a href=\"index.php\">Меню</a>";
}
if ($loc == "obr"){
$file = @file("$sex.txt");
$total = count($file); ////////// cчитаем сколько строк в файле
// Начало
if (empty($_GET['start'])) $start = 0;
else $start = $_GET['start'];
if ($total < $start + 40){ $end = $total; }
else {$end = $start + 40; }
for ($i = $start; $i < $end; $i++){
$file = @file("$sex.txt");
$file = array_reverse($file);
$data = explode(":::",$file[$i]);
$id = $data[3];
if ($data[2] == $age){ print "<a href=\"look_user.php?id=$id\">$data[1]</a> <b>$data[2]</b> <br/>";}
}
print "-----<br/>";
// Выводим ссылки на следующие и предыдущие страницы
if ($start != 0) echo " <a href=\"search.php?loc=obr&age=$age&sex=$sex&start=".($start - 40)."\">Назад</a>|";
if ($total > $start + 40) echo " <a href=\"search.php?loc=obr&age=$age&sex=$sex&start=".($start + 40)."\">Далее</a> \n";
}
print "<br/><a href=\"$index\">Главная</a><br/>";
print "</p></card></wml>";
?>