Meu cliente não consegue de forma alguma fazer o login, pois por utilizar o browser(iexplorer) para acessar os bancos, ele não pode habilitar os cookies de ssessão. Sendo assim ele nunca consegue logar no site.
Dim str_usuario, str_senha
str_usuario = lcase(adequarTexto(Request.form("txtusuario")))
str_senha = adequarTexto(Request.form("txtsenha"))
response.Write("str_usuario: "&str_usuario&" str_senha: "&str_senha)
if str_usuario = "" OR str_senha = "" Then
Response.Redirect "erro.asp?cod=2"
else
dim rs
set rs = executarConsulta("SELECT * FROM USUARIOS WHERE USUARIO ='"&str_usuario&"'")
if rs.eof then
Response.Redirect "erro.asp?cod=3"
else
dim id, usuario, senha
id = rs("id")
usuario = rs("usuario")
senha = rs("senha")
if str_senha = senha then
session("id") = id
session("usuario") = usuario
Response.Redirect "../administrador/SGC.asp"
else
Response.Redirect "erro.asp?cod=3"
end if
end if
rs.close
set rs = nothing
end if
lembrando que as páginas internas verificam a sessão, ou seja ele loga o SELECT vê certinho, redireciona, e na página interna ele é redirecionado para tela de login.
Pergunta
leandroramosbr
Meu cliente não consegue de forma alguma fazer o login, pois por utilizar o browser(iexplorer) para acessar os bancos, ele não pode habilitar os cookies de ssessão. Sendo assim ele nunca consegue logar no site.
lembrando que as páginas internas verificam a sessão, ou seja ele loga o SELECT vê certinho, redireciona, e na página interna ele é redirecionado para tela de login.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.