Code6421的WebApplication开发利器－－WebSnap第五章：使用者管理及Sessions在我这里
会出现几个问题，
第一：只能在设计时将用户、密码加入到webuserlist中，运行中加入得用户
、密码根本不能成功登陆，
UserID:=Strings.Values['UserName'];不能用
第二，page的用户、密码验证用他的例子也不行，验证也通不过
procedure THome.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.Name,'WebBrokerSessionID') then
begin
if WebContext.Response.Cookies.Items.Expires = -1 then
WebContext.Response.Cookies.Items.Expires:=IncDay(Date);
end;
end;
end;
这段不能通过。
