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

Previous  Top  Next

    
 

Подлинный 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>

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

Code:

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 сервере.

 

Интернет решения от доктора Боба (http://www.drbob42.com)

(c) 2000, Анатолий Подгорецкий, перевод на русский язык (http://nps.vnet.ee/ftp)

©Drkb::03439