Реферат: HTML и базы данных

Содержание

• Содержание
• Введение.
• Internet – интеграция технологий
• Цели и задачи проекта
• Формы в HTML
• Cервер "Электронный магазин"
• Оставьте ваше сообщение
• Введите Ваш адрес электронной почты
• При нажатии кнопки «Ввод» происходит событие SUBMIT и содержание текстовых полей этой формы отправляется по адресу который указан в ACTION свойстве формы action="/Scripts/test/webshop.dll/addmsg . В данном случае адрес указывает на динамическую библиотеку webshop.dll загруженную на сервере и этой библиотеке передается команда addmsg тоесть получить из текстового поля само сообщение пользователя , адрес его электронной почты и записать эти данные в какой либо файл на сервере. Полный вид запроса посылаемого серверу имеет следующий вид: http://shop.com/Scripts/t...=xxx@xxx&message=ccc , где xxx и ссс содержание соответствующих полей текстовой формы. Если отбросить адрес сервера , то запрос имеет вид командной строки DOS webshop.dll/addmsg?sender=xxx@xxx&message=ccc Библиотека webshop.dll –называется ISAPI приложением (ISAPI – Internet Services API). Именно обзору интерфейса ISAPI будет посвящена следующая глава. ISAPI приложения
• Исходный код ISAPI модуля на языке Delphi 4
• '; 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 Gr10 then Result := Result + Format('TхЁэєЄ№ё ъ юуыртыхэш¦', [Request.ScriptName, 0,0, Kind]); except on E:EDBEngineError do begin Result := Result + '+°шсър BDE'+''; for i:=0 to E.ErrorCount -1 do Result := Result + E.Errors[i].Message + ''; end; end; end; Result := Result+'¦юшёъ' +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 (gn10) 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(''); 2: Header.Add(''); end;//case Header.Add('¦рЄхуюЁш : '+FieldByName('GroupName').AsString+''); Close;// Footer.Clear; if OperKind=1 then Footer.Add('TЁюъ юяырЄv'); if OperKind>0 then begin Footer.Add('' +''); end; Footer.Add(Format('TхЁэєЄ№ё ъ юуыртыхэш¦', [Request.ScriptName, gn1,0, OperKind])); end;//with storeqtp end;//with groupquery Response.Content := StoreQTP.Content; if Assigned(OrderCol) then OrderCol.Free; end; //generating tableend; 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 (CellRow0) then if (CellRow mod 2=0) then BgColor:='silver' else BgColor:='Gray'; if (OperKind>0) and (CellColumn=0) and (CellRow>0) then begin CellData := '' +CellData; end; if (OperKind>0) and (CellColumn=StoreQTP.Columns.Count-1) and (CellRow>0) then begin 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+'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.
• Библиографический список.