Курсовая работа: Проектирование информационных систем на базе MySQL и Internet
- “Список вакансий" - запускает скрипт 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 "       ";
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">Список вакансий    </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> № </th>