HTML и базы данных

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



есто программирования в публикации данных таково. Приемом и обработкой запросов от клиентов занимается 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(,

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

CommonEnd := ;

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(,

[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 := ;

with GroupQuery do

begin

if Gr1=0 then

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

else

0),[Gr1]);"> 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(,

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

except

on E:EDBEngineError do

begin

Result := Result + +шсър BDE+;

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

;">

s