Отправляет email-рассылки с помощью сервиса Sendsay

Создание прибыльного сайта для начинающих

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Бизнес с высокой прибылью" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
zolotojlebed.info

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

Создание htm /txt страниц сайта/журнала с помощью шаблонов



Здравствуйте!
Сегодня в выпуске - пример формирования двухуровнего меню на одной странице.
Что сначала надо сделать:

Работа/Открыть
Далее, нажимаем Процедуры и Добавить
В Имя заносим gen_verh_prg - для запуска из бланка
И, копируем текст программы:


*************************************
*************************************
*************************************
*************************************
*** Генерация двухуровневого меню
SELECT a_formir
ptp=recno()
vbn=gruppa
menusd_v=''

* генерация первого уровня
Scan For Not notmenu AND Alltrim(types)<>'В_архиве' And Alltrim(types)<>'Не_активно' And Alltrim(types)<>'Меню' AND Alltrim(types)<>'Archive' And Alltrim(types)<>'Not_active' and Alltrim(types)<>'Menu'
If (Alltrim(types)<>'Заголовок' and Alltrim(types)<>'Title') and (nacrazdel=.t. or alltrim(types)='Контент_отд' or alltrim(types)='Content_page')
if vbn<>gruppa
menusd_v=menusd_v+" < font size=-1 > < a href='"+strocka+Alltr(Name)+"' target=_parent>[ "+Alltr(oglav)+"] < /a > < /font>"
else
menusd_v=menusd_v+" < b > < font color=blue size=-1> "+Alltr(oglav)+" < /font>< /b >"
endif
Endif
Endscan

* генерация второго уровня
menusd_v=menusd_v+"
< font size=-2 >"

Scan For gruppa=vbn and Not notmenu And Alltrim(types)<>'В_архиве' And Alltrim(types)<>'Не_активно' And Alltrim(types)<>'Меню' ;
AND Alltrim(types)<>'Archive' And Alltrim(types)<>'Not_active' and Alltrim(types)<>'Menu'

If Alltrim(types)<>'Заголовок' and Alltrim(types)<>'Title'
If Recno()=ptp
menusd_v=menusd_v+" < font color=red> < b>"+Alltr(oglav)+" < /b > < /font >"
Else
menusd_v=menusd_v+" [ < a href='"+strocka+Alltr(Name)+"'>"+Alltr(oglav)+"< /a >] "
Endif
Else
Endif
Endscan
menusd_v=menusd_v+" < br > < /font > "
go ptp
return menusd_v

*************************************
*************************************
*************************************

После этого нажимаем Сохранить,Закрыть а потом, в тех бланках,
в которых планируется применить двухуровневое меню верхнего уровня, вносим:

`exec_proc("gen_verh_prg",.t.)`

т.е. здесь запускается пользовательская процедура gen_verh_prg, которая и генерит, собственно то, что надо.
что сгенерилось:


Страница загрузки

Если хотите, можете высказать мнение "в общем" о программе, для чего достаточно кликнуть по выбранным ссылкам.

Убей сибя ап стену
Достаточно и так – баги бы убрать…
Развивать в связке с Fox-ом
Развивать в связке с другим языком программирования

В пятницу, в 13:30 по Москве (и вообще, ВСЕГДА по пятницам в 13:30), жду Вас в чате на обсуждении программы!


Вся информация об a_olSC на сайте:
www.a-olsc.front.ru
или
www.aolsc.narod.ru

Загрузка программы:
Страница загрузки

Ответить:
aolsc@front.ru


Форум/Чат/Гостевая


ICQ - 226-071-270

Все новости программы на странице новостей

Регистрация программы:
Страница регистрации

Проект "Тихоня-Джек"
Открыть начальную страницу проекта



Не стреляйте в пианиста, он играет как умеет...
В избранное