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

 $rows=$sth->execute();

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

 { $i++;

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

   my $var=param("vdel$i");

   $var=~ s/\D+//;

   if ($i==$var)

     {

     $sql="delete from t1 where prof=\"$bakans\";";

     $dbh->do($sql);

     }

   $i--;

 }

 $sth->finish();

 $dbh->disconnect();

 print "<br>";

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

 print "<center><INPUT type=\"submit\" value=\"На главную\"></center\>";

 print "</FORM>";

 print end_html();

Файл ankdel.cgi– исполняемая программа.

Служебная программа для удаления анкеты из таблицы t2 и уменьшения значения конкурса на вакансию в таблице t1.

Имеет 1 кнопку:

-     “На главную" - запускает скрипт Konti.cgi;

и 2 ссылки:

-     “Список вакансий" - запускает скрипт BDvakans.cgi;

-     “Список анкет" - запускает скрипт BDankets.cgi.

ankdel.cgi

use CGI qw(:standard);