Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Para Recuperar A Session


leaio

Pergunta

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

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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" !

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...