Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

masterofdreams

Essa é d+

Por , em ASP Clássico

Recommended Posts

masterofdreams    0

masterofdreams
Postado

Po galera olha só...cadastro.htm<html><head><title>Cadastro</title></head><body><form method="POST" action="insere.asp"> <p> Nome: <input type="text" name="nome" size="20"></p> <p>Lucent: <input type="text" name="lucent" size="20"></p> <p>Senha: <input type="Password" name="text" size="20"></p> <p><input type="submit" value="Enviar" name="B1"></p></form></body></html>insere.asp<%Dim conexao, strSQL, rsSQL, nome, lucent, senha'me conecto com o bd, mude o nome do banco de dadosset conexao = server.createobject("ADODB.Connection")conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bancoteste.mdb")'aqui irei recuperar o que foi digitadonome = Request.Form("nome")lucent = Request.Form("lucent")senha = Request.Form("senha")'insiro no bd, mude o nome da tabelastrSQL = "INSERT into tabela "strSQL = strSQL & "(nome, lucent, senha)"strSQL = strSQL & "VALUES ('" & nome & "',"strSQL = strSQL & "'" & lucent & "',"strSQL = strSQL & "'" & senha & "' )"Set rsSQL = conexao.Execute(strSQL)'mostro mensagem de que foi inserido com sucessoResponse.Write "Inserido com sucesso!"%>tenho um bd como o nome de bancoteste.mbdnome textlucent numerosenha textnao consigo fazer funcionar da esse erro..Tipo de erro:Microsoft JET Database Engine (0x80004005)O campo 'tabela.senha' não pode ser uma seqüência de caracteres de comprimento nulo./insere.asp, line 22Me ajudem, por favor

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marhault    1

Marhault
Postado

No cadastro.htm o nome do campo da senha tá TEXT olha:

<p>Senha: <input type="Password" name="text" size="20"></p>
Coloca o nome correto:
<p>Senha: <input type="Password" name="senha" size="20"></p>
OKZ????

Compartilhar este post

Link para o post
Compartilhar em outros sites

masterofdreams    0

masterofdreams
Postado

vcs sao d+ mUITO OBRIGADO...MarhaultTenho mas uma duvida ve se você pode me ajudar,como é q eu faço para que quando o usuario entrar no site aparecer o nome de em algum lugar tipo..Logado como: masterofdreams ( Sair )eu estou com este tipo de login..adm.aspIf session("nivel_acesso") = "" Then Response.Write "Você não está logado!" Response.EndEnd If'Vamos então, verificar o nivel de acesso do usuário e inserirmos o conteúdo correspondente'Aqui, cada um insere o que desejar. Vou deixar em aberto para vocês poderem colocar o que precisam, ok?!'Vou colocar apenas alguns links, como se fosse um menuIf session("nivel_acesso") = 3 Then 'gerentes%> <a href="consultar.asp">Consultar usuário</a> <a href="inserir.asp">Inserir usuário</a> <a href="alterar.asp">Alterar usuário< /a> <a href="inserir.asp">Deletar usuário</a> <a href="relatorios.asp">Verificar relatórios</a> <%Elseif session("nivel_acesso") = 2 Then 'supervisores%> <a href="consultar.asp">Consultar usuário</a> <a href="alterar.asp">Alterar usuário</a><%Else 'estagiários%> <a href="consultar.asp">Consultar usuário</a> <%End If%>que quando o usuario entra ele clica no consultar.aspe puxa este arquivo teste.htm <html> <head> <title>teste</title> <meta name="Author" CONTENT="Fabiano Dos SANTOS Bello"> </head> <body bgcolor="#88D448"> <center> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#4,0,0,0" width="600" height="300"> <param name="SRC" value="TESTE2.swf"> <embed src="TESTE2.swf" pluginspage="http://www.macromedia.com/shockwave/download/" type="application/x-shockwave-flash" width="600" height="300"> </embed> </object> </center> </body></html>seria neste arquivo que ficaria o nome do cara.. COMO ?você SABE ME INFORMAR..OBRIGADO..

Compartilhar este post

Link para o post
Compartilhar em outros sites

masterofdreams    0

masterofdreams
Postado

ta ai´´´login.asp<%'Efetuando a conexão com a base de dados criadaSet Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("/banco.mdb") Conn.open'Vamos capturar o login e a senha digitada no firmuláriologin2 = Request.Form("txt_login")senha2 = Request.Form("txt_senha") 'Agora verificamos se o usuário e a senha estão corretosSQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "Set RS = Conn.Execute(SQL)'Caso não esteja correto, indicamos o erroIf RS.EOF Then Response.Write "usuário ou senha inválida!" Response.EndEnd If'Se chegou até aqui, é porque o login e senha estão corretos.'Vamos então verificar o nível de acesso do usuário.session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginasResponse.Redirect "adm.asp" 'página restrita%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marhault    1

Marhault
Postado

nesse login.asp você coloca assim:

<%'Efetuando a conexão com a base de dados criadaSet Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("/banco.mdb") Conn.open'Vamos capturar o login e a senha digitada no firmuláriologin2 = Request.Form("txt_login")senha2 = Request.Form("txt_senha") 'Agora verificamos se o usuário e a senha estão corretosSQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "Set RS = Conn.Execute(SQL)'Caso não esteja correto, indicamos o erroIf RS.EOF ThenResponse.Write "usuário ou senha inválida!"Response.EndEnd If'Se chegou até aqui, é porque o login e senha estão corretos.'Vamos então verificar o nível de acesso do usuário.session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginassession("nome_usuario") = RS("login")Response.Redirect "adm.asp" 'página restrita%>
E nas páginas q você quiser pegar o nome do usuário você coloca assim:
<%=session("nome_usuario")%>
OKZ????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marhault    1

Marhault
Postado

Tenta denovo... arrumei:

<%'Efetuando a conexão com a base de dados criadaSet Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("/banco.mdb") Conn.open'Vamos capturar o login e a senha digitada no firmuláriologin2 = Request.Form("txt_login")senha2 = Request.Form("txt_senha") 'Agora verificamos se o usuário e a senha estão corretosSQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "Set RS = Conn.Execute(SQL)'Caso não esteja correto, indicamos o erroIf RS.EOF ThenResponse.Write "usuário ou senha inválida!"Response.EndEnd If'Se chegou até aqui, é porque o login e senha estão corretos.'Vamos então verificar o nível de acesso do usuário.session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginassession("nome_usuario") = RS("login")Response.Redirect "adm.asp" 'página restrita%>
Pra pegar o nome do usuário nas outras página:
<%=session("nome_usuario")%>
OKZ

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito