Ir para conteúdo
Fórum CódigoFonte.net
xamby

Login ASP dando Erro!

Recommended Posts

e não sei porque mias tem como arrumar isso ?

Eu fiz duas index a 1 e a 2 .. a 2 é restrita ...

por passos

1- Abro navegador

2- Tento entrar na index2, ele redireciona para index 1 (OK)

3- Faço o login e redireciona para index2 (OK)

4- Dou Logout e redireciona para página index1 (OK)

5- Agora se eu tento abrir a index2 ele entra normalmente, porém eu já dei o logout ... (quando dou logout ele muda a variável session para false, mais quando abro o index2 ele esta true, nd a para entender)

se eu tento entra na index2 via a um link na página ele não entra isso correto ... porem se eu mudo lá no browser ele entra .. ajuda ae ?

LOGIN.ASP

<%

Dim DB

Set DB = Server.CreateObject("adodb.connection")

DB.open "DBQ=C:\Inetpub\wwwroot\letsrock\BDusuarios.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"

login_b = request.form("txtlogin")
senha_b = request.form("txtsenha")

aspSQL="SELECT * FROM tbusuarios WHERE login='" & login_b & "' AND senha='" & senha_b & "'"

set rstemp=DB.execute(aspSQL)

if rstemp.eof then
login = False
else
login = True
end if

if login = True then
Session("login") = True
response.redirect("index2.asp")
else
response.redirect("index.asp")
end if

%>
LOGOUT.ASP
<%
Session.Abandon()
Response.redirect("index.asp")
%>
VERIFICALOG.ASP
<% If NOT Session("login") = True Then
Response.redirect("index.asp")
Response.End
End If
%>
INDEX2.ASP no topo da página antes dos html eu colokei
<--!#include file="verificalog.asp"-->

ajuda plzx

Compartilhar este post


Link para o post
Compartilhar em outros sites

tenta colocar o seguinte código no inicio da index2

<%
Response.Buffer = True
Response.Expires = 0 
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boas eu peguei no teu codigo e reparei num erro, a ti nao deu? :(

nesta linha

set rstemp=DB.execute(aspSQL)

O erro que me ocorre é: Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Controlador Microsoft Access de ODBC] Poucos parâmetros. 2 esperado.

Se me poderem ajudar agradecia. ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...