Читать реферат по информатике, вычислительной технике, телекоммуникациям: "Проектирование информационных систем на базе MySQL и Internet" Страница 2

(Назад) (Cкачать работу)

Kontinental-HH.htm

ОАО "Континенталь-НН" ®

Отдел кадров

ПРОФЕССИОНАЛЬНЫЙ ПОДХОД К ЧЕЛОВЕЧЕСКИМ РЕСУРСАМ

Введите пароль для доступа (Временно пароль не используется)

Файл list.cgi – исполняемая программа.

Выводит список вакансий и конкурс на них на основе данных таблицы t1. Имеет 1 кнопку:

- “Заполнить анкету" – запускает скрипт anketa.cgi и передает в него данные о выбранной вакансии.

list.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Список Вакансий для пользователя");

print qq{};

print "Перечень вакансий";

print "Выберите вакансию и заполните анкету";

print "";

$dbh=DBI->connect("dbi:mysql:konti");

$sth=$dbh->prepare("SELECT * FROM t1;");

$rows=$sth->execute();

print "";

print "

print qq{

Вакансия Конкурс на место

Вашвыбор

for($i=0;$ifetchrow_array;

$i++;

print "

$i--;

print"

}

$sth->finish();

$dbh->disconnect();

print"

print "";

print "";

print "";

print "Анкеты претендентов будут рассмотрены 25 января 2003г.";

print "";

print end_html();

Файл anketa.cgi – исполняемая программа.

Выводит перечень основных требований к кандидату на вакансию на основе данных таблицы t1 и предлагает претенденту заполнить анкетные данные о себе.

Имеет 2 кнопки:

“Отправить" – запускает скрипт itog.cgi и передает в него анкетные данные претендента;"Очистить форму" – стирает из формы ошибочно введенные анкетные данные.

anketa.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Анкета");

print qq{};

my $pas=param("vibor");

$var=$pas;

$var=~ s/\D+//;

if ($pas eq "") {print qq{

 Вы забыли выбрать вакансию!

print "";

print "

print "

print "

print "

goto quit;

}

$dbh=DBI->connect("dbi:mysql:konti");

$sth=$dbh->prepare("SELECT * FROM t1;");

$rows=$sth->execute();

print "Заполните анкетные данные";

print qq{

};

print "Основные требования к кандидату";

for($i=0;$ifetchrow_array;

if ($i==$var)

{

print "

print "

print "

print "

print "

}

}

print "

$sth->finish();

$dbh->disconnect();

print "";

print "

print "

print "

print "

print "

Похожие работы