Проектирование Интернет приложений. Тузовский А.Ф. - 77 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

77
// Пример простой CGI программы:
#include "stdafx.h"
#include "cgi1.h"
#include <stdlib.h>
int main(int argc, TCHAR* argv[ ], TCHAR* envp[ ]) {
printf("Content-Type: text/html\n\n"); printf("<HTML>\n");
printf("<HEAD> <TITLE>Пример CGI-программы </TITLE></HEAD>\n");
printf("<BODY>"\n); printf("Пример CGI-программы на С\n");
int i=0;
while(envp[i]) {
// перечать параметров переданных программе в массиве envp
printf("<p>значение параметра %s </p>",envp[i]);
i++;
}
printf("</BODY>\n"); printf("</HTML>\n);
return 0;
}
Рис. 3.1. Пример простой CGI программы на языке С, показывающий в HTML
документе передаваемые ей параметры
Пример скрипта на языке Perl, формирующего HTML страницу с
перечнем переданных ей параметров, показан на рис. 3.2.
#! /usr/local/bin/perl
sub ReadFormFields { . . . }
sub PrintFormFields {
my $fieldsRef = shift;
my $key, $value;
print "Content-Type: text/html\n\n" ;
print "<html>\n<head><title>hello</title></head>\n" ;
print "<body>\n" ;
foreach $key (keys(%$fieldsRef) ) {
$value = $$fieldsRef{ $key} ;
print " <h3>$key: $value</h3>\n";
}
print "</body>\n</html>\n";
}
&ReadFormFields( \%fields) ;
&PrintFormFields(\%fields) ;
exit 0;
Рис. 3.2. Пример скрипта на языке Perl, формирующий HTML страницу с
переданными параметрами формы
Недостатки технологии CGI
Технология CGI является достаточно простым способом динами-
чески формировать информацию в web-сети, но она имеет существен-

Страницы