[Resolvido] Nome de Usuario e Senha

[reinaldo polato 1]

e ai galera beleza

 

é o seguinte eu to fazendo uma pagina de login nome de usuario e senha

 

esse é o meu codigo

 

<script>

function validaForm(){

if(document.login.usuario.value.lenght <=1)

{

alert("Digite o seu Usuario!")

login.usuario.focus();

return false;

}

if(Document.login.senha.value.length <=1)

{

alert("Digite a senha de acesso!");

login.senha.focus();

return false;

}

return true;

{

</script>

<form name="frm1" Method="Post" action="cadastrar_advogado.asp">

<td width="33%"><font color="blue">Usuario</td>

<td width="33%"><input type="text" name="usuario" Size="20">

<br>

<td width="33%"><font color="blue">Senha</td>

<td width="33%"><input type="Password" name="Senha" Size="20">

<br>

<input type="Submit" name="frm_Entrar" value=" Entrar >>">

<input type="Submit" name="frm_Sair" value=" Sair >>">

</form>

 

 

e a outra pagina que está a senha é

 

<%

 

dim usuario

usuario=Request.Form("usuario")

dim senha

senha=Request.Form("senha")

 

usuario="usuario"

senha="minhasenha"

 

if usuario=usuario and senha =senha then

usuario=logado

usuario="desconectado"

 

end if

 

Response.Redirect="index.asp=Msgbox=usuario ou senha incorretos"

 

%>

 

 

ele da o erro chamado

O objeto não dá suporte para a propriedade ou método: 'Response.Redirect'

 

o que eu devo fazer pra pagina de colocar o nome de usuario e senha dar acesso negado so com autorizao do nome de usuario e senha corretos

[Vinicius Ianni 189]

testa assim:

Response.Redirect="index.asp?Msgbox=usuario ou senha incorretos"

 

Mas segue um script de autenticação de presente:

 

dim conn, rs, stql
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open strconexao
dim usr
dim pass
usr = Request.form("login")
pass = Request.form("senha")
stql = "Select * from usuario where login='" & usr & "'and senha= '" & pass &"'"
Set rs = conn.Execute(stql)
if rs.eof or rs.bof then 
response.redirect "index.asp"
else
'logid = rs("id")
'response.write logid
Session("login") = "ok"

Uso isso em alguns sistemas e nunca tive problemas

[xanburzum 169]

erro no seu Response.Redirect, precisa ser uma url válida....

[reinaldo polato 1]

e ai xanburzum beleza

eu fiz a pagina com o nome de usuario e senha chamada index.asp

 

e a segunda pagina que eu coloquei o codigo que tem o nome do usuario e a senha eu coloquei o nome da pagina cadastrar_advogado.asp

 

quando eu digito na pagina index.asp o nome de usuario e senha ele ja vai pra outra pagina que é a cadastrar_advogado.asp ele não pede a senha

 

valeu pela ajuda de voces ai

[xanburzum 169]

olha este link

[desisto 0]

esta errado

 

Response.Redirect="index.asp=Msgbox=usuario ou senha incorretos"

 

Response.Redirect("index.asp=Msgbox=usuario ou senha incorretos")

 

e evite espaços no link, use aaa_bbb e se preciso for, remova o _ com replace

[Mário Monteiro 179]

outra coisa é que geralmente se usa o ? para separar o nome do arquivo das variáveis passadas na url

[reinaldo polato 1]

e ai galera beleza

 

eu copiei o codigo do Vinicius Ianni

 

e a pagina deu o seguinte erro

 

 

<%   

   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("bd_usuario.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 Consulta where " & _
   	"Usuario='" & Replace(request.form("Usuario"), "'", "''") & _
   	"' 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("index.asp?erro=negado") 
      else 'Usuário não encontrado
	  	'Redirecionamos para a Página de Login e informamos o erro
	      
      end if

      set rs = nothing 'Destruímos o Objeto
      rs.Close
      
%>

 

o erro é Objeto necessário: 'rs'

[xanburzum 169]

rs é o recordset criado na linha abaixo

set rs = server.createobject("adodb.recordset")

 

poste o número do erro e linha

[reinaldo polato 1]

e ai xanburzum beleza

 

o erro é na linha

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'rs'

/polato1/cadastrar_advogado.asp, line 29

esse é o erro

[reinaldo polato 1]

e ai galera beleza pode colocar como resolvido

 

http://www.linhadecodigo.com.br/dica/813/Sistema-de-login-em-ASP.aspx

 

esse site tem codigo pronto de login em asp com banco de dados

valeu pela ajuda ai galera

[xanburzum 169]

OK, amig, resolvido.....