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

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

}

}

$knkrs=$knkrs+1;

$sql="update t1 set knkrs='$knkrs' where prof='$bakans';";

$dbh->do($sql);

$sth->finish();

if ($flag==0) {

print qq{Уважаемый, $fio, Ваша анкета принята для участия в конкурсе.<br><br>Желаем успеха!};

$sql="INSERT INTO t2(fio,eda,cpca,croka,adress,vak)values('$fio','$eda','$cpca','$croka','$adress','$bakans')";

$dbh->do($sql);

}

else {

print qq{Уважаемый, $fio, в базе данных уже имеется анкета на Ваше имя, фамилию, отчество. Если Вы хотите заполнить новую анкету - измените свои ФИО дополнив, например, цифровым символом ($fio-2).<br><br>};

}

}

}

}

print qq{</font></strong></font></p>};

$sth->finish();

$dbh->disconnect();

print "<br>";

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

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

print qq{<INPUT type="hidden" name="vibor" value="vibor$var">};

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();

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

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

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

- “Добавить" - запускает скрипт Addvakan.cgi;

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

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

и 2 ссылки:

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

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

BDvakans.cgi

use CGI qw(:standard);

use DBI;

print header();

print start_html("Список Вакансий");

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

my $pass=param("111");

if (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 "<FORM action="http://myserver/cgi-bin/Addvakan.bat">";

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

print qq{<tr><td><p ALIGN="center"><font size="5"><strong><font color="#800000">Список вакансий &nbsp&nbsp&nbsp</font></strong></font></td>};

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 ALIGN="center">$i</td>

<td>$bakans</td>

<TD><center><INPUT type="checkbox" name="vdel$i" value="vdel$i"></center></TD>

</tr>";

$i--;

}

$sth->finish();

$dbh->disconnect();

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

print "<br>";

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

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