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

my $crokv=param("crokv");

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

if ($profv ne "")

{

$sql=qq{insert into t1(prof, knkrs, ed, cpc, crok) values ('$profv',0,'$edv','$cpcv','$crokv');};

$dbh->do($sql);

print "<br>";

$sth->finish();

$dbh->disconnect();

}

else {print qq{<br><center><font size="4">Вы не ввели данные. Повторите ввод.</font></center><br>};}

print "<center><table border=0>";

print "<tr><td><FORM action=\"http://myserver/cgi-bin/Addvakan.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>";

print end_html();

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

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

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

- “Назад" - запускает скрипт Konti.cgi;

и 2 ссылки:

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

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

vakdel.cgi

use CGI qw(:standard);