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):
Código da página de login:
E no OnLoad das demais páginas esse código:
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)