Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
leaio

Problemas Para Recuperar A Session

Question

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

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

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

Share this post


Link to post
Share on other 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?

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148079
    • Total Posts
      643267
×
×
  • Create New...