Просмотр файла dob.php

Размер файла: 5.17Kb
  1. <?
  2.  
  3. Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
  4. header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
  5.  
  6. //////////////////////////////////////////////////////////////////////////
  7.  
  8. $gl="http://AZWAP.BIZ"; /////////// ссылка на главную
  9. $zag="AzWaP"; /////////// Загаловок
  10.  
  11. //////////////////////////////////////////////////////////////////////////
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
  20. <!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
  21. <wml><card id=\"mas\" title=\"$zag\">";
  22. ///////////// выводим вмл заголовок
  23.  
  24.  
  25.  
  26.  
  27.  
  28. if ($kateg=="next"){
  29. if($url=="") {$url="http://";}
  30. print"<p>
  31. Адрес URL <br/>
  32. <input title=\"urls\" name=\"url\" value=\"$url\"/><br/>
  33. Название<br/>
  34. <input title=\"nazv\" name=\"naz\" value=\"$naz\" maxlength=\"20\"/><br/>
  35. Описание сайта(max 100)<br/>
  36. <input title=\"opis\" name=\"opis\" value=\"$opis\" maxlength=\"100\"/><br/>
  37. Категория сайта<br/>
  38. <select name=\"kateg\" title=\"kateg\">";
  39.  
  40. if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));} ////////// открываем счетчик количества дерикторий, и считываем из него их количества (если номер деректории не передан)
  41.  
  42. $n=0;
  43. while($n <= 15)
  44. {
  45. $text = @implode("",@file("rekord/$kat.txt")); /////////// выводим ссылки на деректории (15 ссылок на странице)
  46. $text=trim($text);
  47. if ($text != "") { print "<option value=\"$kat\">$text</option>"; $n=$n+1; };
  48. $kat=$kat-1;
  49. if ($kat<=0) {$n=16;};
  50. };
  51. if ($kat>0) {print"<option value=\"next\">Далее</option>";}
  52. print"
  53. </select>
  54. <br/><br/>
  55. <anchor title=\"Ok\">Ok
  56. <go href=\"dob.php?dob=yes\" method=\"post\">
  57. <postfield name=\"url\" value=\"$(url)\"/>
  58. <postfield name=\"naz\" value=\"$(naz)\"/>
  59. <postfield name=\"opis\" value=\"$(opis)\"/>
  60. <postfield name=\"kateg\" value=\"$(kateg)\"/>
  61. <postfield name=\"kat\" value=\"$(kat)\"/>
  62. </go>
  63. </anchor>";}
  64.  
  65. if($dob=="yes"){ if($kateg!="next"){ //////////////////// добавляем сайт в список каталга
  66. print"<p>";
  67. if($url!="") { /////////////проверяем заполнены ли все поля
  68. if($naz!=""){
  69. if($opis!=""){
  70. if($kateg!=""){
  71.  
  72. $url=trim($url); //////////удаляем из адреса пробелы (откуда они там берутся!?)
  73. $kateg=trim($kateg);
  74.  
  75. $vsego = @implode("",@file("rekord/vsego.dat")); ////////////// открываем и считываем значения общего счетчика
  76. $i = 0;
  77. while($i <= $vsego)
  78. {
  79. $text = @implode("",@file("rekord/$i.af"));
  80. $text=trim($text);
  81. if ($text==$url) {$url="reg";}
  82. $i=$i+1;
  83. }; //////////////// проверяем отсутствие ригестрации сайта
  84.  
  85. if($url!="reg"){
  86. ////////////если заполнены все поля, и такой сайт еще не зарегестрирован, то начинаем регистрацию:
  87.  
  88.  
  89. $reg="<a href=\"$url\">$naz</a><br/><small>$opis</small><br/>========<br/>"; /////////формат записи
  90.  
  91. $counterarray = file("rekord/$kateg.dat");
  92. $id = $counterarray[0]+1;
  93. $fp = @fopen("rekord/$kateg.dat","wb"); /////////////увеличеваем на 1 счетчик регистараций в данной категории
  94. @fputs($fp,$id);
  95. @fclose($fp);
  96.  
  97. $fp=fopen("rekord/$id=$kateg.dion","w"); /////////// создаем файл с информацией о сайте
  98. fputs($fp,"$reg \r\n");
  99. fclose($fp);
  100. chmod ("rekord/$id=$kateg.dion", 0777);
  101. $fl=$id;
  102.  
  103. $counterarray = file("rekord/vsego.dat");
  104. $id = $counterarray[0]+1;
  105. $fp = @fopen("rekord/vsego.dat","wb"); /////////////увеличеваем на 1 общий счетчик регистараций
  106. @fputs($fp,$id);
  107. @fclose($fp);
  108.  
  109. $fp=fopen("rekord/$id.af","w"); /////////// заносим сайт в список зарегестрированных
  110. fputs($fp,"$url \r\n");
  111. fclose($fp);
  112. chmod ("rekord/$id.af", 0777);
  113.  
  114. $fp=fopen("rekord/$fl=$kateg.daf","w"); ///////////
  115. fputs($fp,"$id \r\n");
  116. fclose($fp);
  117. chmod ("rekord/$fl=$kateg.daf", 0777);
  118.  
  119. ///////////////////////////Выводим сообщение об удачной регисрации (в случае таковой):
  120. print"Сайт $url удачно зарегистрирован";
  121.  
  122.  
  123. //////// выводим сообщение об ошибках:
  124. }else {print"Сайт с таким адресом уже зарегестрирован!";}
  125. }else {print"Вы не выбрали категорию!";}
  126. }else {print"Вы не заполнили поле \"Описание сайта\"!";}
  127. }else {print"Вы не заполнили поле \"Название сайта\"!";}
  128. }else {print"Вы не заполнили поле с адресом!";}
  129. }}
  130. print"<br/>
  131. ----------
  132. <br/>
  133. <a href=\"index.php\">Каталог</a><br/>
  134. <a href=\"$gl\">На главную</a><br/>
  135. <br/>
  136.  
  137. <br/>
  138.  
  139. <br/>
  140. </p>";
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152. print "</card></wml>";
  153.  
  154. ?>