Erro Na Sessão Em Asp

Nadia Amorim · Maio 3, 2006

Alguém sabe como resolver o seguinte problema:

- Estou fazendo uma página que faz autenticação de usuário via sessão asp, porém ao incluir o nome do usuário e senha a página retorna para a página de login, foi efetuado testes se estava conectando ao banco e está, estou utilizando windows xp service pack 2, já ouvi um comentário que somente com o windows xp este problema não ocorre, alguém pode me ajudar? procurei muitas informações sobre isso na internet porém não encontrei nada.

Aguardo contato.

Nadia :)

fantasma · Maio 3, 2006

você pode colocar o cod para poder dar um olhada

Nadia Amorim · Maio 3, 2006

Segue o codigo da página que faz a autenticação do usuário:

<% 'Conecta-se com o Banco

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.MapPath("bco_suporte.mdb")

%>

<% ' Querystring

modo = request.QueryString("modo")

%>

<HTML>

<HEAD>

<TITLE>Suporte RM - v.01</TITLE>

<!--

function hidden()

{document.body.style.overflow='hidden';}

//-->

</SCRIPT>

</HEAD>

<%if modo = "" then%>

<font size="6"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">SUPORTE

RM</font></strong></font><br>

<tr>

<P align=center><font face="Verdana, Arial, Helvetica, sans-serif"><B><FONT color=#000000 size=3>Entre

com seu Login:</FONT></B></font></P>

</font> </center></tudo>

</tr>

<tr>

<br>

<strong><font size="3">Usuário:</font></strong></font> </tudo>

</font></tudo>

</tr>

<tr>

<br>

</b><strong><font size="3">Senha:</font></strong></font></p></tudo>

</font></tudo>

</tr>

<tr>

</font></div>

</tudo>

</tr>

</table>

<tr>

</tr>

</table>

<p><br>

</p>

</form>

</center>

<p>

<%else%>

<%' Verifica dados e faz logon

varUsuario = request.form("txt_Usuario")

varSenha = request.Form("txt_Senha")

set rsLogin = server.CreateObject("adodb.recordset")

SQL = "Select * from tbl_login where login = '"&varUsuario&"' and senha = '"&varSenha&"'"

rsLogin.open SQL,Conn

if rsLogin.bof and rsLogin.eof then

'Caso não haja resultado

session("confirmacao") = "USUÁRIO E SENHA INVÁLIDOS!"

response.Redirect("index.asp")

else

'Caso haja resultado

session("login") = "Sim"

response.Redirect("informatica.asp")

end if

%>

<%end if%>

</BODY>

</HTML>

fantasma · Maio 3, 2006

tenta assim, alterar somente a parte de baixo do cod

if rsLogin.EOF then

session("confirmacao") = "USUÁRIO E SENHA INVÁLIDOS!"

response.Redirect("index.asp")

else

session("logado")="sim"

response.redirect ("informatica.asp")

end if

Nadia Amorim · Maio 3, 2006

Continua ocorrendo a mesma coisa, que é ao informar usuário e senha ele retorna para a tela de login.

fantasma · Maio 3, 2006

como você esta verificando na pagina informatica.asp

coloque o cod inicial da pagina

Nadia Amorim · Maio 3, 2006

Bom a página index.asp e informática.asp são páginas que faz o redirecionamento para a resolução da tela.

Mas a página seguinte é a que segue abaixo:

<%

if session("login") <> "Sim" then

response.Redirect("index.asp")

end if

%>

<html>

<head>

<TITLE>Suporte RM - v.01</TITLE>

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

//-->

</script>

<!--

function suporte(){

cyber=window.open('suporte.asp', 'Suporte', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=no,height=800,width=1000')

}

//-->

</SCRIPT>

<!--

function startclock()

{

var thetime=new Date();

var nhours=thetime.getHours();

var nmins=thetime.getMinutes();

var nsecn=thetime.getSeconds();

var nday=thetime.getDay();

var nmonth=thetime.getMonth();

var ntoday=thetime.getDate();

var nyear=thetime.getYear();

var AorP=" ";

if (nhours>=12)

AorP="P.M.";

else

AorP="A.M.";

if (nhours>=13)

nhours-=12;

if (nsecn<10)

nsecn="0"+nsecn;

if (nmins<10)

nmins="0"+nmins;

if (nday==0)

nday="Domingo";

if (nday==1)

nday="Segunda-Feira";

if (nday==2)

nday="Terça-Feira";

if (nday==3)

nday="Quarta-Feira";

if (nday==4)

nday="Quinta-Feira";

if (nday==5)

nday="Sexta-Feira";

if (nday==6)

nday="Sábado";

nmonth+=1;

if (nyear<=99)

nyear= "19"+nyear;

if ((nyear>99) && (nyear<2000))

nyear+=1900;

document.clockform.clockspot.value=nhours+": "+nmins+": "+nsecn+" "+AorP+" "+nday+", "+ntoday+"/"+nmonth+"/"+nyear;

setTimeout('startclock()',1000);

}

//--></SCRIPT>

<!--

function hidden()

{document.body.style.overflow='hidden';}

//-->

</script>

<script

language="JavaScript"><!--

var hellotext=" Suporte RM v 0.1"

var thetext=""

var started=false

var step=0

var times=1

function welcometext()

{

times--

if (times==0)

{

if (started==false)

{

started = true;

window.status = hellotext;

setTimeout("anim()",1);

}

thetext = hellotext;

}

function showstatustext(txt)

{

thetext = txt;

setTimeout("welcometext()",4000)

times++

}

function anim()

{

step++

if (step==12) {step=1}

if (step==1) {window.status='>>=========='+thetext+'==========<<'}

if (step==2) {window.status='=>>========='+thetext+'=========<<='}

if (step==3) {window.status='==>>========'+thetext+'========<<=='}

if (step==4) {window.status='===>>======='+thetext+'=======<<==='}

if (step==5) {window.status='====>>======'+thetext+'======<<===='}

if (step==6) {window.status='=====>>====='+thetext+'=====<<====='}

if (step==7) {window.status='======>>===='+thetext+'====<<======'}

if (step==8) {window.status='=======>>==='+thetext+'===<<======='}

if (step==9) {window.status='========>>=='+thetext+'==<<========'}

if (step==10) {window.status='=========>>='+thetext+'=<<========='}

if (step==11) {window.status='==========>>'+thetext+'<<=========='}

setTimeout("anim()",100);

}

welcometext();

// -->

</script>

</head>

<tr>

<tudo>

<!--

startclock();

//-->

</script>

</font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font><font face="Verdana, Arial, Helvetica, sans-serif">

<br>

</font></strong> </p>

<A href="java script:suporte()">Clique aqui para ver a estrutura completa

das Pastas:</a><br>

<br>

hoje = new Date()

dia = hoje.getDate()

dias = hoje.getDay()

mês = hoje.getMonth()

ano = hoje.getYear()

if (dia < 10)

dia = "0" + dia

if (ano < 2000)

ano = "19" + ano

function CriaArray (n)

{

this.length = n

}

NomeDia = new CriaArray(7)

NomeDia[0] = "Domingo"

NomeDia[1] = "Segunda-feira"

NomeDia[2] = "Terça-feira"

NomeDia[3] = "Quarta-feira"

NomeDia[4] = "Quinta-feira"

NomeDia[5] = "Sexta-feira"

NomeDia[6] = "Sábado"

NomeMes = new CriaArray(12)

NomeMes[0] = "Janeiro"

NomeMes[1] = "Fevereiro"

NomeMes[2] = "Março"

NomeMes[3] = "Abril"

NomeMes[4] = "Maio"

NomeMes[5] = "Junho"

NomeMes[6] = "Julho"

NomeMes[7] = "Agosto"

NomeMes[8] = "Setembro"

NomeMes[9] = "Outubro"

NomeMes[10] = "Novembro"

NomeMes[11] = "Dezembro"

document.write (NomeDia[dias] + ", " + dia + " de " + NomeMes[mês] + " de " + ano)

</script>

<br>

</font></strong></font></strong></p>

<br>

</font></strong></font></strong> </p>

</div>

</tudo>

</tr>

</table>

</div>

</body>

</html>

fantasma · Maio 3, 2006

response.write session("login")

vê qual a resposta que aparece na pagina

verificar login e senha no banco ?????

Nadia Amorim · Maio 3, 2006

Desculpa, mas eu não sei programar em asp estou aprendendo, aonde devo colocar este codigo que você passou, só para reforçar será que o service pack 2 não interfere isso, já que me falaram que já aconteceu isso e quando utilizaram somente o windowsxp e com service pack 1 não ocorreu este problema e ao instalar o service pack 2 ocorreu.. será que é algo com a programação ou segurança do windows xp.

fantasma · Maio 3, 2006

você já confirmou a senha no banco ?

A PAGINA DE SENHA É O INDEX.ASP ?????

cOLOQUE ISTO NO SEU CODIGO E VEJA QUAL A RESPONSTA

if rsLogin.eof then

'Caso não haja resultado

session("confirmacao") = "USUÁRIO E SENHA INVÁLIDOS!"

'response.Redirect("index.asp")

RESPONSE.WRITE "ERRO"

else

'Caso haja resultado

session("login") = "Sim"

'response.Redirect("informatica.asp")

RESPONSE.WRITE "CERTO"

end if

%>

<%end if%>

Nadia Amorim · Maio 3, 2006

Confirmei a senha sim, a página que aparece login e senha é a login1024x768.asp como disse a index e a informatica tem o seguinte código:

<html>

<body>

w = screen.width;

if(w >= 1024) location.href = "login1024x768.asp";

if(w <= 800) location.href = "login800x600.asp";

</script>

</body>

</html>

Como disse este codigo é para verificar a resolução de tela, onde ela chama uma das duas páginas que é: (onde coloquei aquele codigo que você havia me falado primeiro);

<% 'Conecta-se com o Banco

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.MapPath("bco_suporte.mdb")

%>

<% ' Querystring

modo = request.QueryString("modo")

%>

<HTML>

<HEAD>

<TITLE>Suporte RM - v.01</TITLE>

<!--

function hidden()

{document.body.style.overflow='hidden';}

//-->

</SCRIPT>

</HEAD>

<%if modo = "" then%>

<font size="6"><strong><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif">SUPORTE

RM</font></strong></font><br>

<tr>

<P align=center><font face="Verdana, Arial, Helvetica, sans-serif"><B><FONT color=#000000 size=3>Entre

com seu Login:</FONT></B></font></P>

</font> </center></tudo>

</tr>

<tr>

<br>

<strong><font size="3">Usuário:</font></strong></font> </tudo>

</font></tudo>

</tr>

<tr>

<br>

</b><strong><font size="3">Senha:</font></strong></font></p></tudo>

</font></tudo>

</tr>

<tr>

</font></div>

</tudo>

</tr>

</table>

<tr>

</tr>

</table>

<p><br>

</p>

</form>

</center>

<p>

<%else%>

<%' Verifica dados e faz logon

varUsuario = request.form("txt_Usuario")

varSenha = request.Form("txt_Senha")

set rsLogin = server.CreateObject("adodb.recordset")

SQL = "Select * from tbl_login where login = '"&varUsuario&"' and senha = '"&varSenha&"'"

rsLogin.open SQL,Conn

if rsLogin.bof and rsLogin.eof then

'Caso não haja resultado

session("confirmacao") = "USUÁRIO E SENHA INVÁLIDOS!"

response.Redirect("index.asp")

else

'Caso haja resultado

session("login") = "Sim"

response.Redirect("informatica.asp")

end if

%>

<%end if%>

</BODY>

</HTML>

fantasma · Maio 3, 2006

COLOQUE ISTO NO SEU CODIGO E VEJA QUAL A RESPONSTA

if rsLogin.eof then

'Caso não haja resultado

session("confirmacao") = "USUÁRIO E SENHA INVÁLIDOS!"

'response.Redirect("index.asp")

RESPONSE.WRITE "ERRO"

else

'Caso haja resultado

session("login") = "Sim"

'response.Redirect("informatica.asp")

RESPONSE.WRITE "CERTO"

end if

%>

<%end if%>

Nadia Amorim · Maio 3, 2006

Apareceu a palavra Certo!!!!!

fantasma · Maio 3, 2006

perfeito esta certo

altere novamente

if rsLogin.eof then

'Caso não haja resultado

session("confirmacao") = "USUÁRIO E SENHA INVÁLIDOS!"

response.Redirect("index.asp")

else

'Caso haja resultado

session("login") = "Sim"

response.Redirect("informatica.asp")

end if

%>

<%end if%>

na pagina informatica.asp

coloque no inicio

<%

response.write session("login")

'if session("login") <> "Sim" then

'response.Redirect("index.asp")

'end if

%>

vê o que aparece

Nadia Amorim · Maio 3, 2006

Funcionou!!!! o que você fez?

Que legal!!! tenho que aprender a programa em asp!!!Muito obrigado viu!!!!

fantasma · Maio 3, 2006

Ok qualquer duvida estarei aqui..........................

Entrar

Erro Na Sessão Em Asp

Pergunta

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns