10 WR-Forum?

. . .



WR-Forum Professional WR-Forum Lite . . , - .

news.dat , - . . - 2 .

:
$lasttemprint="10"; //
$msg_onpage="10"; // : -
$forumdir="forum-PRO"; //


( WR-Forum Professional 2.0 ):



   

<? // : $lasttemprint="10"; // $msg_onpage="10"; // : - $forumdir="forum"; // $date=date("d.m.Y", time()+0); // .. if (is_file("$forumdir/data/news.dat")) { $newmessfile="$forumdir/data/news.dat"; // . wrforum.dat , . $realbase=TRUE; if (is_file("$forumdir/data/wrforum.dat")) $mainlines=file("$forumdir/data/wrforum.dat"); if (!isset($mainlines)) $datasize=0; else $datasize=sizeof($mainlines); if ($datasize<=0) {if (is_file("$forumdir/data/wrf-copy.dat")) {$realbase=FALSE; $mainlines=file("$forumdir/data/wrf-copy.dat"); $datasize=sizeof($mainlines);}} if ($datasize<=0) exit("$back. , - "); $lines=file($newmessfile); $i=count($lines); if ($i>10 and $i<$lasttemprint) $i=$lasttemprint; if ($i>1) { $a1=$i-1;$u="-1"; // do {$dt=explode("|", $lines[$a1]); $a1--; if (isset($dt[1])) { // ( ) - $msg=htmlspecialchars($dt[14]); $msg=str_replace('[b]'," ",$msg); $msg=str_replace('[/b]'," ",$msg); $msg=str_replace('[RB]'," ",$msg); $msg=str_replace('[/RB]'," ",$msg); $msg=str_replace('[Code]'," ",$msg); $msg=str_replace('[/Code]'," ",$msg); $msg=str_replace('[Quote]',":\r\n ",$msg); $msg=str_replace('[/Quote]'," \r\n ",$msg); $msg=str_replace('[img]'," : ",$msg); $msg=str_replace('[/img]'," ",$msg); $msg=str_replace("<br>","\r\n", $msg); $msg=str_replace("'","`",$msg); $msg=str_replace('&lt;br&gt;'," \r\r\n", $msg); $msg=str_replace('<br>'," \r\r\n", $msg); $mmax=count($mainlines); $k=$mmax; $mainr=""; // , - ! do {$k--; $mdt=explode("|",$mainlines[$k]); if ($mdt[2]==$dt[2]) {$mainr="<a href='$forumdir/index.php?id=$mdt[2]'>$mdt[4]</a>"; $k=0;} } while($k>0); if (date("d.m.Y",$dt[4])==$date) $dt[4]=" ".date("H:i",$dt[4]); else $dt[4]=date("d.m.y - H:i",$dt[4]); if ($dt[17]>$msg_onpage) $page=ceil($dt[17]/$msg_onpage); else $page=1; if ($page!=1) $pageadd="&page=$page"; else $pageadd=""; if ($dt[6]==TRUE) {$codename=urlencode($dt[8]); $name="$dt[8]";} else $name=" $dt[8]"; print"<div style='line-height:1.5em;'>$dt[4]: <strong>$mainr</strong> <B><a href='$forumdir/index.php?id=$dt[2]$dt[3]$pageadd#m$dt[17]' title='$msg \r\n\r\n $dt[4]'> $dt[5]</a></B> - $name.<br></div>"; } $a11=$u; $u11=$a1; } while($a11 < $u11); }} ?> </p>

:


1.9 2.0 :


? , : www.wr-script.ru/forum/ - php ;-)

-
- www.wr-script.ru
- 8 2019 .



, , ( , + ). !

: www.wr-script.ru, 2004-2024.

. WR-Script.ru!

WEB-

WR-Счётчик