Projeto ASP. NET - Problema com a tela de login

28/05/2008

0

Estou desenvolvendo meu primeiro projeto ASP .NET usando o BDS 2006. Mas surgiu um problema que não sei como resolver. A aplicação usa um banco de dados Firebird 2.0 e o login é feito usando-se os usuários cadastrados do próprio Firebird. Quando eu testo a aplicação na máquina onde o sistema está sendo desenvolvido, funciona sem problemas, mas se movo os arquivos para outro diretório na mesma máquina ou se acesso a aplicação de outra máquina (independente de onde estão os arquivos), ao clicar no botão para logar, os campos Usuário e Senha ficam em branco e não acontece nada, nem sequer um erro ocorre. Alguém tem idéia do que pode ser? Já estou atrasada com esse sistema e não dá para entregar sem resolver isso.

Coloquei o caminho do banco no arquivo Web.config (usando um Alias):
<add key="ConnectionString" value="Database=CADART;DataSource=localhost;Port=3050;Dialect=3;Charset=WIN1252;Pooling=True;Server Type=0" />


Código da página de login:

procedure twfLogin.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  // TODO: Put user code to initialize the page here
  If Not IsPostBack Then
   Begin
     If Session[´Usuario´] <> Nil Then Session.Remove(´Usuario´);
     If Session[´Senha´] <> Nil Then Session.Remove(´Senha´);
     FormsAuthentication.SignOut;
     lblErro.Visible := False;     
   End;
end;

procedure twfLogin.btnLogin_Click(sender: System.Object; e: System.EventArgs);
var
  vStrBld : FbConnectionStringBuilder;
  vConexao : FbConnection;
begin
  vStrBld := FbConnectionStringBuilder.Create(ConfigurationSettings.AppSettings.Get(´ConnectionString´));
  vStrBld.UserID := Usuario.Text;
  vStrBld.Password := Senha.Text;
  vConexao := FbConnection.Create(vStrBld.ToString);
  try
   begin
     vConexao.Open;
     vConexao.Close;
     Session.Add(´Usuario´, vStrBld.UserID);
     Session.Add(´Senha´, vStrBld.Password);
     FormsAuthentication.RedirectFromLoginPage(vStrBld.UserID, True);
   end
  except
    lblErro.Visible := True;
  end;
end;


E no OnLoad das demais páginas esse código:
If Session[´Usuario´] = Nil Then
     Response.Redirect(´Login.aspx?ReturnUrl=´ + Request.RawUrl);



Gandalf.nho

Gandalf.nho

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar