C
chinapig
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥,大姐们:
请您们给看一下这段代码有什么问题:
MyCookies := TStringList.Create;
try
if (comparetext(request.ContentFields.Values['uid'], 'UserId') = 0) and
(comparetext(request.contentfields.values['password'], 'PassWord') = 0) then
begin
mycookies.Add('IsLogon=Logoned');
response.Cookies.Clear;
response.SetCookieField(mycookies, '', '/', -1, false);
response.SendRedirect('http://chinesepig/email.exe/MailList');
end
else
begin
response.SendRedirect('http://chinesepig/email.exe');
end;
finally
mycookies.free;
end;
问题:
有时能读出cookies,但大多数时候读不出,我看资料说时因为sendredirect与cookies
冲突,如果真是这样如何解决呢?
请您们给看一下这段代码有什么问题:
MyCookies := TStringList.Create;
try
if (comparetext(request.ContentFields.Values['uid'], 'UserId') = 0) and
(comparetext(request.contentfields.values['password'], 'PassWord') = 0) then
begin
mycookies.Add('IsLogon=Logoned');
response.Cookies.Clear;
response.SetCookieField(mycookies, '', '/', -1, false);
response.SendRedirect('http://chinesepig/email.exe/MailList');
end
else
begin
response.SendRedirect('http://chinesepig/email.exe');
end;
finally
mycookies.free;
end;
问题:
有时能读出cookies,但大多数时候读不出,我看资料说时因为sendredirect与cookies
冲突,如果真是这样如何解决呢?