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

 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>";