procedure TTest1.WebAppComponentsBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); Var I:Integer; begin for I:=0 to webcontext.Response.Cookies.Count-1 do begin if SameText(webcontext.Response.Cookies.Items[I].Name,'WebBrokerSessionId') then begin if WebContext.Response.Cookies.Items[I].Expires=-1 then WebContext.Response.Cookies.Items[I].Expires:= Now+1;{cookie限制为一天} end; end; end;
登陆后session.setAttribute("username","my"); 进入其他页面后先判断啊! if (session.getAttribute("username")==null){ String leftStr=null; int lasdot; String testTemp=new String("http://192.168.0.99:8080/examples/jsp/chat/index_chat.jsp"); lasdot=testTemp.lastIndexOf("/"); leftStr=testTemp.substring(0,lasdot+1); response.sendRedirect(leftStr+"test.jsp");//用户没登陆重新定位! }
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
I:Integer;
begin
for I:=0 to webcontext.Response.Cookies.Count-1 do
begin
if SameText(webcontext.Response.Cookies.Items[I].Name,'WebBrokerSessionId') then
begin
if WebContext.Response.Cookies.Items[I].Expires=-1 then
WebContext.Response.Cookies.Items[I].Expires:= Now+1;{cookie限制为一天}
end;
end;
end;
进入其他页面后先判断啊!
if (session.getAttribute("username")==null){
String leftStr=null;
int lasdot;
String testTemp=new String("http://192.168.0.99:8080/examples/jsp/chat/index_chat.jsp");
lasdot=testTemp.lastIndexOf("/");
leftStr=testTemp.substring(0,lasdot+1);
response.sendRedirect(leftStr+"test.jsp");//用户没登陆重新定位!
}
IntraWeb里的session巨简单!
但可以肯定是 Session 问题