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

print "<TR><TD>Фамилия имя отчество</TD><TD><input name=\"fio\"></TD></TR>";

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

     <TD><SELECT name=\"ed\">

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

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

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

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

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

           </SELECT>

     </TD></TR>";

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

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

print "<TR><TD>Адрес</TD><TD><input name=\"adress\"></TD></TR>";

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

print qq{<INPUT type="hidden" name="vib" value=$pas>};

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

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

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

print "</form>";

quit:

print end_html();

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

Проверяет введенные анкетные данные на соответствие основным требованиям к претенденту, при выполнении которых заносит их в таблицу t2 и увеличивает значение конкурса на выбранную вакансию в таблице t1, в противном случае выводит мотивированное сообщение об отказе в принятии анкеты.

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

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

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

itog.cgi

use CGI qw(:standard);

use DBI;