пример... правильно \неправильно - не знаю, но работает

vasyan 12.08.2003 11:48

@menu_show[]
^MAIN:dbconnect{
$menu_table[^table::sql{SELECT nmbr, name, url, hint, parent
FROM menu
ORDER BY pos}]
}
#nmbr- уникальный id, name- название, url- относительный урл, hint - подсказка, parent - номер меню родителя
^if($menu_table){
<DIV CLASS="globalmenu">
<DIV CLASS="head" ID="menu">
&nbsp^; <A HREF="$MAIN:adm_url">Заголовок</A>&nbsp^;
</DIV>
$a(1)
^rec_menu[0;$a;$MAIN:web_url]
</DIV>
}


@rec_menu[parent;tree;url]
$b(0)
^menu_table.menu{
^if($parent == $menu_table.parent){
<DIV CLASS="menu">
<DIV ^if(^form:menu_nmbr.int(0)!=$menu_table.nmbr){CLASS="menu" ID="item"}{CLASS="itemselected"}>
^for[i](1;$tree){^b.inc(1)
}[&nbsp^;
]
^b.inc(1)
<IMG SRC="/images/nothing.gif" WIDTH="9" HEIGHT="9" BORDER="0">
^if(^form:menu_nmbr.int(0)==$menu_table.nmbr){
<A HREF="${MAIN:adm_uri}/?menu_nmbr=$menu_table.nmbr" TITLE="$menu_table.hint">
$menu_table.name</A>
&nbsp^;

}{
<A CLASS="menu" ID="mainmenu" HREF="${MAIN:adm_uri}/?menu_nmbr=$menu_table.nmbr" TITLE="$menu_table.hint">
$menu_table.name [$str]
</A>
}
</DIV>
</DIV>
$str[${url}/$menu_table.url]
^rec_menu[$menu_table.nmbr;$b;$str]
}
}

---