Как вывести на главной странице сайта последние 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-2020г.

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

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

WR-Счётчик