Размер файла: 7.08Kb
<?
include '../config.php';
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
$gl="../"; /////////// ссылка на главную
$zag="Каталог"; /////////// Загаловок
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=\"$zag\">";
///////////// выводим вмл заголовок
if ($kateg=="next"){
if($url=="") {$url="http://";}
print"<p>URL <br/>
<input title=\"urls\" name=\"url\" value=\"$url\"/><br/>
Название<br/>
<input title=\"nazv\" name=\"naz\" value=\"$naz\" maxlength=\"20\"/><br/>
Описание сайта<br/>
<input title=\"opis\" name=\"opis\" value=\"$opis\" maxlength=\"100\"/><br/>
Категория<br/>
<select name=\"kateg\" title=\"kateg\">";
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 "<option value=\"$kat\">$text</option>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<option value=\"next\">Далее</option>";}
print"
</select>
<br/><br/>
<anchor title=\"Добавить\">Добавить
<go href=\"dob.php?dob=yes\" method=\"post\">
<postfield name=\"url\" value=\"$(url)\"/>
<postfield name=\"naz\" value=\"$(naz)\"/>
<postfield name=\"opis\" value=\"$(opis)\"/>
<postfield name=\"kateg\" value=\"$(kateg)\"/>
<postfield name=\"kat\" value=\"$(kat)\"/>
</go>
</anchor>";}
if($dob=="yes"){ if($kateg!="next"){ //////////////////// добавляем сайт в список каталга
print"<p>";
if($url!="") { /////////////проверяем заполнены ли все поля
if($naz!=""){
if($opis!=""){
if($kateg!=""){
$url=trim($url); //////////удаляем из адреса пробелы (откуда они там берутся!?)
$kateg=trim($kateg);
$vsego = @implode("",@file("rekord/vsego.dat")); ////////////// открываем и считываем значения общего счетчика
$i = 0;
while($i <= $vsego)
{
$text = @implode("",@file("rekord/$i.af"));
$text=trim($text);
if ($text==$url) {$url="reg";}
$i=$i+1;
}; //////////////// проверяем отсутствие ригестрации сайта
if($url!="reg"){
////////////если заполнены все поля, и такой сайт еще не зарегестрирован, то начинаем регистрацию:
$reg="<a href=\"$url\">$naz</a><br/><small>$opis</small><br/>========<br/>"; /////////формат записи
$counterarray = file("rekord/$kateg.dat");
$id = $counterarray[0]+1;
$fp = @fopen("rekord/$kateg.dat","wb"); /////////////увеличеваем на 1 счетчик регистараций в данной категории
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("rekord/$id=$kateg.dion","w"); /////////// создаем файл с информацией о сайте
fputs($fp,"$reg \r\n");
fclose($fp);
chmod ("rekord/$id=$kateg.dion", 0777);
$fl=$id;
$counterarray = file("rekord/vsego.dat");
$id = $counterarray[0]+1;
$fp = @fopen("rekord/vsego.dat","wb"); /////////////увеличеваем на 1 общий счетчик регистараций
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("rekord/$id.af","w"); /////////// заносим сайт в список зарегестрированных
fputs($fp,"$url \r\n");
fclose($fp);
chmod ("rekord/$id.af", 0777);
$fp=fopen("rekord/$fl=$kateg.daf","w"); ///////////
fputs($fp,"$id \r\n");
fclose($fp);
chmod ("rekord/$fl=$kateg.daf", 0777);
///////////////////////////Выводим сообщение об удачной регисрации (в случае таковой):
print"Сайт $url удачно зарегистрирован<br/>Если это не противоречит дизайну Вашего сайта, разместите на нем ссылку<br/><p><a href="$homepage">$sitename</a></p>";
//////// выводим сообщение об ошибках:
}else {print"Сайт с таким адресом уже зарегестрирован!";}
}else {print"Вы не выбрали категорию!";}
}else {print"Вы не заполнили поле \"Описание сайта\"!";}
}else {print"Вы не заполнили поле \"Название сайта\"!";}
}else {print"Вы не заполнили поле с адресом!";}
}}
print"<br/>
</p>";
print "<p align=\"left\">
<a href=\"$homepage\">На главную</a><br/>
<a href=\"./\">Назад</a></p>";
print "</card></wml>";
?>