View file dur.php

<?
Error_Reporting(E_ALL & ~E_NOTICE);

$path = "dur"; //   Папка с файлами
$col = 5; //    Количество файлов на страницу
$ras = "";// тип файлов в папке(Если надо чтоб скрывал расширения файлов)
$shir = "30"; //ширина
$vis = "30";  //высота


header("Content-type:text/vnd.wap.wml"); 
  print "<?xml version=\"1.0\" encoding=\"utf-8\"?>";
  print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml1.2.dtd\">\n";

$d=opendir("$path"); 

$n = "0";

while(($k=readdir($d))!==false){ 
if ($k=='.'||$k=='..') continue; 
$n++;

}
closedir($d);

$num=($n/$col);if ($num!==(int)$num){$foo = (int) $num;$fo = ($foo + 1);}else{$fo=$num;}
for ($i="1"; $i<=$fo; $i++) if ($list == "") {$c="0";}else{$c=($col*($list-1));}

$d=opendir("$path");

$la = "-1";

print "
<wml>
<card id=\"\" title=\"WAP.PIZDEC.RU\">
<p align=\"left\"><small>";

while(($e=readdir($d))!==false){ 

if ($e=='.'||$e=='..') continue;

$la = $la + 1;

if($la>$c-1 and $la<$c+$col){

$e1 = str_replace("$ras","",$e);
if ($mode == "1"){$ee = strtr($e1,$tran);}else{$ee = $e1;}
$laa = $la + 1; //  

print "<img src=\"$path/$e\" height=\"$shir\" width=\"$vis\" alt=\"\"/><a href=\"$path/$e\">$ee</a><br/> ";

}}
print "<br/>";
print "</small></p><p align='center'><small>";
for ($i="1"; $i<=$fo; $i++) {echo "<a href=\"?list=$i\">[$i]</a>";}if ($list == "") {$c="0";}else{$c=($col*($list-1));}
$lis = $list + 1;
$lis1 = $list - 1;



print "<br/>";

if ($lis1 < "1")
if ($lis == "$i")  
print "$path.php?list = $(p)";
$allpage = $i - 1;
print "<br/>Файлов: $n<br/>Страниц: $allpage<br/>";
print "<b><a href=\"http://wap.pizdec.ru/smiles\">&#x043D;&#x0430;&#x0437;&#x0430;&#x0434;</a></b> <br/><b> <a href=\"http://wap.pizdec.ru\">&#x0413;&#x043B;&#x0430;&#x0432;&#x043D;&#x0430;&#x044F;</a></b><br/>";
print "</small></p></card></wml>";


closedir($d);

?>