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