File size: 3.16Kb
<?
include 'dan.php';
/*
by Dionisij (c) 2006
[email protected]
Скрипт не предназначен для продажи!
При распространении необходимо обговорить условия распространения с автором скрипта.
Нарушение авторских прав преследуется по закону и по понятиям!
*/
if($raz=="" || $raz<=0){$raz=1;}
$ar_dan=@file("$raz/razdel.dat");
if($ar_dan){
$ar_dan[0]=trim($ar_dan[0]);
$zag= substr($ar_dan[0], 0, 30);
$strrpos=strrpos($zag, " ");
$zag=substr($ar_dan[0], 0, $strrpos);
if($zag==""){$zag=$ar_dan[0];} else {$zag="$zag...";}
}else{$zag="Ошибка";}
include 'ver.php';
if($ver=="wml"){
include 'wapzag.php';}else{ include 'webzag.php';}
$vpag=1;
$tf=0;
$dir = @opendir ($raz);
while ( $file = @readdir ($dir))
{
if ( $file != "."& $file != ".." & $file!="razdel.dat")
{
$tf=$tf++;
if($tf>$ra_page){$vpag++; $tf=0;}
$name_file=explode(".dat", $file);
$nom_news[]=$name_file[0];
}
}
@closedir ($dir);
if($pr<=0){$pr=1;}
if($pr>$vpag){$par=$vpag;}
if($nom_news){
arsort($nom_news);
$tp=1;
$nr=0;
foreach( $nom_news as $nomer => $val){
$nr++;
if($nr>$ra_page){$tp++; $nr=1;}
if($tp==$pr){
$name=@file("$raz/$val.dat");
$name[0]=trim($name[0]);
print"<a href=\"read.php?ver=$ver&login=$login&pas=$pas&text=$val&raz=$raz\">$name[0]</a><br/>";}
}
print"</p><p align=\"center\">|";
$prev=$pr-1;
$pprev=$pr-2;
$next=$pr+1;
$nnext=$pr+2;
if($pr>1){print"<a href=\"seeraz.php?ver=$ver&login=$login&pas=$pas&pr=1&raz=$raz\">1</a>|";}
if($pprev>1){print"<a href=\"seeraz.php?ver=$ver&login=$login&pas=$pas&pr=$pprev&raz=$raz\">$pprev</a>|";}
if($prev>1){print"<a href=\"seeraz.php?ver=$ver&login=$login&pas=$pas&pr=$prev&raz=$raz\">$prev</a>|";}
print"$pr|";
if($next<=($tp-1)){print"<a href=\"seeraz.php?ver=$ver&login=$login&pas=$pas&pr=$next&raz=$raz\">$next</a>|";}
if($next<=($tp-2)){print"<a href=\"seeraz.php?ver=$ver&login=$login&pas=$pas&pr=$nnext&raz=$raz\">$nnext</a>|";}
if($pr<$tp){print"<a href=\"seeraz.php?ver=$ver&login=$login&pas=$pas&pr=$tp&raz=$raz\">$tp</a>|";}
} else {print"Раздел пуст";}
print"<br/><br/>";
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&login=$login&pas=$pas\"><< Разделы</a><br/>";
if($ver=="wml"){print"<a href=\"seeraz.php?ver=html&pr=$pr&raz=$raz&login=$login&pas=$pas\">wap 2.0</a><br/>";}
else{print"<a href=\"seeraz.php?ver=wml&pr=$pr&raz=$raz&login=$login&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>";}
?>