ак вывести на главной странице сайта последние 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 г.
„тобы создать сайт с нул€ вам стоит посетить этот ресурс. ; Ariston c00085194 zipin.


ѕри перепечатке информации делайте, пожалуйста, ссылку на наш сайт (либо поделитьс€ вконтакте, гугл+ или делитесь в одноклассниках статьЄй). —пасибо!

»сточник: www.wr-script.ru©, 2004-2022г.

ƒелитесь с друзь€ми в соцсет€х. јктивные комментаторы получают свежие скрипты и бесплатные доработки от WR-Script.ru!

¬ернутьс€ к стать€м помощи WEB-мастеру

WR-–°—З—С—В—З–Є–Ї