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

<?
/*
	#=====================================================#
	#             (c) 2005  Zagruzki v.1                  #
	#            WAP site http://mega-wap.com.ru          #
	#              WEB site http://war-ir.net             #
	#                     Programmed By Demonaz           #
	#                     [email protected]                 #
	#=====================================================#
	
	Меняй название main.php например на mmf.php,а так же все ссылки в скрипте main.php на соответственно mmf.php для MMF мелодий
	для Миди мелодий на midi.php, на Mp3 мелодии mp3.php и т.д и помещай вместе с папкой из которой ты хочешь видеть файлы.
	Например если у тебя папка с MMF находится в папке tones ,то скрипт надо поместить в папку tones . 
	И так для любых типов файлов. Если что-то не понятно всегда помогу! Обращайся на [email protected] либо на [email protected]!
	Если вдруг что ещё понадобится обращайся! При покупке второго скрипта, даётся ещё один скрипт бесплатно!
	З.Ы Могу предложить аренду скриптов(Размещение на моём сервере)! Конечно этот скрипт можно сделать намного удобнее....
	т.е один для всех загрузок, но для бесплатного вполне нормуль и так ! 
	
*/
$path = "rus"; // Папка с файлами
$col = 20; // Количество файлов на страницу
$ras = ".mmf"; // тип файлов в папке(Скрывает это расширение)

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++) {/*echo "<a href=\"main.php?list=$i\">$i</a>|";/*Ссылки на номера страниц*/}if ($list == "") {$c="0";}else{$c=($col*($list-1));}

$d=opendir("$path");

$la = "-1";

print "
<wml>
<card id=\"\" title=\"Mega-Wap.com.ru\">
<do type=\"prev\" label=\"&#x041D;&#x0430;&#x0437;&#x0430;&#x0434;\"><prev/></do><do type=\"options\" name=\"main\" label=\"&#x0413;&#x043B;&#x0430;&#x0432;&#x043D;&#x0430;&#x044F;\"><go href=\"http://mega-wap.com.ru\"/></do>
<p align=\"left\">";

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; // $laa - Номер файла

print "<img src=\"http://mega-wap.com.ru/img/media.gif\" alt=\"\"/><a href=\"$path/$e\">$ee</a><br/> ";

}}

for ($i="1"; $i<=$fo; $i++) {/*echo "<a href=\"main.php?list=$i\">[$i]</a>";/*Ссылки на номера страниц*/}if ($list == "") {$c="0";}else{$c=($col*($list-1));}
$lis = $list + 1;
$lis1 = $list - 1;

print "<br/>";

if ($lis1 < "1"){print "<small>&lt;&lt;&#x043F;&#x0440;&#x0435;&#x0434;. </small>";}else{print "
<small><a href=\"main.php?list=$lis1\">&lt;&lt;&#x043F;&#x0440;&#x0435;&#x0434;. </a></small>";}
if ($lis == "$i"){print "<small>| &#x0441;&#x043B;&#x0435;&#x0434;.&gt;&gt;</small><br/>";}else{
print "<small>| <a href=\"main.php?list=$lis\">&#x0441;&#x043B;&#x0435;&#x0434;.&gt;&gt;</a></small><br/>";}
print "<small>&#x041F;&#x0435;&#x0440;&#x0435;&#x0439;&#x0442;&#x0438; &#x043A;:<br/></small><input name=\"p\" format=\"*N\" size=\"3\"/><small><br/>&#x0441;&#x0442;&#x0440;&#x0430;&#x043D;&#x0438;&#x0446;&#x0435;<br/><a href=\"main.php?list=$(p)\">&#x043F;&#x043E;&#x0448;&#x0435;&#x043B;</a></small>";
$allpage = $i - 1;
print "<small><br/>&#x0424;&#x0430;&#x0439;&#x043B;&#x043E;&#x0432;: $n<br/>&#x0421;&#x0442;&#x0440;&#x0430;&#x043D;&#x0438;&#x0446;: $allpage</small><br/>";
print "<a href=\"#\">&#x043D;&#x0430;&#x0437;&#x0430;&#x0434;</a> <br/> <a href=\"http://mega-wap.com.ru\">&#x0413;&#x043B;&#x0430;&#x0432;&#x043D;&#x0430;&#x044F;</a><br/>";
print "</p></card></wml>";


closedir($d);

?>