Новости | FAQ | Авторы | Документация | В действии | Библиотека |
Инструменты | Полезные ссылки | Хостинги | Скачать | Примеры | Форум |
off 02.07.2007 15:23
Дело было вечером, делать было нечего...^use[/gallery/index.html] ^gallery[]6) В каталог /gallery/ кладёте сценарий-галереи (он тоже называется index.html):
@main[] ##################################################################################### # index.html - наипростейшая галерея без употребления БД # 1. находит в директориях файл index.html и cover.jpg и считает их папками с фото # 2. отображает cover.jpg с сылкой на соответсвующий index.html # 3. ищет файлы вида xxx.thumb.jpg и считает их превьюшками фото вида xxx.sized.jpg # 4. отображает превьюшки в таблице из $tblcolumn колонок ##################################################################################### ^gallery[] @gallery[] $tblcolumn(5) # вывод заголовка страницы $header[^file::load[binary;/gallery/header.p]] ^untaint{$header.text} $path_albums[albums/] $list[^file:list[$path_albums]] <center /><div> ^list.menu{ ^if(-d "${path_albums}$list.name"){ # если внутри каталога есть файл index.html $coverindex[${path_albums}${list.name}/index.html] ^if(-f "$coverindex"){ $covername[${path_albums}${list.name}/cover.jpg] ^if(-f "$covername"){ Галерея $list.name <br /> <a href="$coverindex"><img src="$covername" border="1"></img></a><br /><br /> } } }{ # Это файл $list.name } } # end of menu </div> ###################################################################### # отображение thumb картинок $currentpath[^file:dirname[index.html]/] $thumb_image[^file:list[$currentpath;\.thumb\.jpg^$]] $tblcount($thumb_image) <center /><div> <table border="0" cellpadding="10" cellspacing="10"> ^while($tblcount>0){ <tr> ^for[icolumn](1;$tblcolumn){ $tblcount($tblcount-1) ^if($tblcount>=0){ $cut_name[$thumb_image.name] $cut_name[^cut_name.trim[end;thumb.jpg]] $sized_name[${cut_name}.sized.jpg] <td align="center"> <a href="${currentpath}$sized_name"><img src="${currentpath}${thumb_image.name}" border="5"></img></a> </td> ^thumb_image.offset(1) }{ <td> ^;</td> } } </tr> } # end of while </table> </div> # вывод подвала страницы $footer[^file::load[binary;/gallery/footer.p]] ^untaint{$footer.text}P.S. подразумевается что у вас уже настроен parser3 и web-сервер для работы с ним