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

Falk0ner, вс, 06/07/2008 - 15:35.

Создание CGI приложений

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

Dr.Bob's Guestbook

Comments:

<INPUT TYPE=SUBMIT VALUE="Send Comments to Dr.Bob">
 </FORM>
 </BODY>
 </HTML>
Теперь консольное (Дельфи) приложение: 
<div class="geshifilter"> 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.</div>

Примечание, для того, что бы упростить, мы не используем базу данных для хранения комментариев. Иначе это потребовало установки BDE на web сервере. 
Интернет решения от доктора Боба (<a href="http://www.drbob42.com" title="http://www.drbob42.com">http://www.drbob42.com</a>) 
(c) 2000, Анатолий Подгорецкий, перевод на русский язык (<a href="http://nps.vnet.ee/ftp" title="http://nps.vnet.ee/ftp">http://nps.vnet.ee/ftp</a>) 
</div>
 </div><div id="comments"> <div class="box">
 <h2 class="title">Отправить комментарий</h2> <div class="content"><form action="/comment/reply/2883" accept-charset="UTF-8" method="post" id="comment-form">
<div><div class="form-item">
 <textarea cols="60" rows="7" name="comment" id="edit-comment" class="form-textarea resizable required editor-textarea">

Адреса страниц и электронной почты автоматически преобразуются в ссылки.
Для цитирования используйте тег [quote]
Use  to create page breaks.
You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>. Beside the tag style "<foo>" it is also possible to use "[foo]".
You can use BBCode tags in the text, URLs will automatically be converted to links.

Проверка

Антиспам проверка

Введите символы с изображения: *

DelphiSite

Наиболее читаемое

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

Dr.Bob's Guestbook

Похожие материалы

Быстрая навигация в FAQ

Новые файлы