cofearabi/Acce.pl

## Acce.pl
#!/usr/local/bin/perl

use Win32::ODBC;

print "Content-type: text/html\n\n";
print "<html>";
print "<body>";

$db= new Win32::ODBC("DSN=passwd");

$db->Sql("SELECT * FROM password");

# 取得したレコードセットの数だけループして表示
while ( $db->FetchRow() ){
  undef %FIELDS;
  # 各フィールドのデータをハッシュに格納
  %FIELDS= $db->DataHash();
  print "$FIELDS{'password'} $FIELDS{'keyword'}<BR>\n";
}

# データベースを閉じる
$db->Close( );
print "</body></html>";
exit;
	#!/usr/local/bin/perl

	use Win32::ODBC;

	print "Content-type: text/html\n\n";
	print "<html>";
	print "<body>";

	$db= new Win32::ODBC("DSN=passwd");

	$db->Sql("SELECT * FROM password");

	# 取得したレコードセットの数だけループして表示
	while ( $db->FetchRow() ){
	undef %FIELDS;
	# 各フィールドのデータをハッシュに格納
	%FIELDS= $db->DataHash();
	print "$FIELDS{'password'} $FIELDS{'keyword'}<BR>\n";
	}

	# データベースを閉じる
	$db->Close( );
	print "</body></html>";
	exit;