通过登陆页面后,将Session.Values['UserNo']:=UserNo
然后对每个功能页面显示前先判断,即在pageproducer的onBeforeGetContent事件中如下判断:
procedure TLoginMeet.AdapterPageProducerBeforeGetContent(Sender: TObject);
begin
   if session.Values['UseNo']='' then
    begin
       Response.SendRedirect('/Meet.Meet/Showmsg?msg=请先登陆!');
       Exit;
    end;
end;
但却提示错误信息,怎么解决呢?