вот тут отмечусь еще

Serge 25.06.2002 15:40

напиши свой класс SESSION с 3-мя (!!!) методами

^SESSION::create[]
^if( !def $cookie::suid ){
   $sSessionID[сгенерить уникальное число]
   ^rem{ перед этим желательно проверить наличие записи }
   ^rem{ с таким session_id }
   ^void:sql{ insert into session ( session_id ) values ( '$sSessionID' ) }
    $cookie::suid[$sSessionID;session]
}{
    $sSessionID[$cookie::suid]
}

^SESSION:put[sVarName;sVarValue]
^void:sql{ insert into session_var (name, value) values ('$sVarName', '$VarValue') }

^SESSION:get[sVarName]
$result[^string:sql{ select value from session_var where name = '$sVarName' }]

не нужно забывать что это всего лишь идея, а не кусок usable кода

---