Problemas Para Recuperar A Session

leaio · Março 3, 2005

Por Favor me ajudem, fiz um sistema de login,onde usuario cadastrado loga e tem acesso aos seus dados para poder modifica-los,beleza,

então fiz o seguinte: no login.asp gravei o usuario numa session,e no arquivo "alteracao.asp" ,tentei recuperar esta session,mas só tá dando pau

da uma olhada no codigo::

login.asp

<%
	usuario = Request.Form("usuario")
	senha = Request.Form("senha")
    
	If Len(usuario) > 0 Then
    Set objConn = CreateObject("ADODB.Connection")
  objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\curriculum\dados\dados_cadastro.mdb")
      Set rsUser = objConn.Execute("SELECT ID, usuario, senha, nome FROM curriculo_cadastrado WHERE usuario=""" & usuario & """ AND senha=""" & senha & """")
  Session("id")=rsUser("id")
  If rsUser.EOF Then
  	ErrorMessage = "<P><font color=""#FFFFFF"">Invalid Username or Password</font></P>"
  	rsUser.close
  	Set rsUser = Nothing
  	Set objConn = Nothing
  Else
  	Session("id") = rsUser("id")
  	Session("nome") = rsUser("nome")
  	rsUser.close
  	Set rsUser = Nothing
  	Set objConn = Nothing
  	Response.redirect "alteracao.asp"
  End If
	End If	

%>

alteracao.asp

<%
	If Len(Session("id")) = "0" Then
  Response.Redirect "default.asp"
	End If
%>

<html>
<head>
<title>ASP Dataform</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Formulário de Alteração</b></center>

<%
id = session("id")
response.write id
If IsEmpty( Request.Form("submit") ) Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("..\dados\dados_cadastro.mdb")
Conexao.Open Constr
ComandoSQL = "SELECT * FROM curriculo_cadastrado WHERE id =" &id& " ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 2
rs.CursorType = 0
rs.LockType = 3
rs.Open ComandoSQL, conexao,,, &H0001

If Not rs.EOF Then
  rs.Move Request.QueryString("n")
%>

ERRO

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.
/curriculum/login_usuario/alteracao.asp, line 26

Reginaldo ASP · Março 3, 2005

você tá usando o ADOVBC.INC?

Principe · Março 3, 2005

cara ta muito estranho esse seu código ai.. prq você fez uma connection e um recordset se você nem ta usando o RS , e ainda ta abrindo o "conexao" que não é a conexao com o bd e sim o parâmetro de crição do objeto conection !?!

Tenta assim:

Alteracao.asp

<%
id = session("id")
response.write id
If IsEmpty( Request.Form("submit") ) Then

conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath="dados\dados_cadastro.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
ComandoSQL = "SELECT * FROM curriculo_cadastrado WHERE id =" &id& " ORDER BY id DESC"
rs.CursorLocation = 3
rs.CursorType = 3
rs.LockType = 3
rs.Open ComandoSQL, conexao,,, &H0001

If Not rs.EOF Then
rs.Movenext
loop%>

ou então explica ai o que você ta tentando fazer na pagina "alteracao.asp" !

DeStiLaDo · Março 3, 2005

Cara eu faria meio diferente... tb achei seu code meio grande, se é pela segurança você pode utilizar uma condicional no inicio do código das suas páginas para q c o usuário não tiver uma sessão válida é redirecionado pra página default.

Eu faria o seguinte:

1) Criaria um form pro login e senha, htm mesmo!

2) Um verifica.asp que consultasse o banco, e fizesse o redirecionamento ou para a página do painel de controle do user, ou de volta ao login;

tu pode fazer assim:

quando o user estiver no sistema, e o log for permitido cria a session: session("liberado") = "ok", e na página do painel, coloca a condicional:

<% if session("liberado") = "ok" then %>

pagina a ser exibida

<%else%>

pagina caso acesso negado, pode ser por redirect tb

<%end if%>

para recuperar o id para personalização do painel do cara, na hora da autenticação, que você criou a session liberado, cria uma seção id tb...

espero ter ajudado, blza?

Entrar

Problemas Para Recuperar A Session

Pergunta

leaio

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

Principe

Link para o comentário

Compartilhar em outros sites

DeStiLaDo

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades