Курсовая работа: Проектирование информационных систем на базе MySQL и Internet

for($i=0;$i<$rows;$i++)

{

($bakans,$knkrs,$ed,$Cpc,$Crok)=$sth->fetchrow_array;

$i++;

print "<tr>

<td ALIGN=\"center\">$i</td>";

$i--;

print"<td>$bakans</td>

<td><center>$knkrs</center></td>

<TD><center><INPUT type=\"radio\" name=\"vibor\" value=\"vib$i\"></center></TD>

</tr>";

}

$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;