|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yuriy Daybov 2:5029/42 08 Oct 2002 17:59:14
To : All
Subject : DBI
--------------------------------------------------------------------------------
°Приветствую тебя, глубокоуважаемый All! °
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
1. Установил DBI.
2. Установил DBI:ODBC.
3. Установил переменную окружения DBI_DSN=dbi:ODBC:1 (1 - dsn для моей базы
данных, прописанный в Data Sources -> User DSN).
4. Локально скрипт работает.
5. Выкладываю на виртуальную директорию IIS5 - скрипт не может подключиться
к БД (выполнение прекращается после строки print "Failed!").
Что нужно где прописать, чтобы скрипт увидел базу данных, находясь на
сервере?
=== Hачало Windows Clipboard ===
#!/usr/bin/perl -w
# Author: Yuriy A Daybov
# Created: 28.09.2002
# Modified: 05.10.2002
use DBI;
use CGI;
my $query = new CGI;
print $query->header;
### Write out the header for the page
print <<EOF;
<HTML>
<HEAD>
<TITLE>Список всех пользователей системы</TITLE>
</HEAD>
<BODY>
<OL>
EOF
print "Failed!";
my $dbh = DBI->connect()
or die "bad!";
print "Success!";
my $sth = $dbh->prepare( "
SELECT us.id, us.login, us.password
FROM users us
" );
$sth->execute;
while ( my ( $us_id, $us_login, $us_password) = $sth->fetchrow_array ) {
print "<LI>Users List: $us_id $us_login $us_password</LI>\n";
}
### Write out footer for the page
print <<EOF;
</OL>
</BODY>
</HTML>
EOF
=== Конец Windows Clipboard ===
See you in the future, All!
Yuriy.
... Простых истин не бывает...
--- Programmer is a device to convert coffee into software...
* Origin: Я ухожу, но ещё вернусь... (2:5029/42)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
DBI |
Yuriy Daybov |
08 Oct 2002 17:59:14 |
 DBI |
Ivan Frolcov |
09 Oct 2002 05:53:27 |
 DBI |
Yuriy Daybov |
11 Oct 2002 15:14:32 |
|
|
