Разработка пользовательского интерфейса к БД в СУБД MySQL. Пономарев А.А. - 27 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Рисунок 4 - Структура таблицы Messages
Содержимое файла testform.pl
#!/usr/local/perl/bin/perl
use DBI;
require "cgi-lib.pl";
&ReadParse(*input);
# Имя пользователя БД
$opt_user="root";
# Пароль доступа к БД
$opt_password="";
# Имя базы
$database="guest";
$url="http://localhost/db/form.html";
$cgi="http://localhost/cgi-bin/db/result.pl ";
# Вывод http-заголовка
print "Content-type: text/html\n\n";
# Подключение к базе
$dbh = DBI->connect("DBI:mysql:database=$database",
$opt_user,$opt_password) ||
die "Can't connect: $DBI::errstr\n";
$query="INSERT INTO messages (user_name, user_email,
user_message) values
('$input{'user_name'}','$input{'user_email'}',’$input{'u
ser_messages'}’)";
# Подготовка
$sth = $dbh->prepare($query);
$sth->execute();
# Отключение от базы
$rc = $sth->finish;
$rc = $dbh->disconnect;
print "<br><a href='$url'>Вернуться на страницу
форм</a><br>";
print "<br><a href='$cgi'>Просмотреть
сообщения</a><br>";
27

Страницы