Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

Не считываются cookies (cgi)   Найти похожие ветки 

 
zorik ©   (2006-02-17 15:01) [0]

Проблема в следующем. Делаю что-то наподобе внутренней странички. Есть начальная веб-страница с полями ввода имени юзера, пароля и кнопкой. При нажатии на кнопку данные передаются на другую страницу (динамическую cgi). Там происходит следущее. Имя и пароль считываються, записываються в кукисы и происходить автоматическая переадресация (Location: main.cgi) на страницу в которой считывается имя и пароль, сравниваеться с тем что должно быть и в зависимости от результата формируется либо главная страница либо страница с сообщением об ошибке.
Ниже процедуры записи и чтения

function getcookie(name:string):string;
var
 cookie:string;
 p:integer;
begin
 cookie:=GetVar("HTTP_COOKIE");
 name:=name+"="; p:=pos(name,cookie);
 if p=0 then
  Result:=""
 else begin
  Delete(cookie,1,p+length(name)-1);
  p:=pos(";",cookie);
  if p=0 then p:=pos(" ",cookie);
  if p=0 then p:=length(cookie)+1;
  result:=copy(cookie,1,p-1);
 end;
end;

procedure setcookie(name,value:string);
begin
 WriteLn("Set-Cookie: ",Name,"=",Value);
end;

Вопрос. Когда происходить запись кукисов? Без переадресации все работает, а с переадресацией нет. Можете ссылки дать если знаете :-)


 
McSimm ©   (2006-02-17 15:05) [1]

Веб сервер IIS ?


 
McSimm ©   (2006-02-17 15:07) [2]

Если да, то посмотрите
http://support.microsoft.com/kb/q176113/


 
zorik ©   (2006-02-17 15:10) [3]

Да IIS


 
zorik ©   (2006-02-17 15:54) [4]


> McSimm ©   (17.02.06 15:07) [2]
>
> Если да, то посмотрите
> http://support.microsoft.com/kb/q176113/

Спасибо огромное. После долгих мучений получилось!



Страницы: 1 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
2-1139950387
Kot_
2006-02-14 23:53
2006.03.05
Составление индекса по символьному и цифровому полю


2-1140088176
PoetOfDelphi
2006-02-16 14:09
2006.03.05
Событие OnDblClick для LookUpComboBox


15-1139738075
Glex
2006-02-12 12:54
2006.03.05
Написал парсер Delphi Syntax Highlight для этого форума))


3-1137046323
DimonS
2006-01-12 09:12
2006.03.05
Удаление строк в Access


15-1139579838
tradakad
2006-02-10 16:57
2006.03.05
компиляция проекта без использования IDE