Просмотр файла dchat/banlistip.php

Размер файла: 3.1Kb
<?

                    //                                      //////             //                                                //                        //           //
                    //                                      //       //                          //            /////                     /////                 
                    /////    \\        //          //        //         //       //    //        //     //      //     //               //           //
                    //   //     \\     //           //          //       //    //         //      //      //     //      //////     //           // 
                    //   //       \\ //             //        //         //      //    //         //      //     //               //     //           //
                    /////         \//               //////            //         //               //      //     //     /////        //           //  
                                         //                                                                                                                                    /////
                                        //

                  ///////////////////////////      [email protected]      ///////////////////////////////                         

Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа

include 'dan.php';
include 'uzdan.php';




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\"><p>";
							///////////// выводим вмл заголовок
if($login != ""){if($statys=="admin" ||  $forst=="moder"){


$ss = @file("$rek/banip.zap");
$strok = sizeof($ss);

if($tbs=="") {$tbs=0;}
$ktbs=$tbs+20;
$textb=@file("$rek/banip.zap");
while($tbs<$ktbs & $tbs<$strok)
{$text=@explode(":||:",$textb[$tbs]);
print"<anchor title=\"ok\">$text[0] / $text[1]
<go href=\"razbanip.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nomber\" value=\"$tbs\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/>";
$tbs=$tbs+1;}

if($tbs<$strok){print"<br/><br/><anchor title=\"ok\">&#x0414;&#x0430;&#x043B;&#x0435;&#x0435;
<go href=\"banlistip.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"tbs\" value=\"$tbs\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/>";}




print"<br/><anchor title=\"ok\">&#x041A; &#x0441;&#x043F;&#x0438;&#x0441;&#x043A;&#x0443; &#x043A;&#x043E;&#x043C;&#x043D;&#x0430;&#x0442;
<go href=\"rum.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor>
";

}}

print "
<br/><br/><a href=\"$gl\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>
</p></card></wml>";

?>