Ответ

Avenger 27.02.2003 14:37

многовато конечно
/auto.p

@USE
/classes/class_menu.p
/classes/class_head.p
@auto[]

#<VAR>
$connect_string[что-то]
$web_url[что-то]

#<PROCEDURE>
@dbconnect[code]
^connect[$connect_string]{$code}

@head[]
$temp_head[^class_head::create[]]
^temp_head.head_show[]


@show[]
$temp_menu[^class_menu::create[]]
^temp_menu.menu_show[]


/classes/class_menu.p

@CLASS
class_menu

@create[]
^MAIN:dbconnect{
$menu_table[^table::sql{select name, url, hint from menu}]
}

@menu_show[]
^if($menu_table){
<TABLE CLASS="menutab" BORDER="0" CELLPADDING="0" CELLSPACING="1" WIDTH="100%">
<TR CLASS="null">
<IMG SRC="images/null.gif" HEIGHT="8" WIDTH="184">
</TR>
<TR>
<TH CLASS="head" ID="topleft">
&nbsp^;щ+і----+--+-&nbsp^;
</TH>
</TR>
^menu_table.menu{
<TR>
<TD CLASS="img">
<IMG SRC="images/null.gif" WIDTH="11" HEIGHT="11">
&nbsp^;
<A CLASS="mainmenu" onmouseover=" display('${request:uri}$menu_table.url :: $menu_table.hint')^; return true^;" HREF=" $menu_table.url">
$menu_table.name $web_url
$web_url
</A>

&nbsp^;
</TD>
</TR>
}
</TR>
</TABLE>

}{
#error messages
}

---