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

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

<center><input type="submit" value="База данных">

<input type="password" name="111" ></center>

<center>Введите пароль для доступа <br><font size="2">(Временно пароль не используется)</font></center>

</form>

</body>

</html>

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

Выводит список вакансий и конкурс на них на основе данных таблицы t1. Имеет 1 кнопку:

- “Заполнить анкету" – запускает скрипт anketa.cgi и передает в него данные о выбранной вакансии.

list.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Список Вакансий для пользователя");

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

print "<center><h1>Перечень вакансий</h1></center>";

print "<center>Выберите вакансию и заполните анкету</center>";

print "<br>";

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

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

$rows=$sth->execute();

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

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

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

<th>Вакансия</th><th>&nbspКонкурс&nbsp<br>на место</th>

<th>Ваш<br>выбор</th></font></tr>};

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

{

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

$i++;

print "<tr>

<td ALIGN="center">$i</td>";

$i--;

print"<td>$bakans</td>

<td><center>$knkrs</center></td>

<TD><center><INPUT type="radio" name="vibor" value="vib$i"></center></TD>

</tr>";

}

$sth->finish();

$dbh->disconnect();

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

print "<br>";

print "<center><INPUT type="submit" value="Заполнить анкету"></center>";

print "<br>";

print "<center>Анкеты претендентов будут рассмотрены 25 января 2003г.</center>";

print "</FORM>";

print end_html();

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

Выводит перечень основных требований к кандидату на вакансию на основе данных таблицы t1 и предлагает претенденту заполнить анкетные данные о себе.

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

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

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

anketa.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Анкета");

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

my $pas=param("vibor");

$var=$pas;

$var=~ s/D+//;

if ($pas eq "") {print qq{<p ALIGN="center"><font size="5"><strong><font color="#800000">

<br>&nbspВы забыли выбрать вакансию!</font></strong></font></p>};

print "<br>";

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

print "<tr><td><FORM action="http://myserver/cgi-bin/list.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>";

goto quit;

}

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

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

$rows=$sth->execute();

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

print qq{<p ALIGN="center"><font size="5">};

print "<center><u>Основные требования к кандидату</u></center>";

for($i=0;$i<$var+1;$i++)

Реферат опубликован: 7/01/2007