Интернет-решения от доктора Боба


Гостевая книга


Подлинный CGI пример: приложение - гостевая книга (в котором спрашиваем имя и небольшой комментарий), всего лишь несколько строк на Дельфи.

Сначала CGI форма:

  <HTML>

  <BODY>

  <H2>Dr.Bob's Guestbook</H2>

  <FORM ACTION="http://www.drbob42.com/cgi-bin/guest.exe" METHOD=POST

  Name: <INPUT TYPE=text NAME=name<BR>

  Comments: <TEXTAREA COLS=42 LINES=4 NAME=comments>

  <P>

  <INPUT TYPE=SUBMIT VALUE="Send Comments to Dr.Bob">

  </FORM>

  </BODY>

  </HTML>

Теперь консольное (Дельфи) приложение:

  program CGI;

  {$I-}

  {$APPTYPE CONSOLE}

  uses

    DrBobCGI;

  var

    guest: Text;

    Str: String;

  begin

    Assign(guest,'guest'); // assuming that's the guestbook

    Append(guest);

    if

IOResult <> 0 then // open new guestbook

    begin

      Rewrite(guest);

      writeln(guest,'<HTML');

      writeln(guest,'<BODY')

    end;

    writeln(guest,'Date: ',DateTimeToStr(Now),'<BR');

    writeln(guest,'Name: ',Value('name'),'<BR');

    writeln(guest,'Comments: ',Value('comments'),'<HR');

    reset(guest);

    writeln('Content-type: text/html');

    writeln;

    while

not eof(guest) do // now output guestbook itself

    begin

      readln(guest,Str);

      writeln(Str)

    end;

    close(guest);

    writeln('</BODY');

    writeln('</HTML')

  end.


Примечание, для того, что бы упростить, мы не используем базу данных для хранения комментариев. Иначе это потребовало установки BDE на web сервере.




Начало  Назад  Вперед



Книжный магазин