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

 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)

 {

print "<center><table>";

print "<TR><TD>Образование</TD><TD>- $ed</TD></TR>";

print "<TR><TD>Специальность</TD><TD>- $Cpc</TD></TR>";

print "<TR><TD>Срок работы по специальности, лет&nbsp</TD><TD>- $Crok</TD></TR>";

print "</center></table>";

 }

}

print "</font></p>";

 $sth->finish();

 $dbh->disconnect();

print "<form action=\"http://myserver/cgi-bin/itog.bat\">";