Реферат: Проектирование информационных систем на базе MySQL и Internet
$dbh->disconnect();
print "<br>";
print "<center><table border=0>";
print "<tr><td><FORM action=\"http://myserver/cgi-bin/anketa.bat\">";
print qq{<INPUT type="hidden" name="vibor" value="vibor$var">};
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();
Файл BDvakans.cgi – исполняемая программа.
Выводит список вакансий на основе данных таблицы t1 и предлагает администратору добавить новые вакансии или удалить уже занятые.
Имеет 3 кнопки:
- “Добавить" - запускает скрипт Addvakan.cgi;
- “Удалить" - запускает скрипт vakdel.cgi;
- “На главную" - запускает скрипт Konti.cgi.;
и 2 ссылки:
- “Список вакансий" - запускает скрипт BDvakans.cgi;
- “Список анкет" - запускает скрипт BDankets.cgi.
BDvakans.cgi
use CGI qw(:standard);
use DBI;
print header();
print start_html("Список Вакансий");
print qq{<body bgcolor="#faf1d8">};
my $pass=param("111");
if (111)