Курсовая работа: Проектирование информационных систем на базе MySQL и Internet
<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();
printstart_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 "       ";
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");