|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alex Shevchuk 2:5031/50.4 06 May 2001 18:16:58
To : All
Subject : Оцените правильность, плиз...
--------------------------------------------------------------------------------
Сабж, собственно. Также интересует, как оно будет работать при одновременном
обращении нескольких человек.
_*/===/*_ _Hу, типа, начало файла_ *mysql.cgi* _*/===/*_
#!/Perl/5.6.0/bin/MSWin32-x86/perl.exe -w
use CGI;
use CGI::Carp;
use DBI;
use strict;
my $query = new CGI;
my $database = "test";
my $db_server = "localhost";
my $user = "Alex";
my $password = "";
my $newname = "";
my $newemail = "";
my $dbh;
my $sth;
my $rc;
if ($query->param('action'))
{
&set_variables;
&db_connect;
&add_data;
&print_page_start;
&print_add_form;
&print_data;
&print_page_end;
&db_cleanup;
}
else
{
&db_connect;
&print_page_start;
&print_add_form;
&print_data;
&print_page_end;
&db_cleanup;
}
sub set_variables
{
$newname = $query->param('name');
$newemail = $query->param('email');
}
sub add_data
{
if (($newname ne '') && ($newemail ne ''))
{
$sth = $dbh->prepare("insert into table1 values (\"$newname\",
\"$newemail\");") or die "Couldn't prepare the query: ", $sth->errstr, "\n";
$sth->execute or die "Couldn't execute select statement: ", $sth->errstr,
"\n";
}
}
sub db_connect
{
$dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
}
sub db_cleanup
{
$rc = $sth->finish;
$rc = $dbh->disconnect;
}
sub print_add_form
{
print "<p><hr>\n";
print "<b>Добавление записи:</b><br>\n";
print "<form action=\"mysql.cgi\">\n";
print "<input type=\"hidden\" name=\"action\" value=\"new\">\n";
print "Имя : <input type=\"text\" name=\"name\" value=\"\"
size=\"30\"><br>\n";
print "E-Mail : <input type=\"text\" name=\"email\" value=\"\"
size=\"30\"><br>\n";
print "<input type=\"submit\" value=\"Дюсртшть\">\n";
print "</form>\n";
print "</p><hr>\n";
}
sub print_data
{
my @row = ();
my ($name, $email);
$sth = $dbh->prepare("select * from table1;") or die "Couldn't prepare the
query: ", $sth->errstr, "\n";
$sth->execute or die "Couldn't execute select statement: ", $sth->errstr,
"\n";
print "<center>\n<table border=1 cellpadding=4>\n";
print "<tr>\n<th>Имя</th>\n<th>e-mail</th>\n</tr>\n";
while (@row = $sth->fetchrow_array)
{
($name, $email) = @row;
print "<tr><td>$name</td><td>$email</td></tr>\n";
}
print "</table>\n</center>\n";
}
sub print_page_start
{
print $query->header(-type=>'text/html',-charset=>'WINDOWS-1251');
print "<html>\n<head>\n<title>MySQL</title>\n</head>\n";
print "<body>\n<h1>MySQL</h1>\n";
}
sub print_page_end
{
print "</body>\n</html>\n";
}
_*/=====/*_ _Э-э... Конец файла_ *mysql.cgi* _*/=====/*_
Best regards, Alex.
--- GoldED+/386 1.1.4.3
* Origin: Тот, кто храпит, всегда засыпает первым. (2:5031/50.4)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Оцените правильность, плиз... |
Alex Shevchuk |
06 May 2001 18:16:58 |
 Оцените правильность, плиз... |
Dmitry Ochnev |
06 May 2001 23:38:12 |
  Оцените правильность, плиз... |
Alex Shevchuk |
12 May 2001 19:49:55 |
 Оцените правильность, плиз... |
Dmitry Ochnev |
13 May 2001 12:30:06 |
|
Re: Оцените правильность, плиз... |
Pavel V. Ammosov |
07 May 2001 03:39:52 |
|
Re: Оцените правильность, плиз... |
Yuri Khachaturian |
07 May 2001 13:56:43 |
 Оцените правильность, плиз... |
Oleg N. Kotenko |
09 May 2001 15:41:21 |
|
Re: Оцените правильность, плиз... |
Ruslan Bondarev |
07 May 2001 22:08:31 |
|
Оцените правильность, плиз... |
Alex Shevchuk |
12 May 2001 20:02:08 |
|
Re: Оцените правильность, плиз... |
Artem Chuprina |
13 May 2001 19:04:04 |
|
Оцените правильность, плиз... |
Alex Shevchuk |
15 May 2001 11:54:37 |
|
Re: Оцените правильность, плиз... |
Pavel V. Ammosov |
15 May 2001 00:35:38 |
|
Оцените правильность, плиз... |
Alex Shevchuk |
15 May 2001 11:49:45 |
|
Re: Оцените правильность, плиз... |
Artem Chuprina |
07 May 2001 12:18:36 |
|
Оцените правильность, плиз... |
Alex Shevchuk |
12 May 2001 20:21:47 |
|
|
