Ir para conteúdo

POWERED BY:

Arquivado

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

masterofdreams

Cadastro , complicado

Por , em ASP Clássico

Recommended Posts

masterofdreams    0

masterofdreams
Postado

Olha so galera eu tenho estes arquivos.Login.aspdefault.htmadm.aspfuncionando perfeitamente, como é que eu faço para criar um cadastro.asp deireto neste bdnome = textolucent = textosenha = texto/ password-----------------------------------------------------------------------segue abaixo os codigos-----------------------------------adm.asp<%'A primeira coisa a ser feita é verificar se o usuário está logadoIf 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="/turn/index3.htm">home page</a> <%Elseif session("nivel_acesso") = 2 Then 'supervisores%> <a href="\teste2\menu.asp">Cadastrar Usuários</a> <%Else 'estagiários%> <meta http-equiv="Refresh" content="03; URL=/hdvelox/index3.htm"><div align="center"><img src="velox_logo_Verde.gif" width="334" height="279"> </div> <title></title><center> </center><BODY bgcolor="#88d448" text="white"><p align="center"> </p><p align="center"><font face="Pyxidium Caps" color="#88d448 " size="4">Você concluiu com êxitoo login e senha e será redirecionado para turn onn em 03 segundos</font><font face=Pyxidium Caps" size="2" color="#0000FF">.</font></p><%End If%>-----------------------------------------------------------------------------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 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%>------------------------------------------------------------------------///----------------------------------------------------------default.htm<title>Turn Off - Página de Logon</title><body background="file:///C|/Verde.gif"><form action="login.asp" method="post" name="login" id="login"><p> </p><p> </p><p align="center"><img src="file:///C|/Inetpub/wwwroot/chave2.gif" width="35" height="34"></p><table width="20%" border="1" align="center" cellpadding="5"cellspacing="0" bordercolor="#CCCCCC" class="categoria"><tr> <td><strong><font color="#FFFFFF">Login:</font></strong></td><td><div align="left"> <input name="txt_login" type="text" class="form" id="txt_login" size="10" maxlength="8"></div></td></tr><tr> <td><strong><font color="#FFFFFF">Senha:</font></strong></td><td><div align="left"> <input name="txt_senha" type="password" class="form" id="txt_senha" size="10" maxlength="8"></div></td></tr><tr> <td> </td><td align="right"> <div align="left"> <input name="Enviar" type="submit" class="Botao" id="Enviar" value="ENVIAR">    </div></td></tr></table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

carol311    0

carol311
Postado

não entendi bem....você quer saber como através da página o usuário cadastrar nome, login e senha?se for isso coloca seu emai ai que eu te mando o codigo.

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