Ir para conteúdo
Fórum Script Brasil
  • 0

Login

HiKo

Perguntado por HiKo,

 Share

Pergunta

7 respostass a esta questão

Posts Recomendados

  • 0
ursolouco

ursolouco

Postado
Postado

Brother!!

Estrutura da Tabela 'Login'

user posted image

Login.asp

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Administra&ccedil;&atilde;o de Noticias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.texto {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
	color: #FFFFFF;
}
.caixa {
	font-family: Verdana;
	font-size: 10px;
	color: #FFCC00;
	background-color: #000000;
	border: 1px solid #F7F7F7;
}
-->
</style>
<style type="text/css">
<!--
.botao {
	font-family: Verdana;
	font-size: 10px;
	color: #FFFFFF;
	background-color: #000000;
	border: 1px solid #FFFFFF;
}
-->
</style>
</head>

<body bgcolor="#000000" leftmargin="0" topmargin="0">
<form name="" method="post" action="Enviar.asp">
  <table width="555" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="208" height="134">&nbsp;</td>
      <td width="347">&nbsp;</td>
    </tr>
    <tr> 
      <td height="122">&nbsp;</td>
      <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td height="12" colspan="7" valign="top"><p align="center" class="texto"><u>Sergio 
                Escadinha - &nbsp;Administra&ccedil;&atilde;o de Noticias !</u></p></td>
          </tr>
          <tr> 
            <td height="32" colspan="7" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
          </tr>
          <tr> 
            <td width="85" rowspan="4" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
            <td height="18" colspan="2" valign="middle"> <p align="right" class="texto">Usu&aacute;rio:</p></td>
            <td colspan="3" valign="middle"> <p class="texto">&nbsp; 
                <input name="Usuario" type="text" class="caixa" id="Usuario" size="16" maxlength="16">
              </p></td>
            <td width="99" rowspan="4" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
          </tr>
          <tr> 
            <td height="20" colspan="2" valign="middle"> <p align="right" class="texto">Senha:</p></td>
            <td colspan="3" valign="middle"> <p class="texto">&nbsp; 
                <input name="Senha" type="password" class="caixa" id="Senha" size="12" maxlength="12">
              </p></td>
          </tr>
          <tr> 
            <td height="20" colspan="5" valign="top"><p class="texto">&nbsp;</p></td>
          </tr>
          <tr> 
            <td width="29" height="20">&nbsp;</td>
            <td colspan="2" valign="top"><p class="texto"> 
                <input name="Submit" type="submit" class="botao" value="Enviar">
              </p></td>
            <td width="66" valign="top"><input name="Submit2" type="reset" class="botao" value="Redefinir"></td>
            <td width="19"></td>
          </tr>
          <tr>
            <td height="1"></td>
            <td></td>
            <td width="26"></td>
            <td width="23"></td>
            <td></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</form>
</body>
</html>
Enviar.asp 
<html>
<head>
<title>Enviar.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.textoErro {
	font-family: Verdana;
	font-size: 10px;
	font-weight: bold;
	color: #FFFFFF;
	text-align: center;
	vertical-align: middle;
}
-->
</style>
<style type="text/css">
<!--
a:link {
	color: #FFFFFF;
}
a:visited {
	color: #FFFFFF;
}
a:hover {
	color: #FFFFFF;
	text-decoration: underline;
}
-->
</style>
<style type="text/css">
<!--
a {
	text-decoration: none;
}
-->
</style>
</head>
<body bgcolor="#000000" text="#FFFFFF" leftmargin="0" topmargin="0">
<%	

	Usuario = Trim(CStr(Request.Form("Usuario")))
	Senha = Trim(CStr(Request.Form("Senha")))

	If Usuario = "" Then
  Response.Write("<br>"& "<p class='textoErro'>"& "Preencha o campo usuario" & "</p>" & "<br>")
  Response.Write("<p class='textoErro'>"& "<a href='#' onClick='history.back()'>" & "Voltar" & "</a>"& "</p>")
  Response.End()
	End If

  If Senha = "" Then
  Response.Write("<br>"& "<p class='textoErro'>"& "Preencha o campo senha!" & "</p>" & "<br>")
  Response.Write("<p class='textoErro'>"& "<a href='#' onClick='history.back()'>" & "Voltar" & "</a>"& "</p>")
  Response.End()
	End If

	cBanco = Server.MapPath("./db/Geral.mdb")
	strConn = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = "& cBanco &";"
	Set Conn = Server.CreateObject("adodb.connection")
	Conn.Open(strConn)
	Set Rs = Server.CreateObject("adodb.recordset")

	Function vUser()
  cSQL = "Select * From Login Where usuario = '"& Usuario &"';"
  Set Rs = Conn.Execute(cSQL)
  If Not Rs.EOF Then	'se localizar o usuario, olhe a senha
  	If Rs("Senha") = Senha then
    Session("Log") = "Ok"
  	Else
    Session("Log") = "False"
  	End If
  End if
	End Function 
	Call vUser

	If Session("Log")<> "Ok" Then
  Response.Write("<br>"& "<p class='textoErro'>"& "Usuario ou senha invalida!" & "</p>" & "<br>")
  Response.Write("<p class='textoErro'>"& "<a href='#' onClick='history.back()'>" & "Voltar" & "</a>"& "</p>")
  Response.End()
	Else
  Response.Redirect("Admin.asp")	
	End if

%>
</body>
</html>
<%%>
Admin.asp 
<%
	If Session("Log")<>"Ok" Then
  Response.Redirect("Login.asp")
  Response.End()
	End If
%>
<html>
<head>
<title>Admin.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0">
</body>
</html>

Veja se pode lhe ajudar!!

Abraços!!!

[urso]

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

Hehe, posso fazer mais uma pergunta? onde ponho estes codigos? desculpem a ignorancia!!!

Brother!!!

É necessário criar os arquivos com os respectivos nomes...

Ex:

Login.asp

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Administra&ccedil;&atilde;o de Noticias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.texto {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #FFFFFF;
}
.caixa {
font-family: Verdana;
font-size: 10px;
color: #FFCC00;
background-color: #000000;
border: 1px solid #F7F7F7;
}
-->
</style>
<style type="text/css">
<!--
.botao {
font-family: Verdana;
font-size: 10px;
color: #FFFFFF;
background-color: #000000;
border: 1px solid #FFFFFF;
}
-->
</style>
</head>

<body bgcolor="#000000" leftmargin="0" topmargin="0">
<form name="" method="post" action="Enviar.asp">
 <table width="555" border="0" cellpadding="0" cellspacing="0">
   <!--DWLayoutTable-->
   <tr> 
     <td width="208" height="134">&nbsp;</td>
     <td width="347">&nbsp;</td>
   </tr>
   <tr> 
     <td height="122">&nbsp;</td>
     <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
         <!--DWLayoutTable-->
         <tr> 
           <td height="12" colspan="7" valign="top"><p align="center" class="texto"><u>Sergio 
               Escadinha - &nbsp;Administra&ccedil;&atilde;o de Noticias !</u></p></td>
         </tr>
         <tr> 
           <td height="32" colspan="7" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
         </tr>
         <tr> 
           <td width="85" rowspan="4" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
           <td height="18" colspan="2" valign="middle"> <p align="right" class="texto">Usu&aacute;rio:</p></td>
           <td colspan="3" valign="middle"> <p class="texto">&nbsp; 
               <input name="Usuario" type="text" class="caixa" id="Usuario" size="16" maxlength="16">
             </p></td>
           <td width="99" rowspan="4" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
         </tr>
         <tr> 
           <td height="20" colspan="2" valign="middle"> <p align="right" class="texto">Senha:</p></td>
           <td colspan="3" valign="middle"> <p class="texto">&nbsp; 
               <input name="Senha" type="password" class="caixa" id="Senha" size="12" maxlength="12">
             </p></td>
         </tr>
         <tr> 
           <td height="20" colspan="5" valign="top"><p class="texto">&nbsp;</p></td>
         </tr>
         <tr> 
           <td width="29" height="20">&nbsp;</td>
           <td colspan="2" valign="top"><p class="texto"> 
               <input name="Submit" type="submit" class="botao" value="Enviar">
             </p></td>
           <td width="66" valign="top"><input name="Submit2" type="reset" class="botao" value="Redefinir"></td>
           <td width="19"></td>
         </tr>
         <tr>
           <td height="1"></td>
           <td></td>
           <td width="26"></td>
           <td width="23"></td>
           <td></td>
           <td></td>
           <td></td>
         </tr>
       </table></td>
   </tr>
 </table>
</form>
</body>
</html>

Melhorou ?

Link para o comentário
Compartilhar em outros sites
  • 0
jissa

jissa

Postado
Postado

hehehe.. o Urso ta Pescando, fritando o peixe e ainda vai ensinar a comer...

heheh

Hiko.. alem deste codigo voce tera que controlar as paginas que vao ficar nesta zona restrita.... muito cuidado.. se não voce só tera o login funcionando e qualquer um pode ver o restante do Site...

Da uma lidinha numa apostila..

entra aqui: http://asp.scriptbrasil.com/ va no final da pagina tem muitas la para dar uma olhada.. assim voce faz algo melhor e pode ateh entender alguma coisa que o louco do urso ai..

Abracos e Boa sorte

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...