Просмотр файла wapp_antifront.com/chat/razbanip.php

<? 

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);

$tbs=0;
$textb=@file("$rek/banip.zap");
while($tbs<$strok)
{$textom=@explode(":||:",$textb[$tbs]);
if($nomber==$tbs){
$ziban[$tbs]="";
} else {
$textom[1]=trim($textom[1]);
 if($textom[1]!=""){$ziban[$tbs]="$textom[0]:||:$textom[1]";} else{$ziban[$tbs]="";}}
$tbs=$tbs+1;}

$fp=@fopen("$rek/banip.zap","w");
@fputs($fp,"");
fclose($fp);
@chmod ("$rek/banip.zap", 0777);


$tshet=0;
while($tshet<$tbs){
if($ziban[$tshet]!=""){$fp=@fopen("$rek/banip.zap","a");
@fputs($fp,"$ziban[$tshet]");
@fclose($fp);}
$tshet=$tshet+1;}




print"&#x0412;&#x044B;&#x043F;&#x043E;&#x043B;&#x043D;&#x0435;&#x043D;&#x043E;";




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>";

?>