Курсовая работа: Проектирование информационных систем на базе MySQL и Internet
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\">";
print "<center><INPUT type=\"submit\" value=\"Назад\"></center\>";
print "</FORM></td>";
print "<td><FORM action=\"http://myserver/cgi-bin/Konti.bat\">";
print "<center><INPUT type=\"submit\" value=\"Наглавную\"></center\>";
print "</FORM></td></tr>";
print "</table></center>";
goto quit;
}
$dbh=DBI->connect("dbi:mysql:konti");
$sth=$dbh->prepare("SELECT * FROM t1;");
$rows=$sth->execute();
print "<center><h1>Заполнитеанкетныеданные</h1></center>";
print qq{<p ALIGN="center"><font size="5">};
print "<center><u>Основные требования к кандидату</u></center>";
for($i=0;$i<$var+1;$i++)
{
($bakans,$knkrs,$ed,$Cpc,$Crok)=$sth->fetchrow_array;
if ($i==$var)
{