Курсовая работа: Проектирование информационных систем на базе MySQL и Internet
Выводит список анкет на основе данных таблицы t2 и предлагает администратору удалить наименее перспективные.
Имеет 2 кнопки:
- “Удалить" - запускает скрипт ankdel.cgi;
- “На главную" - запускает скрипт Konti.cgi;
и 2 ссылки:
- “Список вакансий" - запускает скрипт BDvakans.cgi;
- “Список анкет" - запускает скрипт BDankets.cgi.
BD anket s.cgi
use CGI qw(:standard);
use DBI;
print header();
print start_html("СписокАнкет");
print qq{<body bgcolor="#faf1d8">};
my $pass=param("111");
print "<center><h1>Базаданных</h1></center>";
print "<center>";
print qq{<A href="http://myserver/cgi-bin/BDvakans.bat"><font size="5">Списоквакансий</A>};
print "       ";
print qq{<A href="http://myserver/cgi-bin/BDankets.bat">Списоканкет</font></A>};
print "</center>";
print qq{<p ALIGN="center"><font size="5"><strong><font color="#800000">Списоканкет    </font></strong></font>};
$dbh=DBI->connect("dbi:mysql:konti");
$sth=$dbh->prepare("SELECT * FROM t2;");
$rows=$sth->execute();
print "<form action=\"http://myserver/cgi-bin/ankdel.bat\">";
print "<center><table border=1>";
print qq{<tr ALIGN="center"><th> № </th>
<th>Фамилия Имя Отчество</th>
<th>Образование</th>