File size: 9.31Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
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=\"Dionisij\"><p>";
///////////// выводим вмл заголовок
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//
$parol="bukan1619"; ///////// измените parol на свой пароль!!!//
//
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
if($par!=$parol){print"Ведите пароль:<br/>
<input title=\"par\" name=\"par\" value=\"\"/><br/>
<anchor title=\"Ok\">Есть
<go href=\"admin.php\" method=\"post\">
<postfield name=\"par\" value=\"$(par)\"/>
</go>
</anchor>
";}
if($par==$parol){
if ($met=="del") {
///////////////выбор удаляемой дкеректории:
print"Выберите категорию которую желаете удалить:<br/>";
if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));} ////////// открываем счетчик количества дерикторий, и считываем из него их количества (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt")); /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "") { print "<a href=\"redkat.php?met=delit&kat=$kat&par=$par\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<a href=\"redkat.php?met=del&kat=$kat&par=$par\">more</a><br/>";}
}
/////////////удаление выбранной деректории:
if ($met=="delit"){
$text="";
$fp=fopen("rekord/$kat.txt","w"); /////////// создаем файл с именем деректории о категории
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("rekord/$kat.txt", 0777);
print"Категория успешно удалена";
}
/////////////переименование деректории:
if ($met=="ren"){
print"Выберете деректорию которую желаите переименовать:<br/>";
if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));} ////////// открываем счетчик количества дерикторий, и считываем из него их количества (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt")); /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "") { print "<a href=\"redkat.php?met=rend&kat=$kat&par=$par\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<a href=\"redkat.php?met=ren&kat=$kat&par=$par\">more</a><br/>";}
}
///////////////переименование деректории:
if ($met=="rend"){
$text=@implode("",@file("rekord/$kat.txt"));
print"Введите новое имя категории:<br/>
<input title=\"text\" name=\"text\" value=\"$text\"/><br/>
<anchor title=\"Ok\">Переиминовать
<go href=\"redkat.php?met=zap&kat=$kat&par=$par\" method=\"post\">
<postfield name=\"text\" value=\"$(text)\"/>
</go>
</anchor>";
}
////////////запись нового имени категории:
if ($met=="zap"){
$text=trim($text);
$fp=fopen("rekord/$kat.txt","w"); /////////// создаем файл с именем деректории о категории
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("rekord/$kat.txt", 0777);
print"Выбраная вами каатегория успешно переименована в $text";
}
////////// выбор ссылки для удаления:
if ($met==link){print"Выберете категорию:<br/>";
if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));} ////////// открываем счетчик количества дерикторий, и считываем из него их количества (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt")); /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "") { print "<a href=\"redkat.php?met=vl&kat=$kat&par=$par\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<a href=\"redkat.php?met=link&kat=$kat&par=$par\">more</a><br/>";}
}
//////////////////выбор удаляемой ссылки:
if ($met=="vl") {print"Чтобы удалить ссылку, нажмите del<br/>";
$vsego = @implode("",@file("rekord/$kat.dat")); ///// окрываем счетчик деректории
///////если он равен нулю, говорим мол: нету здесь ничего:
if($vsego<=0){print"В этой категории пока нет ни одного сайта.";}
if($nach=="") {$nach=1;} /////////определяем начальную позицию
$i=1;
while($i <= 7)
{$text = @implode("",@file("rekord/$nach=$kat.dion"));
$dls ="$nach=$kat";
$nach=$nach+1;
$text=trim($text);
if($text!="") {print "<a href=\"redkat.php?met=dls&par=$par&dls=$dls\"><small>del</small></a><br/> $text";
$i=$i+1; }
if($nach>$vsego) {$i=8;}
}; /////выводи ссылки и описания сайтов
if($nach < $vsego) {print"<a href=\"redkat.php?kat=$kat&nach=$nach&met=vl&par=$par\">Next</a><br/>";}
print"<br/><a href=\"redkat.php?par=$par&met=link\">Выбрать категорию</a>";
}
//////// выбор типа удаления ссылки:
if ($met=="dls"){
print"Выберите тип удаления:<br/>
<a href=\"redkat.php?met=pol&par=$par&dls=$dls\">Полный (возможна повторная регистрация)</a><br/>
<a href=\"redkat.php?met=nepol&par=$par&dls=$dls\">Неполный (повторная регистрация невозможна)</a><br/>
";}
//////полное удаление
if ($met=="pol") {
unlink ("rekord/$dls.dion");
$aff = @implode("",@file("rekord/$dls.daf"));
$aff = trim($aff);
unlink ("rekord/$aff.af");
print"ссылка удалена.<br/>
<a href=\"redkat.php?par=$par&met=link\">Выбрать категорию</a>";
}
//////////неполное удаление (без возможности повторной регистрации)
if ($met=="nepol") {
unlink ("rekord/$dls.dion");
print"ссылка удалена.<br/>
<a href=\"redkat.php?par=$par&met=link\">Выбрать категорию</a>";
}
}print "<br/><a href=\"admin.php?par=$par\">Админ-панель</a><br/></p></card></wml>";
?>