unitasp1.pas

Delphi6分布式开发例程12 )

unit Unitasp1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, AspTlb, asp_TLB, StdVcl;

type
  Tasp1 = class(TASPObject, Iasp1)
  protected
    procedure OnEndPage; safecall;
    procedure OnStartPage(const AScriptingContext: IUnknown); safecall;
    procedure HandleHttpRequest; safecall;
  end;

implementation

uses ComServ;

procedure Tasp1.OnEndPage;
begin
  inherited OnEndPage;
end;

procedure Tasp1.OnStartPage(const AScriptingContext: IUnknown);
begin
  inherited OnStartPage(AScriptingContext);
end;

procedure Tasp1.HandleHttpRequest;
var
  iCount: Integer;
begin
  Response.Write('<P>your name :');
  Response.Write(Request.Form.Item['txtName']);
  Response.Write('</P>');

  Response.Write('<P>language : ');
  if (Request.Form.Item['cbC'].Count > 0) then
    Response.Write('C/C++');

  if (Request.Form.Item['cbOP'].Count > 0) then
    Response.Write(', Object Pascal');

  if (Request.Form.Item['cbJava'].Count > 0)  then
    Response.Write(', Java');

  if (Request.Form.Item['cbVB'].Count > 0)  then
    Response.Write(', VB(Oops)');

  if (Request.Form.Item['cbCobol'].Count > 0)  then
    Response.Write(', Cobol(you type fast)');

  if (Request.Form.Item['cbPB'].Count > 0)  then
    Response.Write(', PowerBuilder(Oh! May God Bless You!)');

  Response.Write('<P>you select the book :');
  Response.Write(Request.Form.Item['cbBooks']);
  Response.Write('</P>');
end;

initialization
  TAutoObjectFactory.Create(ComServer, Tasp1, Class_asp1,
    ciMultiInstance, tmApartment);
end.