LOGIN。CGI为什么老是显示“登陆失败”？谢谢~

阿湖 · 发表于 2004-4-14 21:25:12

#!/usr/bin/perl

#reg.cgi
print "Content-Type: text/html\n\n";

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

@userpassword=split(/&/,$buffer);

foreach $namevalue(@userpassword){

($name,$value)=split(/=/,$namevalue);

$name=~tr/+//;
$value=~s/%[\da-fA-F][\da-fA-F]/pack("C",hex($1))/eg;

$form{$name}=$value;
}

$username=$form{'username'};

$password=$form{'password'};

$pass_word=$form{'pass_word'};

$db="F:/user/shoufei/yuliner/testtest/data/$username.pl";

open(FILE,">$db")||die"can not open $db";

print FILE "\$username = \'$username\'\;\n";

print FILE "\$password = \'$password\'\;\n";

print FILE "1;";

close(FILE);

print "<html><head><title></title></head><body>注册成功！</body></html>";

exit;

login.htm

<html>
<head>
<title></title>
</head>
<body>

<form action="login.cgi" method="post">
<p>username:<input name="username" type="text" size="20" maxlength="20"></p>
<p>password:<input name="password" type="password" size="20" maxlength="20"></p>
<p>password:<input name="pass_word" type="password" size="20" maxlength="20"></p>
<p align="center"><input type=submit name=submit value="　登　录　">
<p align="center"><a href=reg.htm>注册</a>
</form>

</body>
</html>

#!/usr/bin/perl
#login.cgi

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

read(STDIN,$buffer,$ENV{'CONTENT-LENGHT'});

@pairs=split(/&/,$buffer);

foreach $keyvalue(@pairs){

($key,$value)=split(/=/,$keyvalue);

$value=~tr/+//;
$value=~s/%[\da-fA-F][\da-fA-F]/pack("C",hex($1))/eg;

$form{$key}=$value;

}

$user=$form{'username'};

$pws=$form{'password'};

$pw=$form{'pass_word'};

$userdb="F:/user/shoufei/yuliner/testtest/data/$user.pl";

if  (-e  "$userdb" ){

require "$userdb";

   if  ($pws eq $password){

            print "<html><head><title></title></head><body>成功登陆！</body></html>";

   }

}
else{

print "<html><head><title></title></head><body>登陆失败！</body></html>"; }

exit;

请大家帮忙看看，谢谢~

cafe22kimo · 发表于 2004-4-15 02:07:48

我也是初學者

#!/usr/bin/perl

## 文件檔案index.pl
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
use strict;

my $name  = cookie('sessionID') || 'geust';
my $space = '&nbsp' x 9;

print header(-charset=>'big5',-expires=>'-1d'),
      start_html(-title=>'Welcome to My Page',
         -lang=>'big5',
   -encoding=>'big5');

print h2({-align=>'center'},'Create new account'),
      h2("Hi$space$name"),hr,

      start_form(-action=>'create.pl',-method=>'post'),

'帳號',br,br,
textfield(-name=>'user',
            -override=>'1',
            -size=>'20',
            -maxlength=>'40'),br,br,
'密碼',br,br,
password_field(-name=>'password',
               -override=>'1',
               -size=>'21',
               -maxlength=>'40'),br,br,
      submit('傳送'),
end_form,
end_html;

........................完

#!/usr/bin/perl

## 文件檔案 create.pl

use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
use strict;

my $user    = param('user');
my $password = param('password');
my $space = '&nbsp' x 9;
my $cookie = cookie( -name=>'sessionID',
               -value=>"$user",
         -expires=>'+1y');

print redirect('index.pl') unless ($user && $password);

print header(-charset=>'big5',
         -cookie=>$cookie),
   start_html(-title=>'Create new account',
               -lang=>'big5',
               -encoding=>'big5');

print "以下是妳申請的資料",hr,br,br,
"帳號",$space,$user,br,
"密碼",$space,$password,br,br,
a({href=>'index.pl'},'回主頁')

........................完

阿湖 · 发表于 2004-4-15 09:17:20

呵呵,我也看不懂..

tojeff · 发表于 2004-4-15 09:19:09

print FILE "\$username = '$username'\;\n";

print FILE "\$password = '$password'\;\n";
单引号和双引号的区别

阿湖 · 发表于 2004-4-15 21:23:00

print FILE "\$username =\'$username'\;\n";

print FILE "\$password = \'$password'\;\n";

		自动登录	找回密码
密码			注册

LOGIN。CGI为什么老是显示“登陆失败”？谢谢~

不知道可以換個方式嗎？