View file dportal_0.2/gbyk/index.php

File size: 3.8Kb
<?
include 'dan.php';

/*
		by Dionisij (c) 2006
		[email protected]
		Скрипт не предназначен для продажи!
		При распространении необходимо обговорить условия распространения с автором скрипта.
		Нарушение авторских прав преследуется по закону и по понятиям!
*/

include 'ver.php';

$zag="Гостевая книга";
if($ver=="wml"){include 'wapzag.php';} else{include 'webzag.php';}

include'avt.php';

$dtime=date("d M Y", $time);
$rtime=date("H:i", $time);

print "</p><p align=\"center\"><small>Сегодня: $dtime<br/> $rtime<br/></small>
<a href=\"say.php?ver=$ver&amp;pas=$pas&amp;login=$login\">[Написать]</a>
<a href=\"index.php?ver=$ver&amp;pas=$pas&amp;login=$login\">[Обновить]</a></p><p>
";



$tpage=5;


$partopic=@file("dat");
foreach($partopic as $key => $val){
if($val!=""){$artopic[]=$val; $shtop++;}
}

$tp=1;
$nr=0;
if($pr=="" || $pr<=0){$pr=1;}

foreach($artopic as $nomer => $val){
$nr++;
if($nr>$tpage){$tp++; $nr=1;}
if($tp==$pr){
if($ver!="html"){ $val= str_replace("$", "$$", $val);}


$arval=explode("<br/>", $val);

if($ver!="wml"){print"<table style=\"text-align: center; width: 98%;\"
 border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
  <tbody>
    <tr>
      <td
 style=\"background-color: rgb($color3);\"
 valign=\"top\" align=\"left\"> ";}
 
if($status=="moder"){print"<small><a href=\"modgost.php?ver=$ver&amp;pas=$pas&amp;login=$login&amp;nto=$nomer\">(mod)</a> </small>";}
 
if($arval[0]!=""){print"- <a href=\"say.php?ver=$ver&amp;pas=$pas&amp;login=$login&amp;obr=$arval[0]\">$arval[0]</a> ";} else {print"- <a href=\"say.php?ver=$ver&amp;pas=$pas&amp;login=$login&amp;obr=-$arval[1]-\">-$arval[1]-</a> ";}

$arval[2]=date("d.m.Y, H:i", $arval[2]);

print" (<small>$arval[2]</small>)"; 
if($ver!="wml"){print"</td></tr><tr>
          <td
 style=\"background-color: rgb($color4);\" align=\"left\"
 valign=\"top\">
 ";}


print"<br/> $arval[3]<br/>";

if($ver!="wml"){print"<br/></td>
    </tr>
  </tbody>
</table>";}

print"<br/>";
}
}

if($status!="ban"){print"<a href=\"say.php?ver=$ver&amp;pas=$pas&amp;login=$login\">[Написать]</a><br/><br/>";}

$prev=$pr-1;
$pprev=$pr-2;
$next=$pr+1;
$nnext=$pr+2;

print"Страница $pr из $tp<br/>";
if($pr>1){print"<a href=\"index.php?ver=$ver&amp;pr=1&amp;pas=$pas&amp;login=$login\">1</a>|";}
if($pprev>1){print"<a href=\"index.php?ver=$ver&amp;pr=$pprev&amp;pas=$pas&amp;login=$login\">$pprev</a>|";}
if($prev>1){print"<a href=\"index.php?ver=$ver&amp;pr=$prev&amp;pas=$pas&amp;login=$login\">$prev</a>|";}
print"$pr|";

if($next<=($tp-1)){print"<a href=\"index.php?ver=$ver&amp;pr=$next&amp;pas=$pas&amp;login=$login\">$next</a>|";}
if($next<=($tp-2)){print"<a href=\"index.php?ver=$ver&amp;pr=$nnext&amp;pas=$pas&amp;login=$login\">$nnext</a>|";}
if($pr<$tp){print"<a href=\"index.php?ver=$ver&amp;pr=$tp&amp;pas=$pas&amp;login=$login\">$tp</a>|";}





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

 
if($login=="") { print"<a href=\"../vxod.php?ver=$ver\">Вход</a><br/>";}
else {print"<a href=\"../opc.php?ver=$ver&amp;pas=$pas&amp;login=$login\">[$login]</a><br/>";}
 if($ver=="wml"){print"<a href=\"index.php?ver=html&amp;pas=$pas&amp;login=$login\">wap 2.0</a><br/>";}
 else{print"<a href=\"index.php?ver=wml&amp;pas=$pas&amp;login=$login\">wap 1.2</a><br/>";}
 print"<a href=\"../index.php?ver=$ver&amp;pas=$pas&amp;login=$login\">На главную</a><br/>";
if($ver=="html"){print"</td>
    </tr>
  </tbody>
</table>
</body>
</html>
";}
else{print"</p></card></wml>";}



?>