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

Swart Bob

writeln('<HR>');

writeln('');

writeln('<H3>The following books have been found for you:</h3>');

writeln('<TABLE BORDER>');

writeln('<TR>');

writeln('<TH><B>Hits</B></TH>');

writeln('<TH><B>Title</B></TH>');

writeln('<TH><B>Author</B></TH>');

writeln('<TH><B>Publisher</B></TH>');

writeln('<TH><B>ISBN</B></TH>');

writeln('<TH><B>Level</B></TH>');

writeln('<TH>Con</TH>');

writeln('<TH>Wri</TH>');

writeln('<TH>Val</TH>');

writeln('<TH><B>Tot</B></TH>');

writeln('</TR>');

После

того как заголовок написан, самое время выводить сами записи. Я не хочу сортировать их по рейтингу от 5 до 1, так что я просто иду по списку книг и печатаю каждую со своим рейтингом. Этот путь, потому что я знаю, что книги уже отсортированы по рейтингу в основной базе delbooks.db (которая отсортирована по уровню и рейтингу). Обычно книги в верху списка уже лучший ответ на заданный вопрос.

if DataRec.Delphi2 then

begin

for Hits := 5 downto 1 do

begin

for i:=1 to Books32 do if Result32[i] = Hits then

begin

writeln('<TR>');

writeln('<TD>',Roman[Hits],'</TD>');

writeln('<TD><A href="#">',Book32[i].Title,'</A></TD>');

writeln('<TD>',Book32[i].Author,'</TD>');

writeln('<TD>',Book32[i].Publisher,'</TD>');

writeln('<TD>',Book32[i].ISBN,'</TD>');

writeln('<TD>',Level[Book32[i].Level],'</TD>');

writeln('<TD>',Book32[i].TechnicalContentsQuality,'</TD>');

writeln('<TD>',Book32[i].QualityOfWriting,'</TD>');

writeln('<TD>',Book32[i].ValueForMoney,'</TD>');

writeln('<TD><B>',Book32[i].OverallAssessment,'</B></TD>');

writeln('</TR>')

end

end;

if DataRec.Delphi1 then writeln('<TR></TR>')

end;

if DataRec.Delphi1 then

begin

for Hits := 5 downto 1 do

begin

for i:=1 to Books16 do if Result16[i] = Hits then

begin

writeln('<TR>');

writeln('<TD>',Roman[Hits],'</TD>');

writeln('<TD><A href="#">',Book16[i].Title,'</A></TD>');

writeln('<TD>',Book16[i].Author,'</TD>');

writeln('<TD>',Book16[i].Publisher,'</TD>');

writeln('<TD>',Book16[i].ISBN,'</TD>');

writeln('<TD>',Level[Book16[i].Level],'</TD>');

writeln('<TD>',Book16[i].TechnicalContentsQuality,'</TD>');

writeln('<TD>',Book16[i].QualityOfWriting,'</TD>');

writeln('<TD>',Book16[i].ValueForMoney,'</TD>');

writeln('<TD><B>',Book16[i].OverallAssessment,'</B></TD>');

writeln('</TR>')

end

end

end;

writeln('</TABLE>');

writeln('<HR>');

writeln('<A href="#">Dr.Bob''s Delphi Clinic</A>');

writeln('</BODY>');

writeln('</HTML>');

writeln;

Free

end

2.2.11.

Отладка CGI

Страницу HTML с результатом, сгенерированную по запросу мы модем увидеть выполнив CGI приложение. Для этого требуется (персональный) Web сервер. По этому я написал небольшую программу отладки, используя Delphi 2.01 и NetManage HTML control: