Данный эскиз  показывает, как работает система в общем. Конкретно всё зависит от того, где находится клиент, сервер, как клиент подсоединён к серверу.  Пользователь на клиентском компьютере в программе просмотра заполняет предложенную форму или выбирает дальнейшее действие. Браузер по нажатию одной из кнопок в форме пересылает данные из заполненной формы или отображает вновь полученные в результате какой- либо операции. Не важно, к какой из сетей подключен клиент (он даже может быть удалённым пользователем и соединиться по модему). Программа принимает данные, проверяет их и формирует запрос (запросом называется любое действие которое пользователь предлагает совершить БД) к монитору БД или получает от него результат. Получив запрос, монитор обрабатывает его. Если не произошло ошибок, ждёт запроса от программы на отправку программе результата. На диске сервера хранится БД, модифицируемая по запросу клиента.

1)

Формы в HTML

Для того, чтобы пользователь мог сформировать и отправить запрос серверу через HTML документ, используются так называемые формы ввода. Это блок документа HTML заключенный в тегах <form> </form> содержащий различные текстовые поля и кнопки отправления и служащий для формирования и отправки серверу запроса пользователя. Формы имеют следующий синтаксис

<FORM ACTION="URL” METHOD >
содержание формы, включая элементы INPUT и, возможно, элементы TEXTAREA и SELECT
</FORM>

где:

 В содержании формы мы можем иметь следующие поля:

Есть некоторые элементы, которые могут появиться только в пределах элемента FORM. В частности:

Цель данного поля специфицировать в пределах формы вводные поля: одностроковые текстовые поля, поля пароля, переключатели, радиокнопки, кнопки отсылки и перезагрузки, скрытые поля, выгрузки файла, кнопки изображения и т.д.

Типичное отображение

Меняется согласно типу поля.

Основной синтаксис

<INPUT TYPE=тип_поля_ввода другие_атрибуты>

Возможные атрибуты

Различные значения атрибута TYPE соответствуют различным видам вводных полей.

TYPE=TEXT (тип=текст - по умолчанию)

Заметим, что текстовый ввод ограничен одной строкой. Используйте элемент TEXTAREA, чтобы определить многостроковые текстовые поля.

Пример:

 <INPUT TYPE=TEXT SIZE=40 NAME=user value="your name">

TYPE=PASSWORD (тип=пароль)

Этот тип подобен TYPE=TEXT, однако все вводимые символы представляются в виде *, чтобы скрыть текст от подсматривающих глаз, когда вводится пароль. Вы можете использовать атрибуты SIZE и MAXLENGTH, чтобы управлять видимой и максимальной длинами поля точно так же, как для обычного текстового поля.

Пример:

<INPUT TYPE=PASSWORD SIZE=12 NAME=pw>

TYPE=CHECKBOX (тип=поле установки - переключатель)

Используется для простых булевых атрибутов (т.е. атрибутов, принимающих значение ИСТИНА или ЛОЖЬ) или для атрибутов, которые одновременно могут принимать множество значений. Каждое заполненное переключательное поле генерирует отдельную пару имя/значение в формируемых данных, даже если это приводит к дублированию имен. Используйте атрибут CHECKED для инициализации поля установки по умолчанию.

Пример:

<INPUT TYPE=CHECKBOX CHECKED NAME=uscitizen VALUE=yes>

TYPE=RADIO (тип=радиокнопка)

Пример:

<INPUT TYPE=RADIO NAME=age VALUE="0-12">

<INPUT TYPE=RADIO NAME=age VALUE="13-17">

<INPUT TYPE=RADIO NAME=age VALUE="18-25">

<INPUT TYPE=RADIO NAME=age VALUE="26-35" CHECKED>

<INPUT TYPE=RADIO NAME=age VALUE="36-">

TYPE=SUBMIT (тип=отсылка)

Определяет кнопку, которую пользователь может нажать, чтобы передать содержимое формы серверу. Метка устанавливается атрибутом VALUE. Если атрибут NAME задан, то пара наименование/значение для исполняемой кнопки будет включена в передаваемые данные. Вы можете включить несколько исполняемых кнопок в форму. Смотрите TYPE=IMAGE для графических исполняемых кнопок.

Примеры:

<INPUT TYPE=SUBMIT VALUE="Party on...">

TYPE=RESET (тип=перезагрузка)

Определяет кнопку, которую пользователь может нажать, чтобы вернуть поля формы к исходному состоянию, когда документ был впервые загружен. Вы можете установить метку с помощью атрибута VALUE. Кнопки перезагрузки никогда не посылаются как часть содержимого формы.

Пример:

<INPUT TYPE=RESET VALUE="Start over...">

TYPE=FILE (тип=файл)

Этот тип дает возможность пользователям прикрепить файл к содержимому формы. Элемент обычно отображается, как текстовое поле с кнопкой, при нажатии на которую появляется файловый броузер для отбора имени файла. Имя файла также может быть введено прямо в текстовое поле.

Таким же образом, как для TYPE=TEXT, для TYPE=FILE можно использовать атрибут SIZE, чтобы установить видимую ширину поля. Вы также можете установить верхний предел для длины имени файла, используя атрибут MAXLENGTH. Некоторые программы просмотра поддерживают способность ограничивать виды файлов, которые могут быть прикреплены к форме, перечислением разделяемого запятыми списка файлов с содержимым типа MIME, задаваемого атрибутом ACCEPT. Например, ACCEPT="image/*" ограничит файлы изображениями. Дополнительная информация может быть найдена в RFC 1867.

Пример:

<INPUT TYPE=FILE NAME=photo SIZE=20>

TYPE=HIDDEN (тип=скрытый)

Этот тип поля не отображается пользователю. Скрытое поле дает возможность для серверов хранить информацию о состоянии вместе с формой. Когда форма "исполняется" при нажатию соответствующей кнопки, серверу будет передана пара имя/значение, определенная с использованием соответствующих атрибутов. Этот тип создает рабочее окружение для полноты возможностей HTTP и является альтернативой для использования так называемой HTTP cookies.

Пример:

<INPUT TYPE=HIDDEN NAME=customerid VALUE="c2415-345-8563">

TYPE=IMAGE

Используется для графических кнопок отсылок, отображаемых изображением. URL для изображений специфицируется атрибутом SRC. Выравнивание изображения может быть специфицировано атрибутом ALIGN. В этом отношении графические кнопки отсылки идентичны элементам IMG (так, Вы можете установить для ALIGN - LEFT, RIGHT, TOP, MIDDLE или BOTTOM). Атрибуты NAME и VALUE трактуются точно также, как текстовые кнопки отсылки и должны быть заданы для обеспечения работы неграфических программ просмотра.

Пример:

<INPUT TYPE=IMAGE SRC="partyon.gif" VALUE="Party on...">

Допустимый контекст

Текстовый контейнер, т.е. любой элемент, который может содержать текстовые элементы. Включает большинство элементов HTML. Текстовый контейнер может появиться в пределах элемента FORM.

Содержимое

Никакое.

Примеры

<INPUT TYPE=RESET VALUE="Start over...">

Примечания

Цель

Спецификация в пределах формы: меню, из которого пользователь может выбрать один или несколько элементов.

Типичное отображение

Меню выбора, которое может быть "активизировано" некоторым зависящим от броузера образом; обычно в графических броузерах это означает ниспадающее меню. В зависимости от броузера все варианты выбора могут быть видимы одновременно или пользователь может просматривать элементы меню.

Основной синтаксис

<SELECT NAME=имя>
элементы OPTION
</SELECT>

Возможные атрибуты

Допустимый контекст

Текстовый контейнер, т.е. любой элемент, который может содержать текстовые элементы. Это включает большинство HTML элементов. Однако, текстовый контейнер может появиться только в пределах элемента FORM.

Содержимое

OPTION элементы.

Примеры

Пример:

<SELECT NAME="flavor">

<OPTION VALUE=a>Vanilla

<OPTION VALUE=b>Strawberry

<OPTION VALUE=c>Rum and Raisin

<OPTION VALUE=d>Peach and Orange

</SELECT>

Примечания

Смотрите обсуждение формы.

Как альтернативу SELECT, Вы можете использовать элемент INPUT с TYPE=CHECKBOX или TYPE=RADIO, который при отображении позволяет пользователю увидеть все варианты сразу.

Цель

Специфицировать в пределах формы область для многострочного пользовательского ввода.

Типичное отображение

Область ввода, появляющаяся в виде отдельного прямоугольника, возможно, имеющего свой фоновый цвет и обычно со скроллингом некоторого типа как в вертикальном, так и в горизонтальном направлении. Область инициализирована содержимым элемента TEXTAREA, использующим одноразмерный шрифт.

Основной синтаксис

<TEXTAREA NAME=имя ROWS=m COLS=n>
текст
</TEXTAREA>

Возможные атрибуты

Программа просмотра не должна интерпретировать атрибуты ROWS и COLS, как ограничивающие размер действительного ввода. Броузер должен предоставить некоторые средства скроллинга содержимого области вводимого текста, когда его размер выходит за пределы видимой области.

Броузер может перенести строку видимого текста, чтобы уложиться в длину строки видимого текста без скроллинга.

Допустимый контекст

Содержимое

Строка. Escape последовательность разрешена, однако никакие теги не распознаются.

Содержимое используется для инициализации текста, который выводится в вводном поле при первой загрузке документа.

Примеры

 <TEXTAREA NAME=address ROWS=4 COLS=40>

Your address here...

</TEXTAREA>

Примечания

Смотрите обсуждение форм.

Форма будет правильно работать лишь в том случае, если все вышеуказанные поля заключены между тегами <FORM> </FORM>  и каждому текстовому полю обязательно должно быть присвоено имя  NAME=..

Вот так форма отображается в браузере.

А вот HTML код этой формы

<form method="GET" action="/Scripts/test/webshop.dll/addmsg">

<center>

<h2>Cервер "Электронный магазин"</h2>

<h2>Оставьте ваше сообщение</h2>

<br><img src="img/cls_dkbl.gif">

</center>

<h3>Введите Ваш адрес электронной почты</h3>

<table>

<td>

<img src="img/bullet30.gif">

</td>

<td>

<input name="sender" type="TEXT">

</td>

</table>

<TEXTAREA NAME="message" ROWS=5 COLS=60>Введите Ваши пожелания здесь</TEXTAREA>

<HR>

<img src="img/bullet30.gif">

<input type="SUBMIT" value="Ввод">

<input type="RESET" value="Отменить">

</form>

При нажатии кнопки «Ввод» происходит событие SUBMIT и содержание текстовых полей этой формы отправляется по адресу который указан в ACTION свойстве формы action="/Scripts/test/webshop.dll/addmsg . В данном случае адрес указывает на динамическую библиотеку webshop.dll  загруженную на сервере и этой библиотеке передается команда addmsg  тоесть получить из текстового поля само сообщение пользователя , адрес его  электронной почты и записать эти данные в какой либо файл на сервере. Полный вид запроса посылаемого  серверу имеет следующий вид: http://shop.com/Scripts/test/webshop.dll/addmsg?sender=xxx@xxx&message=ccc  , где xxx и ссс содержание соответствующих полей текстовой формы.  Если  отбросить  адрес сервера , то запрос имеет вид командной строки DOS webshop.dll/addmsg?sender=xxx@xxx&message=ccc   Библиотека webshop.dll –называется ISAPI приложением (ISAPI – Internet Services API). Именно обзору интерфейса ISAPI будет посвящена следующая глава.

ISAPI приложения

Место программирования  в публикации данных таково. Приемом и обработкой запросов от клиентов занимается WEB сервер. Большая часть серверов Internet  работает под управлением UNIX и популярного на этой платформе сервера Apache, растет популярность платформы Windows NT Server и сервера Microsoft Internet Information Server. Сервер реализует поддержку протокала HTTP, принимая от браузеров клиентов запросы и выдавая им в ответ те или иные WWW страницы.  Но всех возможных запросов не предусмотришь поэтому после после получения запроса сервер передает управление WEB –интерфейсу БД (модулю расширения) . Чаще всего эти модули расширения называют сценариями или скриптами (scripts). Задача такого скрипта  - обработать запрос , извлечь из базы данных или другого внешнего источника нужную информацию, оформить ее в виде HTML документа и передать ее обратно серверу, который возьмет на себя труд отправить ее браузеру клента.

Первым и общепринятым интерфейсом  для создания модулей расширения  является CGI (Common Gateway Interface) , распространенный в Unix. Излюбленным языком написания CGI скриптов является PERL , хотя можно писать и на С, Basic и Delphi.

Microsoft снабдила свой сервер Internet протоколом для взаимодействия с модулями расширения ISAPI  (ISAPI – Internet Services API), по которому скрипт представляет собой динамическую библиотеку, загружаемую сервером и работающую с ним в одном адресном пространстве. Библиотека должна экспортировать вполне определенные функции (их три: GetExtensionVersion , HttpExtensionProc, TerminateExtension), которые и будут вызываться сервером . Одна библиотика  может обрабатывать сколько угодно запросов.

Пример сгенеренной ISAPI модулем HTML страницы, выдающей ответ на зпрос:

Исходный код ISAPI модуля на языке Delphi 4

unit webshopunit;

interface

uses

  Windows, Messages, SysUtils, Classes, HTTPApp, DBWeb, Db, DBTables;

type

  TWebModule1 = class(TWebModule)

    GroupQuery: TQuery;

    WebSession: TSession;

    StoreQTP: TQueryTableProducer;

    GroupQueryMainGroup: TIntegerField;

    GroupQuerySubGroup: TIntegerField;

    GroupQueryGroupName: TStringField;

    StoreQuery: TQuery;

    ValidateQuery: TQuery;

    AddMsgQuery: TQuery;

    procedure WebModule1GetGroupAction(Sender: TObject;

      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

    procedure WebModule1Create(Sender: TObject);

    procedure StoreQTPFormatCell(Sender: TObject; CellRow,

      CellColumn: Integer; var BgColor: THTMLBgColor;

      var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,

      CellData: String);

    procedure WebModule1Destroy(Sender: TObject);

    procedure WebModule1ValidateAction(Sender: TObject;

      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

    procedure StoreQTPGetTableCaption(Sender: TObject; var Caption: String;

      var Alignment: THTMLCaptionAlignment);

    procedure WebModule1AcceptOrderAction(Sender: TObject;

      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

    procedure WebModule1SearchAction(Sender: TObject; Request: TWebRequest;

      Response: TWebResponse; var Handled: Boolean);

    procedure WebModule1AddMSgAction(Sender: TObject; Request: TWebRequest;

      Response: TWebResponse; var Handled: Boolean);

  private

    ScriptName: String;

    { Private declarations }

  public

    { Public declarations }

    function GroupListProducer(Query: TQuery; Kind: Integer): string;

    function CreateGroupList(Gr1,Gr2,Kind:Integer) : string;

  end;

var

  WebModule1: TWebModule1;

 resourcestring

  sOrderAccepted = 'Tр° чрърч єёях°эю яЁшэЄ';

  sContent = '+уыртыхэшх';

implementation

uses inifiles;

{$R *.DFM}

 var HTMLPath,  TemplatesPath, DBAliasName,

     iniName,CommonLook,CommonEnd : string;

    UserStatus : Integer;

    csect : TRTLCriticalSection;

procedure TWebModule1.WebModule1Create(Sender: TObject);

var

  ini : TINIFile;

  FN: array[0..MAX_PATH- 1] of char;

  s1,s2: string;

  fs : TFileStream;

  bgpath, txtcol, lcol,vcol,acol: string;

begin

  GetWindowsDirectory(FN, SizeOf(FN));

  s1:= StrPas(fn);

  GetModuleFileName(hInstance, FN, SizeOf(FN));

  s2 := ExtractFileName(StrPas(fn));

  if not (Char(s1[Length(s1)]) in ['/','\']) then AppendStr(s1,'/');

  if Pos('.',s2)<>0 then s2 := Copy(s2,1,Pos('.',s2)-1);

  iniName := s1+s2+'.ini';

  ini := TINIFile.Create(iniName);

  HTMLPath := ini.ReadString('Paths','HTMLPath','/test');

  TemplatesPath := ini.ReadString('Paths','TemplatesPath',s1);

  DBAliasName := ini.ReadString('Paths','DBAliasName','webtest');

  if Assigned(WebSession) and WebSession.IsAlias(DBAliasName) then

   begin

    GroupQuery.DatabaseName := DBAliasName;

    StoreQuery.DatabaseName := DBAliasName;

    ValidateQuery.DatabaseName := DBAliasName;

   end;

  bgpath := ini.ReadString('Design','Background','img\sand.jpg');

  txtcol := ini.ReadString('Design','text','black');

  lcol := ini.ReadString('Design','link','blue');

  acol := ini.ReadString('Design','alink','aqua');

  vcol := ini.ReadString('Design','vlink','aqua');

  ini.Free;

  CommonLook := Format('<HTML><BODY BACKGROUND="%s%s" TEXT=%s LINK=%s ALINK=%s VLINK=%s>',

   [HTMLPath,bgpath,txtcol,lcol,acol,vcol]);

  CommonEnd := '</BODY></HTML>';

end;

procedure TWebModule1.WebModule1Destroy(Sender: TObject);

begin

;

end;

function TWebModule1.GroupListProducer(Query: TQuery; kind: Integer): string;

var s: string;gn1,gn2: Integer;

begin

 with Query do

   try

    Open;

    Result := '';

    First;

    while not Eof do

    begin

      gn1 := Query.Fields[0].AsInteger;

      gn2 := Query.Fields[1].AsInteger;

      if Gn2=0 then s:='' else s:=IntToStr(Gn2);

      Result := Result + Format('<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">%d.%s %s</A><BR>',

      [Request.ScriptName, gn1,gn2,Kind, gn1,s,Query.Fields[2].AsString]);

      Next;

    end;

   finally

    Close;

   end;

end;

function TWebModule1.CreateGroupList(Gr1,Gr2,Kind:Integer) : string;

var fs: TFileStream; i: Integer;

begin

  Result := '<B><FONT SIZE=+1>'+sContent+'<BR></FONT></B><HR>';

  with GroupQuery do

  begin

    if Gr1=0 then

     SQL.Text := 'SELECT * FROM Groups WHERE SubGroup=0'

    else

     SQL.Text := Format('SELECT * FROM Groups WHERE (MainGroup=%d) and (SubGroup>0)',[Gr1]);

    try

     Result := Result + GroupListProducer(GroupQuery,Kind);

     if Gr1<>0 then

      Result := Result + Format('<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">TхЁэєЄ№ё ъ юуыртыхэш¦</A><BR>',

      [Request.ScriptName, 0,0, Kind]);

    except

     on E:EDBEngineError do

     begin

      Result := Result + '+°шсър BDE'+'<BR>';

      for i:=0 to E.ErrorCount -1 do

       Result := Result + E.Errors[i].Message + '<BR>';

     end;

    end;

  end;

  Result := Result+'<HR><a href="http://'+Request.Host+HTMLPath+'/search.htm">¦юшёъ</A>'

   +CommonEnd;

end;

 // QueryAction - GetGroup тvтюф ЄрсышЎv яю Єют.уЁєяях

threadvar OperKind : Integer;

procedure TWebModule1.WebModule1GetGroupAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

 var gn1,gn2 : Integer; OrderCol : THTMLTableColumn;

begin

 with Request.QueryFields do

  begin

  gn1 := IndexOfName('Kind');

  if (gn1<>0) then OperKind := StrToIntDef(Values['Kind'],0);

  if gn1>=0 then Delete(gn1);

  gn1 := StrToIntDef(Values['Gr1'],0);

  gn2 := StrToIntDef(Values['Gr2'],0);

  end; //with

 if gn1=0 then Response.Content := CommonLook+CreateGroupList(gn1,gn2,OperKind)

 else if gn2=0 then Response.Content := CommonLook+CreateGroupList(gn1,gn2,OperKind)

 else

  begin

  //define group name

  with GroupQuery do

   begin

   SQL.Text := 'SELECT * FROM Groups WHERE (MainGroup=:gn1) and (SubGroup=:gn2)';

   Params[0].AsInteger := gn1;

   Params[1].AsInteger := gn2;

   Open;

   with StoreQTP do

    begin

    Header.Clear;

    Header.Add(CommonLook);

    if OperKind>0 then

     begin

     OrderCol := THTMLTableColumn.Create(StoreQTP.Columns);

     OrderCol.Title.Caption := '¦рърч';

     end

    else

     OrderCol := nil;

    case OperKind of

     1: Header.Add('<FORM METHOD="GET" ACTION="'+Request.ScriptName+'/AcceptOrder">');

     2: Header.Add('<FORM METHOD="GET" ACTION="'+Request.ScriptName+'/EditPrice">');

    end;//case

   Header.Add('<BR>¦рЄхуюЁш: <I>'+FieldByName('GroupName').AsString+'</I><BR>');

   Close;

//

   Footer.Clear;

   if OperKind=1 then Footer.Add('<BR>TЁюъ юяырЄv<INPUT TYPE="TEXT" NAME="WHENPAY" VALUE="">');

   if OperKind>0 then

    begin

    Footer.Add('<INPUT TYPE="SUBMIT" VALUE="OK">'

    +'<INPUT TYPE="RESET" VALUE="+Єьхэр"></FORM>');

    end;

   Footer.Add(Format('<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">TхЁэєЄ№ё ъ юуыртыхэш¦</A><BR>',

   [Request.ScriptName, gn1,0, OperKind]));

   end;//with storeqtp

  end;//with groupquery

  Response.Content := StoreQTP.Content;

  if Assigned(OrderCol) then OrderCol.Free;

  end; //generating table

end;

procedure TWebModule1.StoreQTPFormatCell(Sender: TObject;

  CellRow, CellColumn: Integer; var BgColor: THTMLBgColor;

  var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,

  CellData: String);

 var s: string;

begin

 if (CellRow<>0) then if (CellRow mod 2=0) then BgColor:='silver' else BgColor:='Gray';

 if (OperKind>0) and (CellColumn=0) and (CellRow>0) then

  begin

  CellData := '<INPUT TYPE=HIDDEN NAME=H'+IntToStr(CellRow)+' VALUE="'+CellData+'">'

  +CellData;

  end;

 if (OperKind>0) and (CellColumn=StoreQTP.Columns.Count-1) and (CellRow>0) then

  begin

  CellData := '<INPUT TYPE=CHECKBOX NAME=R'+IntToStr(CellRow)+' VALUE=1>¦рърчрЄ№';

  s := '<BR><INPUT TYPE=TEXT NAME=T'+IntToStr(CellRow)+' SIZE=5 MAXLENGTH=8 VALUE="';

  CellData := CellData+s+'">';

  end;

end;

procedure TWebModule1.StoreQTPGetTableCaption(Sender: TObject;

  var Caption: String; var Alignment: THTMLCaptionAlignment);

begin

 Caption :='=рщфхэю чряшёхщ: '+ IntToStr(StoreQTP.Query.RecordCount);

end;

procedure TWebModule1.WebModule1ValidateAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

 with ValidateQuery do

 begin

  Params[0].AsString := Request.QueryFields.Values['UserName'];

  Params[1].AsString := Request.QueryFields.Values['Password'];

  try

  Open;

  if RecordCount>0 then

   begin

   UserStatus := FieldByName('UserCategory').AsInteger;

   Response.Content := CommonLook+'<BR><B>Tv єёях°эю чрЁхушёЄЁшЁютрэv</B>';

   if UserStatus>0 then

    Response.Content := Response.Content + '<BR>TvсхЁшЄх ЄютрЁэє¦ уЁєяяє ш ттхфшЄх чрърч<BR>'+CreateGroupList(0,0,1)

   else

    begin

     Response.Content := Response.Content + '<BR>T ърўхёЄтх рфьшэшёЄЁрЄюЁр'

     +'<BR><a href="http://'+Request.Host+HTMLPath+'/admmenu.htm"><B>TЄЁрэшЎр рфьшэшёЄЁрЄюЁр</B></A>';

    end;

  end

  else

    Response.Content := CommonLook+'Tр°ш фрээvх юЄёєЄёЄтє¦Є т срчх. +сЁрЄшЄхё№ ъ эрь яю рфЁхёє xxx@yyy.zzz';

  finally

   Close;

  end;

 end;

end;

procedure TWebModule1.WebModule1AcceptOrderAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

 Response.Content := CommonLook+sOrderAccepted+CommonEnd;

 // -ры№°х тёЄрт№Єх ётющ ъюф фы тъы¦ўхэш чрърчр т срчє

end;

procedure TWebModule1.WebModule1SearchAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

 var s: string;

begin

 s:= Request.QueryFields.Values['Phrase'];

 GroupQuery.SQL.Text := 'SELECT * FROM Groups WHERE GroupName LIKE "%'+s+'%"';

 Response.Content := CommonLook+'<BR>¦хчєы№ЄрЄv яюшёър <I>'+s+'</I>:<BR>'

 +GroupListProducer(GroupQuery,0)+CommonEnd;

end;

procedure TWebModule1.WebModule1AddMSgAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

 var MCookies : TStringList;i: integer;

begin

 Response.Content := CommonLook;

 with AddMsgQuery do

 try

  Params[0].AsString:=Request.QueryFields.Values['Sender'];

  Params[1].AsString:=Request.Host;

  Params[2].AsDateTime:=Request.Date;

  Params[3].AsMemo:=Request.QueryFields.Values['Message'];

  Prepare;

  ExecSQL;

  MCookies := TStringList.Create;

  MCookies.Add('User='+Request.PathTranslated);

  MCookies.Add('Test='+Request.RemoteHost);

  MCookies.Add('Time='+Request.UserAgent);

  Response.SetCookieField(MCookies, '', Request.PathInfo , Date+1, False);

  MCookies.Free;

  Response.Content := Response.Content + 'Tр°х ёююс•хэшх яЁшэЄю' + CommonEnd;

 except

   on E:EDBEngineError do

    begin

     Response.Content := Response.Content + '+°шсър BDE'+'<BR>';

     for i:=0 to E.ErrorCount -1 do

      Response.Content := Response.Content + E.Errors[i].Message + '<BR>';

     Response.Content := Response.Content + CommonEnd;

    end;

 end;

end;

end.

Библиографический список.

1. Компьютер Пресс N2 1997г.

2. П. Дарахвелидзе, Е. Марков «Программирование в Delphi 4»

3. Компьютер Пресс N4 1997г.

4. Компьютер Пресс N5 1998г.

5. Computer Week Москва N4(210) 1999г.

6. Computer Week Москва N17(223) 1996г.

7. Computer Week Москва N18(224) 1998г.

8. Компьютерра N15(142) 1996.