Реферат: Проектирование информационных систем на базе MySQL и Internet
$sth->finish();
$dbh->disconnect();
print"</table></center>";
print "<br>";
print "<center><INPUT type=\"submit\" value=\"Заполнить анкету\"></center\>";
print "<br>";
print "<center>Анкеты претендентов будут рассмотрены 25 января 2003г.</center>";
print "</FORM>";
print end_html();
Файл anketa.cgi – исполняемая программа.
Выводит перечень основных требований к кандидату на вакансию на основе данных таблицы t1 и предлагает претенденту заполнить анкетные данные о себе.
Имеет 2 кнопки:
- “Отправить" – запускает скрипт itog.cgi и передает в него анкетные данные претендента;
- "Очистить форму" – стирает из формы ошибочно введенные анкетные данные.
anketa.cgi
use CGI qw(:standard);
use DBI;
print header();
print start_html("Анкета");
print qq{<body bgcolor="#faf1d8">};
my $pas=param("vibor");
$var=$pas;
$var=~ s/\D+//;
if ($pas eq "") {print qq{<p ALIGN="center"><font size="5"><strong><font color="#800000">
<br> Вы забыли выбрать вакансию!</font></strong></font></p>};
print "<br>";
print "<center><table border=0>";
print "<tr><td><FORM action=\"http://myserver/cgi-bin/list.bat\">";