[Resolvido] usuario e senha sem banco de dados

reinaldo polato · Agosto 22, 2011

e ai galera beleza

seguinte ele não funciona ele da esse erro e na pagina aonde tem usuario e senha voce digita e não aparece nada

ele da erro na pagina login.asp

Erro de compilação do Microsoft VBScript erro '800a03ee'

')' esperado

/vendas/cadastrar vendedor/login.asp, linha 9

response.redirect("Msgbox=usuario ou senha incorretos "index.asp")

-------------------------------------------------------^

pagina index.asp

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>   
<form action= "login.asp" method="post">
<table align="center" border="1" width="33%">
<h2>
                                                                                   
</h2>
<table align="center" width="33" border="1">
  <td width="33%"><font color="blue">Usuario</td>
  <td width="33%"><input type="text" name="Usuario"> 
  <br>
   <input type="submit" name="btn_Entrar" value=" Entrar >>"><br>
   <br>
  <br>
  <td width="33%"><font color="blue">Senha</td>
  <td width="33%"><input type="Password" name="Senha">
  <br>
  <input type="submit" name="btn_Sair" value=" Sair >>">
</form>
<P> </P>
</BODY>
</HTML>
</table>
<% if Request.QueryString("Msgbox=usuario ou senha incorretos") = "usuario" then %>   
<% end if %>


login.asp

<%   

dim Usuario
dim Senha
Usuario=Request.Form("Usuario")
Senha=Request.Form("Senha")
	usuario=""
	senha=""
     response.redirect("Msgbox=usuario ou senha incorretos "index.asp") 

%>

xanburzum · Agosto 22, 2011

este erro geralmente acontece com simples erros de digitação. verifique sua sintaxe de code

dê um response.write na sua string de concatenação para ver o que esta sendo passado

reinaldo polato · Agosto 22, 2011

e ai beleza xanburzum voce tem algum exemplo de usuario e senha sem banco de dados

Vinicius Ianni · Agosto 22, 2011

Veja algumas coisas antes:

<% if Request.QueryString("Msgbox=usuario ou senha incorretos") = "usuario" then %>

Isso aqui está errado, o correto seria:

<% if Request.QueryString("Msgbox") = usuario then %>

e aqui também está errado, veja só:

<%   

dim Usuario
dim Senha
Usuario=Request.Form("Usuario")
Senha=Request.Form("Senha")
               usuario=""
               senha=""
            response.redirect("Msgbox=usuario ou senha incorretos "index.asp")

Voce define as variaveis usuario e senha, e determina que seus valores virão de um campo no formulário, e logo em seguida, você as deixa vazias.

O asp ao contrario do php não faz distinção se tem letras maiusculas ou minusculas compondo alguma váriavel por exemplo, tudo é tratado com se fosse uma coisa só.

O response.redirect também está errado, o certo é só o index.asp.

Se você quer determinar um usuário e senha sem banco de dados, pode fazer algo do tipo:

login="eu"
senha="1234"

nome = request.form("nome")
pass = request.form("senha")

if nome = login then
 if pass = senha then
 response.redirect("paginasegura.asp")
 end if
else
repsonse.redirect("index.asp")
end if

reinaldo polato · Agosto 23, 2011

e ai Vinicius Ianni beleza

está dando esse erro

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: 'Senha'

/vendas/cadastrar vendedor/login.asp, linha 9

pagina login.asp

<%
Usuario="reinaldo"
Senha="102030"

Usuario = request.form("Usuario")
Senha = request.form("Senha")

if Usuario = reinaldo then
if Senha = 102030 then
Response.Redirect("index.asp")
end if
else
Response.Redirect("index.asp")
end if

%>

Vinicius Ianni · Agosto 23, 2011

Testa assim:

if Usuario = "reinaldo" then
if Senha = "102030" then

Mas sua logica está errada, bem como a ação a ser feita no else.

Sugiro que reveja tudo.

reinaldo polato · Agosto 24, 2011

e fiz a pagina de login assim mais ele não pede senha na pagina index.asp aonde tem o usuario e senha

não funciona

<%

dim Usuario

dim Senha

Usuario = request.form("Usuario")

Senha = request.form("Senha")

Usuario="reinaldo"

Senha="10203040"

Response.Redirect("index.asp")

%>

xanburzum · Agosto 25, 2011

olha este exemplo, unica diferença é que usa bd, do resto é só usar session como no exemplo

Vinicius Ianni · Agosto 26, 2011

O que eu falei sobre redefinição de variavel ?

Voce informa que a variavel terá o valor vindo do formulário, e na instrução seguinte, diz que o valor dela é outro.

Lógico que nunca vai dar certo.

reinaldo polato · Agosto 29, 2011

e ai beleza

está dando o seguinte erro

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

/vendas/re/logar.asp, linha 8

index.asp

<html>
<head>
<title>¨Amar Assessoria e Consultoria ao Terceiro Setor¨</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form method="post" action="logar.asp">
 <strong>Usuario</strong>: 
 <input name="login" type="text"><br>
Senha:<input name="senha" type="password"><br>
<input type="submit" value="Entrar">
</form>
</body>
</html>

logar.asp

<%
Dim login,senha,conexao,constr,rs
login = request.Form("login")
senha = request.Form("senha")

set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("senhas.mdb")
conexao.open constr

set rs = conexao.execute("SELECT * FROM users WHERE login='"&login&"' AND senha='"&senha&"'")

if rs.eof then
response.Redirect("index.asp")
else

response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"

response.Redirect ""& rs("index.asp")
end if
%>

Vinicius Ianni · Agosto 29, 2011

O erro é seu amigo, ele informa que não está achando o banco de dados no caminho informado.

Se colocou o bando de dados numa pasta diferente de onde está essa pagina asp, terá de informar isso na string que informa o caminho do banco de dados.

reinaldo polato · Agosto 29, 2011

o codigo é

Server.MapPath() erro 'ASP 0172 : 80004005'

Caminho Inválido

/re/logar.asp, linha 7

O parâmetro Path do método MapPath deve ser um caminho virtual. Foi usado um caminho físico.

ai aonde tem constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("c:/re/senhas.mdb") se eu so colocar senhas.mdb ele não encontra o banco de dados o banco de dados está na mesma pasta

logar.asp

<%
Dim login,senha,conexao,constr,rs
login = request.Form("login")
senha = request.Form("senha")

set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("c:/re/senhas.mdb")
conexao.open constr

set rs = conexao.execute("SELECT * FROM users WHERE login='"&login&"' AND senha='"&senha&"'")

if rs.eof then
response.Redirect("index.asp")
else

response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"

response.Redirect ""& rs("errou.asp")
end if
%>

Vinicius Ianni · Agosto 29, 2011

O Server.Mappath só vai funcionar para pegar o caminho a partir da pasta do iis, não vai funcionar para uma pasta que o servidor web não esteja servindo.

Coloque o arquivo numa pasta dentro do iis e que esteja devidamente comfigurada, e deve funcionar sem problemas.

Colocar algo como c:\pasta\arquivo.extensão, dentro do metodo Server.Mappath não vai dar certo, pois a função dele é mapear o caminho, o que não é possivel de ser feito dessa forma.

xanburzum · Agosto 29, 2011

O parâmetro Path para o método MapPath deve ser um caminho virtual, ao invés do caminho físico

reinaldo polato · Agosto 30, 2011

ja consegui resolver

entrei em

Gerenciador do Serviços de Informações da Internet (IIS)

ai depois cliquei em pools de aplicativos ai cliquei depois em definir padroes do pool de aplicativos ai eu coloquei habilitar aplicativos de 32 bits eu coloquei como true e deu certo valeu pela ajuda de voces ai

xanburzum · Agosto 30, 2011

olha este exemplo

reinaldo polato · Agosto 30, 2011

o codigo é

index.asp

<html>
<head>
<title>usuario e senha</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form method="post" action="login.asp">
 <strong>Usuario</strong>: 
 <input name="login" type="text"><br>
Senha:<input name="senha" type="password"><br>
<input type="submit" value="Entrar">
</form>
</body>
</html>

login.asp

<%   

  set db = server.createobject("adodb.connection") 'Banco de Dados
  set rs = server.createobject("adodb.recordset")  'Tabela de Registros

  'Path (Caminho) do Banco 
  db.open "driver={microsoft access driver (*.mdb)};dbq=" & _
  	Server.MapPath("senhas.mdb")

  'Selecionamos o usuario da tabela usuarios.
  'Usamos o Replace para garantir a segurança e que o usuário um pouco 
  'mais experiente não modifique a sintaxe SQL

  rs.open "select * from users where " & _
  	"login='" & Replace(request.form("login"), "'", "''") & _
  	"' and senha='" & Replace(request.form("senha"), "'", "''") & "'",db

     if not rs.eof then 'Encontrou o usuário
  	'Armazenamos em uma variável Session o status do Usuário
     session("status") = "ok" 
	 'Redirecionamos para a Página Inicial	
     response.redirect("admin.asp") 
     else 'Usuário não encontrado
  	'Redirecionamos para a Página de Login e informamos o erro
     response.redirect("index.asp?erro=negado") 
     end if

     set rs = nothing 'Destruímos o Objeto
     rs.close

%>

Arquivado

[Resolvido] usuario e senha sem banco de dados

Recommended Posts

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante