Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

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

Response.Content := CommonLook+'Tv єёях°эю чрЁхушёЄЁшЁютрэv'; if UserStatus>0 then

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

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

+'TЄЁрэшЎр рфьшэшёЄЁрЄюЁр'; 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+'¦хчєы№ЄрЄv яюшёър '+s+':'
+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'+''; for i:=0 to E.ErrorCount -1 do

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

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.

-----------------------

Браузер клиента

Пользователь

Internet / Intranet или ЛВС

Web- интерфейс к БД

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





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата