Perl 脚本在命令提示符下工作正常，但作为 CGI 脚本在 ODBC 上失败

Question

问题：Perl 脚本在命令提示符下工作正常，但在 ODBC 上作为 CGI 脚本失败

设置： Win XP Pro 64 位版本 2003 SP2 阿帕奇 2.2.17 Win32 活动 Perl 5.12.2（不是 Perl64） 为 SQL SERVER 创建 ODBC DSN

可以正常工作

详细信息：从命令提示符处，Phone.pl 运行正常 - 它按预期获得查询结果 - 这意味着 DBI作为 CGI 脚本 ，Phone.pl 在 ODBC 初始化代码之前按预期打印 HTML。 （Apache 设置适用于非 ODBC 脚本。）

这是 Apache 的 error.log 中的消息

[Tue Nov 23 13:27:57 2010] [error] [client 127.0.0.1] DBI connect('SQLSVR206','administrator ',...) 失败：[Microsoft][ODBC 驱动程序管理器] 在 C:/CGI/Phone.pl 第 32 行找不到数据源名称且未指定默认驱动程序 (SQL-IM002)

知道为什么它的行为不同吗？

#!c:/perl/bin/perl.exe
use CGI qw(:standard);
use strict;
use warnings;
use DBI;

my ($sqlstr, $sql_UNITED, $dbh206);

# 206
# select * from getProvFINON('270762789')#TIN
my @colUNITED = qw/ADR_LN_1_TXT  PROV_SYS_ID  ZIP_CD  FULL_NM  SOURCE  PROV_TIN  BILL_TEL/;

sub Init(){
    $dbh206 = DBI->connect ("dbi:ODBC:SQLSVR206",'USER','PASSWORD',{RaiseError=>1})
        or die $DBI::errstr;
    $sqlstr = qq/ select * from getProvFINON(?) /; #parameters TIN
    $sql_UNITED = $dbh206->prepare($sqlstr)
        or die "prepare failed: " . $dbh206->errstr(); 
}

sub test1{
    my $tin = shift();
    $sql_UNITED->execute($tin) or die $sql_UNITED->errstr;
    my $row = $sql_UNITED->fetchrow_hashref;
    while(defined ($row)){
    foreach(@colUNITED){
        print $row->{$_}."~~~";
    }
    print "<p>";
    $row = $sql_UNITED->fetchrow_hashref;
    }
}

print header;
print "test text<p>";
Init();
test1('270762789');
print "999999999999<p>";

=================================================== ======== 更新：部分问题是 32 位 VS 64 位 ODBC 问题 请参阅 http://support.microsoft.com/kb/942976

但是，在设置 ODBC 之后， ，我在 Apache 日志中仍然收到以下错误 [2010 年 11 月 24 日星期三 01:38:48] [错误] [客户端 127.0.0.1] DBI 连接（'SQLSVR206-32','',...）失败：[Microsoft][ODBC SQL Server 驱动程序][SQL Server ]用户“MYDOMAIN\GARY$”登录失败。 (SQL-28000) 在 C:/CGI/test.pl 第 15 行，

我以 MYDOMAIN\administrator 身份登录并启动 Apache。 ODBC 设置为使用“使用网络登录 ID 进行 Windows NT 身份验证” 这个“MYDOMAIN\GARY$”从何而来？谢谢！

=================================================== ======== 最终更新：Apache 服务使用“本地系统帐户”运行，这就是“MYDOMAIN\GARY$”的来源。问题是 GARY 不在公司，他的 ID 已从 SQL Server 中删除，但 CGI 中的 ODBC 代码从 Apache 继承了 GARY，导致错误 28000。 所以问题是一个卷积 1) 32/64 位 ODBC DSN 和 2) Apache使用的默认帐户

Answer 1

也许 ODBC 数据源列在“用户 DSN”下，而不是“系统 DSN”下。我认为您的 Web 服务器运行的身份只能访问系统 DSN。

如果我的帖子没有意义，我将对其进行编辑，以添加有关用户 DSN 与系统 DSN 之间差异的信息的链接：http://www.truthsolutions.com/sql/odbc/creating_a_new_odbc_dsn.htm

Answer 2

Windows 7 ODBC 连接出现问题，我也无法弄清楚。我设置了 ODBC，它测试得很好，但出现了与您显示的类似的错误。即使将 MS SQL Server Mgmt Studio 连接到某些 SQL 服务器，我也必须显式地添加额外的连接设置。因为我只在一些 SQL 服务器（我不拥有）上遇到这个问题，所以我认为这是服务器端问题。
在 PERL 上，我最终放弃了，只是使用上述额外的连接设置创建了 DSN 文件并直接指向它。请注意服务器名称是如何出现两次的。

use DBI;
use SQL::Abstract;
my $CONNECT = "FILEDSN=thefile.dsn";
my $dbh = DBI->connect("dbi:ODBC:$CONNECT", "myidsid", "passwordThatsNotUsed");

ODBC 文件看起来像这样：

[ODBC]
DRIVER=SQL Server Native Client 10.0
UID=myidsid
Address=servername,3180
Network=DBMSSOCN
APP=Microsoft® Windows® Operating System
Trusted_Connection=Yes
SERVER=servername
PWD=someTextInPlaceOfPasswordAsItsNotUsed