#!perl/perl.exe
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Конференции</TITLE></HEAD>\n";
print "<BODY><CENTER><h2>Гомельские конференции</h2>\n";
print "<FORM NAME=\"Query\" METHOD=POST "
print "ACTION=\"reg.cgi\">\n";
print "<SELECT NAME=cname size=7>\n";
open(FILE, "confs.txt") || die "cannot open confs.txt";
while(<FILE>){
print "<option>$_\n";
}
close(FILE);
print "</SELECT><P>\n<INPUT TYPE=SUBMIT"
print " VALUE=\"Список мероприятий\">\n";
print "</FORM>\n";
print "</CENTER></BODY>\n";
print "</HTML>\n";
#!perl/perl.exe
print "Content-type: text/html\n\n";
print <<HTML;
<HTML><HEAD><TITLE>Конференции</TITLE></HEAD>
<BODY> <CENTER><h2>Гомельские конференции</h2>
<FORM NAME="Query" METHOD=POST ACTION="reg.cgi">
<SELECT NAME=cname size=7>
HTML
open(FILE, "confs.txt") || die "cannot open confs.txt";
while(<FILE>){
print "<option>$_";
}
close(FILE);
print <<HTML;
</SELECT><P><INPUT TYPE=SUBMIT
VALUE="Список мероприятий">
</FORM>
</CENTER> </BODY> </HTML>
HTML
<HTML><HEAD><TITLE>Конференции</TITLE> </HEAD>
<BODY> <CENTER>
<h1>Гомельские конференции</h1>
<FORM NAME="Query" METHOD="POST" ACTION="reg-txt.php">
<SELECT NAME="cname" size="7">
<?
$ff = fopen("confs.txt", "r") or die("cannot open confs.txt");
while (!feof($ff)) {
$line = fgets($ff, 80);
print("<option>$line\n");
}
fclose($ff);
?>
</SELECT>
<P><INPUT TYPE="SUBMIT" VALUE="Список мероприятий">
</FORM>
</CENTER> </BODY> </HTML>
EGPCS-переменные: Environment, GET, POST, Cookie, Server.
Если булевская переменная track_vars в конфигурационном файле php.ini включена, то доступ к EGPCS-переменным осуществляется через ассоциативные массивы $_ENV, $_GET, $_POST, $_COOKIE и $_SERVER.
Если track_vars==off, то сервер для каждой переменной $_ARR[’var’] создает также переменную $var, где _ARR – имя любого EGPCS-массива.
print ”Method = $_ENV['REQUEST_METHOD']<br>”;
print ”Server = $_ENV['SERVER_NAME']”;
print ”Method = $REQUEST_METHOD<br>”;
print ”Server = $SERVER_NAME”;
<HTML> <HEAD> <TITLE>Программа конференции</TITLE>
</HEAD><body><CENTER>
<?
print "<h2>".$_POST['cname']."</h2>";
//print "<h2>$cname</h2>";
//print "<h2>".$_REQUEST['cname']."</h2>";
?>
<FORM NAME="Reg" METHOD=GET" ACTION="confirm-txt.php">
<P>Ваше имя <INPUT TYPE=Text NAME="Name">
<P>e-mail <INPUT TYPE=Text NAME="email">
<INPUT TYPE=Hidden NAME=cname Value=
<? print $_POST['cname']; ?>
<? /* print $_REQUEST['cname']; */ ?>
<? /* print "$cname"; */ ?>
>
<P><INPUT TYPE=SUBMIT VALUE="Регистрация"> </FORM>
<P><A HREF="conf.cgi">ВОЗВРАТ к списку конференций</A>
</CENTER></BODY></HTML>
<HTML><HEAD><TITLE>Подтверждение</TITLE>
</HEAD>
<BODY> <CENTER>
<?
print "<H2>Уважаемый ".$_GET['Name']."</H2>";
//print "<H2>Уважаемый $Name</H2>";
//print "<H2>Уважаемый ".$_REQUEST['Name']."</H2>";
print "<P>Вы зарегистрированы на конференцию";
print "<i>".$_GET['cname']."</i>";
//print "<i>$cname</i>";
//print "<i>".$_REQUEST['cname']."</i>";
mail($_GET['email'], "Регистрация на конференцию",
"Уважаемый ".$_GET['Name']."! \nБлагодарим Вас за решение принять участие в конференции ".$_GET['cname']); mail("confreg@gsu.unibel.by", "Регистрация", $_GET['Name']."\n".$_GET['email']."\n".$_GET['cname']);
?>
<P><A HREF="conf-txt.php">ВОЗВРАТ на главную</A>
</CENTER></BODY></HTML>
int mysql_connect(string host,string user,string password);
//возвращает сonn_id
int mysql_select_db(string database_name, int сonn_id);
int mysql_query(string query, int сonn_id);
//возвращает id результата (result) или 0 при ошибке
int mysql_num_rows(int result);
int mysql_result(int result, int i, int column);
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.