View file dportal_0.2/bibl/index.php

<?
include 'dan.php';

/*
		by Dionisij (c) 2006
		[email protected]
		Скрипт не предназначен для продажи!
		При распространении необходимо обговорить условия распространения с автором скрипта.
		Нарушение авторских прав преследуется по закону и по понятиям!
*/
$zag="Новые";
include 'ver.php';
if($ver=="wml"){
include 'wapzag.php';}else{ include 'webzag.php';}



$shet_razdel=@file("kateg.dat");
$n=0;
while($n<=$shet_razdel[0]){

$dir = @opendir ($n);
  while ( $file = @readdir ($dir))
  {
    if ( $file != "."& $file != ".." & $file!="razdel.dat")
    {
	$file=explode(".dat", $file);
   $file=$file[0];
      $ar_news[]=$file;
	  $ar_nera[]=$n;
    	}
	  }
  @closedir ($dir);
$n++;}
$zag="Новые";
$shet=0;
arsort($ar_news);
foreach( $ar_news as $index => $value){
if($shet<$na_page){
$name_news=@file("$ar_nera[$index]/$value.dat");
$name_news=trim($name_news[0]);
if($ver=="wml"){$name_news=str_replace("$", "$$", $name_news);}
print"
<a href=\"read.php?ver=$ver&amp;login=$login&amp;pas=$pas&amp;text=$value&amp;raz=$ar_nera[$index]\">$name_news</a><br/>
";
$shet++;}

}

print"</p><p align=\"center\">";
if($ver=="html"){print"<table style=\"text-align: center; width: 98%;\"
 border=\"1\" cellpadding=\"2\" cellspacing=\"2\">
  <tbody>
    <tr>
      <td
 style=\"background-color: rgb($color2);\" align=\"center\"
 valign=\"top\">";}
 
 print" <a href=\"razdel.php?ver=$ver&amp;login=$login&amp;pas=$pas\">Смотреть по разделам</a><br/>";
 
 if($ver=="wml"){print"<a href=\"index.php?ver=html&amp;login=$login&amp;pas=$pas\">wap 2.0</a><br/>";}
 else{print"<a href=\"index.php?ver=wml&amp;login=$login&amp;pas=$pas\">wap 1.2</a><br/>";}
 
 print"<a href=\"$gen_link\">На главную</a>";
 if($ver=="html"){print"</td>
    </tr>
  </tbody>
</table>
</body>
</html>
";}
else{print"</p></card></wml>";}



?>