Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

  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'];

Рекомендуем скачать другие рефераты по теме: гражданское реферат, диплом вуза.





Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата