Быстрый поиск

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

print "<td><center><INPUT type=\"submit\" value=\"Добавить\"></center\></td></tr></p>";

print "</table></center>";

print "</FORM>";

$dbh=DBI->connect("dbi:mysql:konti");

$sth=$dbh->prepare("SELECT * FROM t1;");

$rows=$sth->execute();

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

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

print qq{<tr ALIGN="center"><th>&nbsp№&nbsp</th>

<th>Вакансия</th>

<th>Пометить<br>на удаление</th></font></tr>};

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

{

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

$i++;

print"<tr>

<td>$bakans</td>

</tr>";

$i--;

}

$sth->finish();

$dbh->disconnect();

print "</table></center>";

print "<br>";

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

print "<tr><td><center><INPUT type=\"submit\" value=\"Удалить\"></center\></td>";

print "</FORM>";

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

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

print "</FORM>";

print "</table></center>";

}

else

{

print h1("Неправильный пароль!!!");

}

print end_html();

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

Выводит список анкет на основе данных таблицы t2 и предлагает администратору удалить наименее перспективные.

Имеет 2 кнопки:

- “Удалить" - запускает скрипт ankdel.cgi;

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

и 2 ссылки:

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

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

BDankets.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 "&nbsp &nbsp &nbsp &nbsp";

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">Список анкет &nbsp&nbsp&nbsp</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>&nbsp№&nbsp</th>

<th>Фамилия Имя Отчество</th>

<th>Образование</th>

<th>Специальность</th>

<th>Срок работы по спец-ти</th>

<th>Адрес</th>

<th>Вакансия</th>

<th>Пометить<br>на удаление</th></font></tr>};

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

{

($fio,$eda,$cpca,$croka,$adress,$vak)=$sth->fetchrow_array;

$i++;

print"<tr>

<td><center>$croka</center></td>

<td><center>$adress</center></td>

</tr>";

$i--;

}

$sth->finish();

$dbh->disconnect();

print "</table></center>";

print "<br>";

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

print "<tr><td><center><INPUT type=\"submit\" value=\"Удалить\"></center\></td>";

print "</FORM>";

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

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

print "</FORM>";

print "</table></center>";

print end_html();

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

Предлагает администратору форму для внесения данных для новой вакансии

Имеет 2 кнопки:

- “Отправить данные" - запускает скрипт Dob.cgi и передает в него данные новой вакансии;

- “Очистить форму" - стирает из формы ошибочно введенные данные.

Addvakan.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Добавление Вакансии");

print qq{<body bgcolor="#faf1d8">};

print "<center><h1>Заполните данные для новой вакансии</h1></center>";

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

print "<center><table>";

print "<TR><TD>Должность</TD><TD><input name=\"profv\"></TD></TR>";

print "<TR><TD>Образование</TD>

<OPTION value=\"высшее\" selected>высшее

<OPTION value=\"нез/высшее\">нез/высшее

<OPTION value=\"ср. техническое\">ср. техническое

<OPTION value=\"ср. специальное\">ср. специальное

<OPTION value=\"среднее\">среднее

</SELECT>

</TD></TR>";

print "<TR><TD>Специальность</TD><TD><input name=\"cpcv\"></TD></TR>";

print "<TR><TD>Стаж работы по специальности, лет&nbsp</TD><TD><input name=\"crokv\"></TD></TR>";

print "<TR><TD><BR></TD></TR>";

print "<TR><TD><input type=\"submit\" value=\"Отправить данные\"></TD>

<TD><INPUT type=\"reset\" value=\"Очистить форму\"></TD></TR>";

print "</table></center>";

print "<br>";

print "</form>";

print end_html();

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

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

Имеет 2 кнопки:

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

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

и 2 ссылки:

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

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

Dob.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Добавление Вакансии");

print qq{<body bgcolor="#faf1d8">};