Курсовая работа: Проектирование информационных систем на базе 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>&nbspВызабыливыбратьвакансию!</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)

{

К-во Просмотров: 663
Бесплатно скачать Курсовая работа: Проектирование информационных систем на базе MySQL и Internet