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

Страница: 6/8

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">};

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>";

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

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

my $profv=param("profv");

my $edv=param("edv");

my $cpcv=param("cpcv");

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;