..:: MX Studio Fóruns ::..: Sistema Administrativo - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Sistema Administrativo

#1 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2075
  • Joined: 04-November 08

Posted 13 June 2009 - 02:34 PM

Neste artigo , iremos ver como ter ums sistema administrativo, onde poderemos fazer um Lgin no site, entar na parte administrativa do site, nesta teremos uma pagina de administração, que poderemos, pesquisar, incluir, excluir,atualizar e caso o user tenha esquecido sua senha irmos recuperar.Começaremos pela estrutura de banco de dados, hoje utilizaremos o MS Access, com um banco chamado quaddra e a tabela de Login, segue a abaixo:

Tabela – login:

• Login – Texto - login do user (cliente)
• Email – Texto - email do user para quando esquecer senha ,ter um campo a + p/ procura
• Senha – Texto - senha do user
• Código - Numeração Automática - codigo para identificar o user

Vamos começar com o formulário para efetuar o login.

Logincli_form_triena.asp

CÓDIGO
<% Option Explicit
'declara as var
dim varmsgeof, bc, data
'recupera a msgeof do erro no login_action
varmsgeof=request.querystring("msgeof")%>

<script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Erro","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>
<script language="JavaScript">
function novajan1(){
window.open("terminar_treina.asp","Encerrar", "width=260,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<script language="JavaScript">
function novajan2(){
window.open("efetuarlog_treina.asp","Encerrar", "width=150,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<%
Select case varmsgeof
case 1 'login vazio
response.write("<script>novajan();</script>")
case 2 'senha vazia
response.write("<script>novajan();</script>")
case 3 'login inválido
response.write("<script>novajan();</script>")
case 4 'senha incorreta
response.write("<script>novajan();</script>")
case 5'se user jah logado
response.write("<script>novajan();</script>")
case 6   ' user naun está logado,por isso naun tem permissaun para entrar em atualizacaun/suporte
response.write("<script>novajan2();</script>")
end select %>

<HTML>
<HEAD>
<TITLE>Login Clientes</TITLE>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<table width="100%" border="0" height="445">
  <tr>
    <td height="378"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#666666"><b><font color="#336699">::
        Senhores Clientes para sua maior <br>
        seguran&ccedil;a solicitamos sua identifica&ccedil;&atilde;o <br>
        para poder ter acesso a &aacute;rea restrita a voc&ecirc;.</font></b></font><font face="Arial, Helvetica, sans-serif" size="1" color="#666666"><b>
        </b></font></p>
      <p>&nbsp;</p>
      <form name="form1" method="post" action="logincli_action_treina.asp">
        <table width="85%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699">
          <tr bgcolor="#666666">
            <td width="4%" bgcolor="#666699"><img src="imgs/curva.gif" width="10" height="19"></td>
            <td width="96%" bgcolor="#336699"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b><font size="3">::
                </font>Porfavor efetue seu login</b></font></div></td>
          </tr>
          <tr bgcolor="#666666">
            <td width="4%" bgcolor="#336699">&nbsp;</td>
            <td width="96%" bgcolor="#336699">&nbsp;</td>
          </tr>
        </table>
        <table width="85%" border="0" cellspacing="0">
          <tr bgcolor="#336699">
            <td colspan="3"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>&nbsp;Login:
              &nbsp;
              <input name=login size="12" maxlength="12">
              </b></font></td>
          </tr>
          <tr bgcolor="#336699">
            <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b>&nbsp;Senha:
              <input type=password name=senha size="12" maxlength="12">
              &nbsp;&nbsp;&nbsp;<span class="preto">
              <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
              </span></b></font></td>
          </tr>
          <tr bgcolor="#336699">
            <td height="2" width="41%"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><strong>Esqueceu
                a senha clike <a href="esqsenha_form_treina.asp">Aqui</a></strong></font></div></td>
            <td width="42%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><b>Para
                efetuar Logo-off clique</b></font></div></td>
            <td height="2" width="17%"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0','width','35','height','19','src','logoff','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','scale','exactfit','bgcolor','#336699','movie','logoff' ); //end AC code
            </script>
              <noscript>
              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="35" height="19">
                <param name=movie value="logoff.swf">
                <param name=quality value=high>
                <param name="BGCOLOR" value="#336699">
                <param name="SCALE" value="exactfit">
                <embed src="logoff.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" scale="exactfit" width="35" height="19" bgcolor="#336699"> </embed>
              </object>
              </noscript>            </td>
          </tr>
        </table>
    
      </form>
      </td>
  </tr>
</table>
</BODY></HTML>


Percebam , que neste código, temos um Select Case, que conforme a querystring retornada, será exibido, uma determinada mensagem de erro, e quando a mensagem for exibida, ela se auto fechará depois de 10000 milisegundos, isso devido a na pagina de erro chamarmos a função em Javascript fechapop, que utilizamos o function window.setTimeout, invocando um window.close.Cada Case retornado é um erro, passado a uma variável por querystring.Abaixo o Select Case.

CÓDIGO
Select case varmsgeof
case 1 'login vazio
response.write("<script>novajan();</script>")
case 2 'senha vazia
response.write("<script>novajan();</script>")
case 3 'login inválido
response.write("<script>novajan();</script>")
case 4 'senha incorreta
response.write("<script>novajan();</script>")
case 5'se user jah logado
response.write("<script>novajan();</script>")
case 6   ' user naun está logado,por isso naun tem permissaun para entrar em atualizacaun/suporte
response.write("<script>novajan2();</script>")
end select %>


Abaixo o código que irá efetuar o login.

Para efetuar a conexão usamos um outro aqruivo que contem uma sub que é invocada no código para realizar a conexão:

Conexao1.asp

CÓDIGO
<% '----------------------
'    este arq. serve para estabelecer a conexao com o BD em Access
'    de nome quaddra.mdb
sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>


LoginCli_action_treina.asp

CÓDIGO
<% Option Explicit
'declara as var
dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data
'recupera as var
varlogin=Trim(request.form("login"))
varsenha=Trim(request.form("senha"))
varlogin=Replace(varlogin,"'","")
varsenha=Replace(varsenha,"'","")
if varlogin="" then
response.redirect("logincli_form_treina.asp?msgeof=1")
end if
if varsenha="" then
response.redirect("logincli_form_treina.asp?msgeof=2")
end if
if Session("logado")=True then
response.redirect("logincli_form_treina.asp?msgeof=5")
end if
%>
<!--#include file="conn/conexao1.asp"-->
<%
call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
rs.open SQL,conexao,1,3
    if rs.eof then
       response.redirect("logincli_form_treina.asp?msgeof=3")
    else
        if Lcase (varsenha) <> Lcase(rs("senha")) then
            response.redirect("logincli_form_treina.asp?msgeof=4")
            session("logado")=False
        else
            session("logado")=True
            session("senha")=varsenha
            session("login")=varlogin
            response.Redirect("administracao_treina.asp")
        end if
    end if
set rs=nothing
call fechaconexao%>


Para esta tarefa usando uma string SQL SELECT para selecionar os dados.

"SELECT * FROM login WHERE login='"&varlogin&"'"

A cláusula WHERE é usada para extrair apenas os registros que cumprir um determinado critério.
SQL WHERE Sintaxe
SELECT column_name(s)
FROM table_name
WHERE column_name operator value

Após conseguir realizar o login , o user será redirecionado para apagina de administração, onde poderá, selecionar os dados, excluir,atualizar e pesquisar.

Administração_treina.asp
CÓDIGO
<%response.buffer=true%>
<%
'------------------------------------------------------------------------------------------------
' Este ASP exibe td´z as opçoes para o admin fazer o controle de seu
' usuarios podendo ter total controle no BD
'------------------------------------------------------------------------------------------------
%>

<HTML>
<HEAD>
<TITLE>Administração</TITLE>

<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</HEAD>



<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<RightClick> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2" COLOR="#666666"><B><FONT COLOR="#336699">::
Aqui voc&ecirc; poder&aacute; administrar sua conta, e navegar nas &aacute;reas
restritas a voc&ecirc; cliente.<BR> </FONT> <BR> <BR> <BR> <BR> <BR> </B></FONT>
<P><FONT FACE="Arial, Helvetica, sans-serif" SIZE="1"><B>

<% 'declaro as var.
     dim conexao, varmsg, rs, SQL, conDBQ, constring, varmsgeof, varloginsession, data
  
   'recupero as var.
   varmsgeof=request.querystring("msgeof")
   varmsg=request.querystring("msg")
   varloginsession=Session("login")
   %>
  
   <script LANGUAGE="JavaScript">
function novajan3(){
window.open ("proibidox.asp","Proibido","width=180,height=200,scrollbar=no,status=yes,resize=no")
}
</SCRIPT> <script LANGUAGE="JavaScript">
function novajan2(){
window.open ("proibido.asp","Erro","width=180,height=200,scrollbar=no,status=yes,resize=no")
}
</SCRIPT> <script LANGUAGE="JavaScript">
function novajan(){
window.open ("sucesso_treina.asp","Login","width=180,height=200,scrollbar=no,status=yes,resize=no")
}
</SCRIPT> <% Select case varmsgeof  
      case 11  'sem ser o admin - xanburzum gera o erro
      response.write("<script>novajan2();</script>")
      case 12  ' proibido excluir-me, o admin
           response.write("<script>novajan3();</script>")
   end select

Select case varmsg
    case 1  'mensagem de sucesso do incluir
    response.write("<script>novajan();</script>")
    case 2  ' mensagem de sucesso do atualizar
    response.write("<script>novajan();</script>")
    case 3  'mensagem de sucesso do excluir
    response.write("<script>novajan();</script>")
  end select
  
  
  'crio a conexao%>
<!--#include file="conn/conexao1.asp"-->
<% call abreconexao
            
  'crio o rs
  set rs=Server.CreateObject("ADODB.Recordset")
  'crio o SQL
  SQL="SELECT * FROM login ORDER BY login"
  rs.open SQL,conexao,1,3
   %>
    </B></FONT></P><TABLE WIDTH="95%" BORDER="0" CELLPADDING="0" CELLSPACING="0" BGCOLOR="#666666" ALIGN="center">
<TR BGCOLOR="#336699"> <TD WIDTH="2%"> <DIV ALIGN="left"><B><IMG SRC="file:///A|/asp/imgs/curva.gif" WIDTH="10" HEIGHT="19"></B></DIV></TD><TD WIDTH="98%">
<DIV ALIGN="center"><B><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2" COLOR="#FFFFFF">::
Seja Bem-Vindo <%=Ucase(varloginsession)%></FONT></B></DIV></TD></TR> <TR BGCOLOR="#336699">
<TD HEIGHT="10" COLSPAN="2"> <DIV ALIGN="center"><B><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#66ffff">Administra&ccedil;&atilde;o
de Usu&aacute;rios</FONT></B></DIV></TD></TR> <TR BGCOLOR="#336699"> <TD COLSPAN="2" HEIGHT="2">&nbsp;</TD></TR>
<TR BGCOLOR="#336699"> <TD COLSPAN="2" HEIGHT="16"> <DIV ALIGN="right"><A HREF="pesquisa_form_treina.asp"><IMG SRC="imgs/busca2.gif" BORDER="0" ALT="Pesquisar na base de dados" WIDTH="78" HEIGHT="21"></A>&nbsp;</DIV></TD></TR>
<TR BGCOLOR="#336699"> <TD COLSPAN="2" HEIGHT="2"> <DIV ALIGN="right">
        <script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0','width','80','height','20','src','incluir','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','bgcolor','#336699','base','.','movie','incluir' ); //end AC code
</script><noscript><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" CODEBASE="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH="80" HEIGHT="20">
          <PARAM NAME="BGCOLOR" VALUE="#336699">
          <PARAM NAME="BASE" VALUE=".">
          <PARAM NAME=movie VALUE="incluir.swf">
          <PARAM NAME=quality VALUE=high>
          <EMBED SRC="incluir.swf" QUALITY=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" WIDTH="80" HEIGHT="20" BGCOLOR="#336699" BASE=".">
          </EMBED> </OBJECT></noscript>
        &nbsp;</DIV></TD></TR> </TABLE><TABLE WIDTH="95%" BORDER="1" BORDERCOLOR="#666666" BGCOLOR="#e6e6e6" ALIGN="center">
<TR> <TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Login</B></FONT></DIV></TD><TD WIDTH="15%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Senha</B></FONT></DIV></TD><TD WIDTH="25%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Email</B></FONT></DIV></TD><TD WIDTH="20%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Atualizar</B></FONT></DIV></TD><TD WIDTH="24%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Excluir</B></FONT></DIV></TD></TR>
<%  while not rs.eof%>
<TR> <TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("login")%></B></FONT></DIV></TD><TD WIDTH="15%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("senha")%></B></FONT></DIV></TD><TD WIDTH="25%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("email")%></B></FONT></DIV></TD><TD WIDTH="20%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="atualizar_form_treina.asp?codigo=<%=rs("codigo")%>">Atualizar</A></B></FONT></DIV></TD><TD WIDTH="24%">
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="excluir_form_treina.asp?codigo=<%=rs("codigo")%>">Excluir</A></B></FONT></DIV></TD></TR>
<% rs.movenext
      wend
    set rs=nothing
   call fechaconexao
%> </TABLE><P><BR></P></RightClick>
</BODY></HTML>


Para atualizar, passamos no link a pagina de atualização junto com o código de ID do cliente, assim ,quando clicado, ele passará para uma pagina, os dados via querystring que será recuperado para posteriormente uma nova consulta.

<A HREF="atualizar_form_treina.asp?codigo=<%=rs("codigo")%>">Atualizar</A>

O mesmo será feito para excluir.

Atualizando os Dados

Como mencionado acima, na pagina de administração, é formado dentro de um loop os dados do cliente, juntamente com um link para atualização , onde passamos o ID do cliente em um link, o qual recuperamos para poder exibir os dados corretos do mesmo.

Atualizar_form_treina.asp

CÓDIGO
<%  'aplicaçaun para atua;izar os dados do usuário na base de dados do access
    'onde através do request.querystring do código ,faremos uma SELECT (SQL)
    'e jogaremos no value do form ,sendo postado através do post pra
    'atualizar_action.asp k fará o UPDATE
    
    Option explicit
    'declaro as var
    dim conexao, conDBQ, constring, rs, SQL, varcodigo
    'recupero a var
    varcodigo=request.querystring("codigo")
    
    'crio a conexao
    ' pasta conn dentro de wwwroot
    %>
<!--#include file="conn/conexao1.asp"-->
    <%call abreconexao
    'crio o recordset
    set rs=Server.CreateObject("ADODB.Recordset")
    SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
    rs.open SQL,conexao,1,3
    'crio o form para jogar os rs'z no value %>    
<html>
<head>
<title>Atualiza&ccedil;&atilde;o de Usu&aacute;rios</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#0000FF" alink="#FF0000">
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr> <td width="2%" bgcolor="#666666"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%" bgcolor="#336699">
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">::
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Atualizar
Dados do Usu&aacute;rio</font></b></div></td></tr> <tr bgcolor="#336699"> <td colspan="2" height="19">&nbsp;</td></tr>
<tr bgcolor="#336699"> <td height="72" colspan="2">
<form name="form1" method="post" action="atualizar_action_treina.asp">
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Login:</font></b>
<input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>">
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> </p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Email:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="email" size="48" maxlength="48" value="<%=rs("email")%>">
</font></b></p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Senha:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="password" name="senha" size="8" maxlength="8" value="<%=rs("senha")%>">
</font></b></p><p align="center">
          <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
</p></form></td></tr>
<% 'FECHO O RS
    set rs=nothing
    'fecha a conexao
    call fechaconexao%> </table>
</body>
</html>


Após, exibir os dados corretos,em um form, agora vamos atualizá-lo, como os novos dados digitados pelos user. Para atualizar os dados usando a SQL UPDATE é usada para atualizar os registros existentes em uma tabela.

SQL UPDATE Sintaxe

UPDATE table_name
SET column1=value, column2=value2,...
WHERE some_column=some_value

A cláusula WHERE especifica qual registro ou registros que devem ser atualizadas. Se você omitir a cláusula WHERE, todos os registros serão atualizados

Atualizar_action_treina.asp
CÓDIGO
<%    'aplicacaun para fazer o update dos dados do form atualizar_form.asp
      'onde recupero todos os dados dos campos do form,dou um replace nos ' por ""
    'e crio a SQL para efetuar o update depois redireciono p/ administracao.asp
    ' com passagem de parametro na URL msg=2
    
    option explicit
    'declaro as var
    dim conexao, conDBQ, constring, rs, SQL, varcodigo, varlogin, varsenha, varemail
    'recupero as var
    varcodigo=trim(request.form("codigo"))
    varlogin=trim(request.form("login"))
    varsenha=trim(request.form("senha"))
    varemail=trim(request.form("email"))
    ' retiro qqer erro de digitaçao do user ,no caso ( aspas simples ')
    varlogin=replace (varlogin,"'","")
    varsenha=replace  (varsenha,"'","")
    varemail=replace(varemail,"'","")
    'crio a conexao%>
    <!--#include file="conn/conexao1.asp"-->
    <% 'abro a conexao
    call abreconexao
    'crio o rs
    set rs=Server.createobject("ADODB.Recordset")
    'crio a SQL
    SQL="UPDATE login SET login='"&varlogin&"',senha='"&varsenha&"',email='"&varemail&"' WHERE codigo="&varcodigo&""
    rs.open SQL,conexao,1,3
        if session("login") = "admin" then
            response.redirect("administracao_treina.asp?msg=2")
        else
            response.redirect("administracao1.asp?msg=2")
        end if
    'fecho o rs
    set rs=nothing
    'fecho a conexao
    call fechaconexao%>


Vejam também, que após realizar a atualização, o user é redirecionado para a pagina de admisntracao, com um parâmetro na querystring, que será recuperado e exibido uma mensagem de sucesso.

Excluindo Dados

O mesmo conceito é usado para excluir os dados.

CÓDIGO
<%    'excluir_form.asp recebe o codigo pela url, dou um request.querystring
      'e atribuo a varcodigo para poder fazer a SQL,monto um form com um input
    ' type hidden para passar o codigo para excluir_action.asp ( action do form)
    
    option explicit
    'declaro as var
    dim conexao, conDBQ, constring, rs, SQL, varcodigo
    'recupero a var
    varcodigo=request.querystring("codigo")
    if session("login") <> "admin" then
        response.redirect("administracao.asp?msgeof=11")
    else
        'crio a conexao%>
        <!--#include file="conn/conexao1.asp"-->
        <% 'abro a conexao
        call abreconexao
        'crio o rs
        set rs=Server.CreateObject("ADODB.Recordset")
        'crio a SQL
        SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
        rs.open SQL,conexao,1,3%>

<html>
<head>
<title>Excluir Usu&aacute;rio</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="79%" border="0" bgcolor="#336699" cellpadding="0" cellspacing="0">
<tr> <td width="2%"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%">
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">::
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Excluir
Usu&aacute;rio</font></b></div></td></tr> <tr> <td colspan="2"> <div align="center"></div><div align="center"></div><div align="center"></div><div align="center"></div></td></tr>
</table><table width="79%" border="0" cellpadding="0" cellspacing="0" bgcolor="#336699">
<tr> <td bgcolor="#336699" height="112">
<form name="form1" method="post" action="excluir_action_treina.asp">
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> <table width="100%" border="1" bordercolor="#e6e6e6">
<tr> <td width="19%"> <div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">C&oacute;digo</font></b></font></div></td><td width="24%">
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Login</font></b></font></div></td><td width="22%">
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Senha</font></b></font></div></td><td width="35%">
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email</font></b></font></div></td></tr>
<tr> <td width="19%"> <div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("codigo")%></font></font></font></b></font></div></td><td width="24%">
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("login")%></font></font></font></b></font></div></td><td width="22%">
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("senha")%></font></font></font></b></font></div></td><td width="35%">
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("email")%></font></font></font></b></font></div></td></tr>
<%'fecha o rs
  set rs=nothing
  'fecha a conexao
  call fechaconexao
  end if%> </table><p align="center">
          <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
</p></form></td></tr> </table>
<p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p>
</body>
</html>


Nesta exclusão, antes de efetuar , verificamos se o suer está querendo excluir o “admin”, caso o user seja igual ao admin, ele é redirecionado para a pagina de administração com uma mensagem de erro.Aqui usando a SQL DELETE é usada para excluir linhas em uma tabela.

SQL DELETE Sintaxe
DELETE FROM table_name

WHERE some_column=some_value

Observe a cláusula WHERE na sintaxe DELETE. A cláusula WHERE especifica qual registro ou registros que deveriam ser suprimidas. Se você omitir a cláusula WHERE, todos os registros serão apagados!

Excluir_action_terina.asp
CÓDIGO
<%    'aplicacaun para excluir os dados da base de dados do access,onde recupero
      'o codigo passado pelo excluir_form.asp do hidden,que no mesmo jah verifica
    'se o session = do admin (xanburzum);
    'depois de recuperar o codigo crio a conexao, o rs , o SQL dois SQL'z
    'um para selecionar o login para verificar se é o admin o outro
    'para executar a exclusaun e abro
    'se o rs("login") = xanburzum redireciono para administracao?msgeof=12
    'onde lá receberá uma popup k naun pode me excluir,senaun executa o sql
    
    Option explicit
    'declaro as var
    dim conexao, conDBQ, constring, rs, SQL, rsdel, SQLdel, varcodigo
    'recupero a var
    varcodigo=Trim(request.form("codigo"))
    'crio a conexao %>
    <!--#include file="conn/conexao1.asp"-->
    <% 'abro a conexao
    call abreconexao
    'crio o rs
    set rs=server.createobject("ADODB.Recordset")
    'crio o SQL
    SQL="SELECT login FROM login WHERE codigo="&varcodigo&""
    rs.open SQL,conexao,1,3
      'verifico atravez do select se o login é do admin
    if rs("login")= "admin" then
        response.redirect("administracao.asp?msgeof=12")
        set rs=nothing  'fecho o rs do select
    else
      'crio o rsdel para excluir o registro
        set rsdel=server.createobject("ADODB.Recordset")
        SQLdel="DELETE FROM login WHERE codigo="&varcodigo&""
        rsdel.open SQLdel,conexao,1,3
        response.redirect("administracao_treina.asp?msg=3")
        set rsdel=nothing
    end if
    'fecha a conexao
    call fechaconexao %>


Inserindo Dados

Com um formulário de entrada de dados para o cliente , iremos recuperar os mesmos, e submeter a uma pagina para inserir.

Incluir_form_treina.asp
CÓDIGO
<% 'aplicaçaun para efetuar a inclusao de dados
   'onde através de um form com os campos p/ inserir os valores
   'e serem postados para o inserir_action.asp
  
Option explicit
'declaro as var  
  dim varmsgeof
varmsgeof=request.querystring("msgeof") 'no caso de erro no incluir_action

    %>
    <script language="javascript">
    function novajan(){
window.open ("erro.asp","Erro","width=180,height=240,scrollbar=no,status=yes,resize=no")
}
</script>
<%    
    if varmsgeof <> "" then
    response.write("<script>novajan();</script>")
    end if
    if Session("logado")="falso" then
    response.write("<script>novajan();</script>")
    end if
    %>

<html>
<head>
<title>Incluir Login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
<style>
body {SCROLLBAR-FACE-COLOR: #336699; SCROLLBAR-HIGHLIGHT-COLOR: #8080FF; SCROLLBAR-SHADOW-COLOR: #FFFFFF; SCROLLBAR-3DLIGHT-COLOR: #ffff99; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #E6E6E6; FONT-FAMILY: Arial, Verdana; SCROLLBAR-DARKSHADOW-COLOR: #008080 }
input {  font: normal 10px Verdana, Arial, Helvetica, sans-serif; color: #0000FF; background: #CCCCCC}
</style>
</head><body bgcolor="#FFFFFF" text="#000000">
<table width="75%" border="0" height="139" cellpadding="0" cellspacing="0" align="center">
<tr> <td bgcolor="#666666" width="2%"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td bgcolor="#336699" width="98%">
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="3">::
</font><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="2">Cadastro
de Login</font><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="3">
</font></b></div></td></tr> <tr bgcolor="#336699"> <td height="5" colspan="2">&nbsp;</td></tr>
<tr bgcolor="#e6e6e6"> <td height="163" colspan="2"> <form name="form1" method="post" action="incluir_action_treina.asp">
<table width="99%" border="0" bordercolor="#e6e6e6"> <tr> <td><b><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif">Entre
com o login: <input type="text" name="login" size="12" maxlength="12"> </font></b></td></tr>
<tr> <td height="12" bordercolor="0"><b><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif">Entre
com sua senha: <input type="password" name="senha" size="8" value="" maxlength="8">
</font></b></td></tr> <tr> <td bordercolor="0"><b><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif">Entre
com o email: <input type="text" name="email" size="48" maxlength="48"> </font></b></td></tr>
<tr> <td bordercolor="0"> <div align="center">
                <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22" onClick="MM_validateForm('login','','R','email','','RisEmail','senha','','R');MM_popupMsg('Obrigado por se cadastrar.');return document.MM_returnValue" align="middle">
</div></td></tr> </table></form></td></tr> </table>
<p>&nbsp;</p>
</body>
</html>


Mas ,antes de inserir, iremos verificar através de uma consulta, se os dados , já existem no banco, caso exista, iremos redirecionar o user para a pagina de formula´rio novamente, com uma mensagem de erro, faremos isso através da SQL:

"SELECT login FROM login WHERE login='"&varlogin&"'"

rsselect.open SQLselect,conexao,1,3
if not rsselect.eof then
response.redirect("incluir_form_treina.asp?msgeof=1")

Precebam que nesta parte do código, if not rsselect.eof then, se não for final do arquivo, ou seja, já existe os dados, caso contrário, inserimos ele, e redirecionamos, para a pagina de administração com sucesso.

Incluir_action_treina.asp

CÓDIGO
<% 'incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
   'no BD através de SQL Select if not rs.eof then
   'redireciono para incluir_form.asp?msgeof=1 else
   'incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1
   'e lá receberá um mensagem de sucesso
  
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
           response.redirect("incluir_form_treina.asp?msgeof=1")
        set rsselect=nothing
   else    
           'crio o rsinsert para inseiri os dados no bd
            set rsinsert=server.createobject("ADODB.Recordset")
        'crio o SQLinsert pra incluir no bd
        SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
        rsinsert.open SQLinsert,conexao,1,3
        response.redirect("administracao_treina.asp?msg=1")
        set rsinsert=nothing
    end if
    call fechaconexao %>



Pesquisando Dados

Para efetuar a busca nos registro da BD,onde através de um form com input type text onde o user entra com pesquisa que será submetida para o pesquisa_action.asp,fazendo a SQL, nesta aplicação darei um request da varmsgeof ,k irá retornar no caso de erro no action fazendo um if e mostrando um window.open.Usamos o operador LIKE ,que é usado em uma cláusula WHERE para procurar um determinado padrão em uma coluna.

Sintaxe SQL LIKE

SELECT column_name(s)
FROM table_name
WHERE column_name LIKE pattern

Pesquisa_form_treina.asp

CÓDIGO
<%      
        
        Option Explicit
        'declaro as var
        dim varmsgeof
        'recupero a var
        varmsgeof=request.querystring("msgeof")
        %>
        <script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Proibido","width=180,height=200,scrollbar=no,status=yes,resize=no")
}
</script>
<%
        if varmsgeof = 1 then 'porque naun achou nada na SQL select
            response.write("<script>novajan();</script>")
        end if
        
        'no caso de fazer uma pesquisa mais avançada com 2 tab.
        'eu aki criaria a conexao,crio o rs, crio am SQL
        'sql="select * from categoria order by categoria"
        'rs.open sql,conexao,1,3
        'crio o form com action para pesquisa_action.asp
        'crio o <select name="categoria" size="1">
        '{% while not rs.eof %}
        '<option value="{%=rs("cod_cat")%}">
        '{%rs("categoria")%}
        '</option>
        '{%rs.movenext
        'wend%}
        '</select>
        '{%fecha o rs
        'set rs=nothing
        'fecha a conexao
        'call fechaconexao
        'crio o input type text da pesquisa
        '<input type="text" name="categoria">
        
        %>

<html>
<head>
<title>Pesquisa</title>

</head>

<body bgcolor="#999999" text="#000000">
<table width="75%" border="0"> <tr> <td> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Pesquisa</font></b></div></td></tr>
<tr> <td height="2">&nbsp;</td></tr> <tr> <td> <form name="form1" method="post" action="pesquisa_action_treina.asp">
<b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Entre
com a Pesquisa:</font></b> <input type="text" name="pesquisa" size="35" maxlength="15">
        <input type="image" border="0" name="imageField" src="imgs/ok.gif" width="18" height="15" alt="pesquisar">
</form></td></tr> </table>
<p>&nbsp;</p>
</body>
</html>


Pesquisa_action_treina.asp
CÓDIGO
<%              
        Option Explicit
        'declaro as var
        dim conexao, conDBQ, constring, rs, SQL, varpesquisa
        'recupero a pesquisa
        varpesquisa=trim(request.form("pesquisa"))
        'crio a conexao
        %>
        <!--#include file="conn/conexao1.asp"-->
        <%'abro a conexao
        call abreconexao
        'crio o rs
        set rs=server.createobject("ADODB.Recordset")
        'crio a SQL
        SQL="SELECT * FROM login WHERE login LIKE '%"&VARPESQUISA&"%' ORDER BY login"
        rs.open SQL,conexao,1,3
        if rs.eof then
            response.redirect("pesquisa_form_treina.asp?msgeof=1")
        else%>
<html>
<head>
<title>Dados Encontrados</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#999999" text="#000000">
<table width="75%" border="1"> <tr> <td colspan="4"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Pesquisa
de <%= Ucase(varpesquisa)%></font></b></div></td></tr> <tr> <td colspan="4">&nbsp;</td></tr>
<tr> <td width="18%"> <div align="center"><font color="#666666"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">C&oacute;digo</font></b></font></div></td><td width="26%">
<div align="center"><font color="#666666"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Login</font></b></font></div></td><td width="22%">
<div align="center"><font color="#666666"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Senha</font></b></font></div></td><td width="34%">
<div align="center"><font color="#666666"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email</font></b></font></div></td></tr>
<% while not rs.eof %> <tr bgcolor="#CCCCCC"> <td width="18%"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs("codigo")%></font></b></div></td><td width="26%">
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs("login")%></font></b></div></td><td width="22%">
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs("senha")%></font></b></div></td><td width="34%">
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs("email")%></font></b></div></td></tr>
<%rs.movenext
  wend%> <tr> <td colspan="4"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Foram
encontrados <%=rs.recordcount%> registros para sua pesquisa.</font></b></td></tr>
<tr> <td colspan="4"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">P&aacute;gina
<%=rs.pagecount%> de <%=rs.pagecount%> </font></b></td></tr> <% 'fecha o rs
  set rs=nothing
  'fecha a conexao
  call fechaconexao
  end if %> </table>
<table width="75%" border="0" height="65">
  <tr>
    <td> <div align="center"><font color="#999999"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666666">Resolu&ccedil;&atilde;o
        m&iacute;nima 800x600.</font></b></font></div></td>
  </tr>
  <tr>
    <td> <div align="center"><font color="#999999"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
        <font color="#666666">&copy; Copyright 2000-2002 - Todos os direitos reservados</font></font></b></font></div></td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html>


Recuperando Senha

Vários sistemas, utilizam este recurso, para que quando o user esquecer ou perder sua senha, a mesma seja enviada via email para o “esquecidinho”, teremos um formulário, omde o user irá entrar com seu login, nome e email, com esses dados faremos uma consulta no bd e depois enviar a senha por email, este é um siples método, mas pode mos implementar muito mais, para ter maior segurança, como por exemplo validar algumas outros informações.

Esqsenha_form_treina.asp

CÓDIGO
<% Option Explicit
'declara as var
dim varmsgeof,varmsg
'recupera a msgeof do erro no login_action
varmsgeof=request.querystring("msgeof")
varmsg=request.querystring("msg")%>

<script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Erro","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>

<script language="javascript">
function novajan1(){
window.open ("sucesso_treina.asp","Sucesso","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>

<%
if varmsg = 1 then
response.Write("<script>novajan1();</script>")
end if

Select case varmsgeof
case 1 'nome vazio
response.write("<script>novajan();</script>")
case 2 'login vazio
response.write("<script>novajan();</script>")
case 3 'email vazio
response.write("<script>novajan();</script>")
case  4 'login incorreto
response.write("<script>novajan();</script>")
case  5 'email incorreto
response.write("<script>novajan();</script>")
end select %>

<HTML>
<HEAD>
<TITLE>Recuperação de senha</TITLE>
<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<table width="100%" border="0" height="445">
  <tr>
    <td height="378"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#666666"><b><font color="#336699">::
        Entre com as inform&ccedil;&otilde;es para receber sua senha por email.</font></b></font></p>
      <p>&nbsp;</p>
      <form name="form1" method="post" action="file:///C|/Documents%20and%20Settings/x/Desktop/Treinamento/esqsenha_action_treina.asp">
        <table width="85%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699">
          <tr bgcolor="#666666">
            <td width="4%" bgcolor="#666699"><img src="file:///C|/Documents%20and%20Settings/x/Desktop/Treinamento/imgs/curva.gif" width="10" height="19"></td>
            <td width="96%" bgcolor="#336699"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b><font size="3">::
                </font>Por favor entre com seu login e email</b></font></div></td>
          </tr>
          <tr bgcolor="#666666">
            <td width="4%" bgcolor="#336699">&nbsp;</td>
            <td width="96%" bgcolor="#336699">&nbsp;</td>
          </tr>
          <tr bgcolor="#666666">
            <td colspan="2" bgcolor="#336699"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>&nbsp;Nome:
              &nbsp;
              <input name=nome id="nome" size="20" maxlength="12">
              </b></font></td>
          </tr>
        </table>
        <table width="85%" border="0" cellspacing="0">
          <tr bgcolor="#336699">
            <td colspan="3"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>&nbsp;Login:
              &nbsp;
              <input name=login size="12" maxlength="12">
              </b></font></td>
          </tr>
          <tr bgcolor="#336699">
            <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b>&nbsp;Email:
              <input type=text name=email size="30" maxlength="30">
              &nbsp;&nbsp;&nbsp;<span class="preto"> </span></b></font></td>
          </tr>
          <tr bgcolor="#336699">
            <td height="2" width="41%"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b><span class="preto">
                <input type="image" border="0" name="imageField" src="file:///C|/Documents%20and%20Settings/x/Desktop/Treinamento/imgs/enviar.gif" width="87" height="22">
                </span></b></font></div></td>
            <td width="42%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"></font></div></td>
            <td height="2" width="17%">&nbsp;</td>
          </tr>
          <tr bgcolor="#336699">
            <td height="2" colspan="2">&nbsp;</td>
            <td height="2">&nbsp;</td>
          </tr>
        </table>
    
      </form>
      </td>
  </tr>
</table>
</BODY></HTML>


Abaixo o action que irá validar e enviar a senha.

Esqsenha_action_treina.asp

CÓDIGO
<% Option Explicit
' Declaro as variaveis
Dim varnome,varlogin,varemail,conDBQ,constring,conexao,rs,SQL,objmail

' recupero as variaveis

varnome=Trim(request.Form("nome"))
varemail=Trim(request.Form("email"))
varlogin=Trim(request.Form("login"))

if varnome = "" then
response.redirect("esqsenha_form_treina.asp?msgeof=1")
end if

if varlogin = "" then
response.redirect("esqsenha_form_treina.asp?msgeof=2")
end if

if varemail = "" then
response.redirect("esqsenha_form_treina.asp?msgeof=3")
end if

' crio a conexao
%>

<!--#include file="conn/conexao1.asp" -->

<%
' abro a conexao
call abreconexao
' crio o rs

Set rs= server.createobject("ADODB.Recordset")
' crio o SQL
SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
rs.open SQL,conexao,1,3
if rs.eof then
         response.Redirect("esqsenha_form_treina.asp?msgeof=4")
        else
            if LCase(varemail) <> LCase (rs("email")) then
                    response.Redirect("esqsenha_form_treina.asp?msgeof=5")
                  else
                  ' crio o objeto para envio de email
                  Set objmail= Server.CreateObject("CDONTS.NewMail")
                    objmail.from="xanburzum@terra.com.br"
                       objmail.to=varemail
                       objmail.subject="Sua senha"
                    objmail.body="Caro(a) " & varnome & " segue sua senha:  " &rs("senha")
                       objmail.send
               set objmail=nothing
        end if    
end if
response.Redirect("esqsenha_form_treina.asp?msg=1")
call fechanexaonexao
       %>


Finalizando agora teremos este arquivo que permite ao usuário a alterar sua senha, para isso é preciso fornecer a senha atual , a nova senha e redigitar a nova senha para confirmação.


Alterasenha_form_treina.asp

CÓDIGO
<html>
<head>
<title>Administradores</title>
</head>
<body bgcolor="#9999FF">
<table width="56%" border="1" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#FFFFFF">
    <td>
      <div align="center"><font color="#FF6633" face="Arial, Helvetica, sans-serif"><b>Altera&ccedil;&atilde;o
        de senha do Login: <%=UCase(Session("Login"))%></b></font></div>
    </td>
  </tr>
  <tr bgcolor="#CCCCCC">
    <td>
      <form method="post" action=" Alterasenha_action_treina.asp">
        <table width="85%" border="0" align="center">
          <tr>
            <td height="20" width="48%">&nbsp;</td>
            <td height="20" width="52%">&nbsp;</td>
          </tr>
          <tr>
            <td height="39" width="48%">
              <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Senha
                atual :</font></div>
            </td>
            <td height="39" width="52%">
              <input type="password" name="senhaAtual" maxlength="10" size="10">
            </td>
          </tr>
          <tr>
            <td height="39" width="48%">
              <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nova
                senha:</font></div>
            </td>
            <td height="39" width="52%">
              <input type="password" name="senhaNova" maxlength="10" size="10">
            </td>
          </tr>
          <tr>
            <td height="39" width="48%">
              <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Confirma
                senha:</font></div>
            </td>
            <td height="39" width="52%">
              <input type="password" name="senhaConfirma" maxlength="10" size="10">
            </td>
          </tr>
          <tr>
            <td height="39" colspan="2">
              <div align="center">
                <input type="submit" name="Entrar" value="Alterar">
              </div>
            </td>
          </tr>
        </table>
      </form>
    </td>
  </tr>
</table>
</body>
</html>


Abaixo o arquivo que irá trocar a senha.

Alterasenha_action_treina.asp

CÓDIGO
<%
Option Explicit
'Admin - alteração de senhas
%>
<%
Dim strSQL, Conexao, rs, varSenha, varSenhaAtual, varSenhaNova, varSenhaConfirma, varLinha
varSenhaAtual = Trim(Request.Form("SenhaAtual"))
varSenhaNova = Trim(Request.Form("SenhaNova"))
varSenhaConfirma = Trim(Request.Form("SenhaConfirma"))
varSenha = Session("Senha")
varSenha = Replace(varSenha, "'", "")
varSenhaNova = Replace(varSenhaNova, "'", "")
varSenhaConfirma = Replace(varSenhaConfirma, "'", "")

IF varSenha = varSenhaAtual AND varSenhaNova = varSenhaConfirma then
   strSQL = "UPDATE Login SET TXT_Senha = '" & varSenhaNova & "' "
   strSQL = strSQL & "WHERE TXT_Nome = '" & Session("Login") & "'"
   'abre a conexao
   Call abre_conexao

   'executa a instrução SQL
   Set rs = Conexao.Execute(strSQL)

   'fecha a conexao
   Call fecha_conexao
   Set rs = Nothing
   varLinha = 1
Else
   varLinha = 2
End IF
%>
<HTML>
<BODY bgcolor="#FFFFFF">
<DIV align="left">
  <table width="75%" border="0">
  <%
  IF varlinha = 1 then
  %>
    <tr>
      <td>
        <div align="center"><font color="#FF6633" face="verdana"><b><font color="#FF6633" face="verdana"><b><font color="#663399" face="verdana"><b><font size="4">Senha
          alterada com</font></b></font><font size="4"><br>
          <font color="#663399" face="verdana"><b><font size="4"><font color="#818181" size="6">S
          U C E S S O ! ! !</font> </font></b></font><font color="#FFFFFF" size="6">
          !</font></font></b></font></b></font></div>
      </td>
    </tr>
  <%
  Else
  %>
    <tr>
      <td>
        <div align="center"><font color="#663399" face="verdana" size="4"><b>Senhas
          nova e confirma est&atilde;o</b></font><br>
          <font color="#818181" face="verdana" size="6"><b>I N C O R R E T A S
          ! ! ! </b></font></div>
      </td>
    </tr>
  <%
  End If
  %>
  </table>
</DIV>
</BODY>
</HTML>


E por ultimo , a apgina de erro.

Erro_treina.asp

CÓDIGO
<html>
<head>
<title>Erro em tempo de execu&ccedil;&atilde;o</title>
<!-- <meta http-equiv="refresh" content="3;URL=java script:window.close();">-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript">
function fechapop(){window.setTimeout("window.close()",10000);
}
</script>
</head>
<body bgcolor="336699" text="#000000" onLoad="fechapop()">
<table width="80%" border="0" align="center">
  <tr>
    <td> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#CCCCCC"><i><font color="#FFFFFF" face="Arial, Helvetica, sans-serif">ERRO</font>
        </i> </font></b></div></td>
  </tr>
  <tr>
    <td> <p><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="1"><b>Ocorreu
        algum erro da seguinte proced&ecirc;ncia:</b></font></p>
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="1"><b>
        <font color="#33CCFF"># inclus&atilde;o, login inv&aacute;lido, senha
        incorreta, logon ativo, dados pendentes #</font></b></font></p></td>
  </tr>
  <tr>
    <td> <div align="center"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Resolu&ccedil;&atilde;o
        m&iacute;nima 800x600.</font></b></font></div></td>
  </tr>
  <tr>
    <td> <div align="center"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
        &copy; Copyright 2000-2014 - Todos os direitos reservados</font></b></font></div></td>
  </tr>
</table>
</body>
</html>


Fazendo LogOff

Terminar_treina.asp

CÓDIGO
<%response.buffer=true%>
<%Session.abandon%>


<html>
<head>

<script language="javascript">
function fechapop(){window.setTimeout("window.close()",10000);
}
</script>


<!-- <meta http-equiv="refresh" content="3;URL=" -->
<title>Encerrar sessão</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="336699" text="#000000" onLoad="fechapop()">
<table width="80%" border="0" align="center">
  <tr>
    <td height="21"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#CCCCCC"><i><font color="#e6e6e6">Obrigado
        <%=Ucase(session("login"))  %> </font><font color="#66FFFF"> </font> </i> </font></b></div></td>
  </tr>
  <tr>
    <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="1"><b><font color="#33CCFF">Voc&ecirc;
        saiu da sess&atilde;o Restrita.</font></b></font></div></td>
  </tr>
  <tr>
    <td> <div align="center"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Resolu&ccedil;&atilde;o
        m&iacute;nima 800x600.</font></b></font></div></td>
  </tr>
  <tr>
    <td> <div align="center"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
        &copy; Copyright 2000-2002 - Todos os direitos reservados</font></b></font></div></td>
  </tr>
</table>
</body>
</html>


E a pagina de sucesso

Sucesso_treina.asp

CÓDIGO
<html>
<head>
<title>Sucesso</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="5;URL=java script:window.close()">
</head>

<body bgcolor="#336699" text="#000000">
<table width="75%" border="0" height="29" align="center">
  <tr>
    <td height="15">
      <div align="center"><font color="#666666"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Sucesso</font></b></font></div>
    </td>
  </tr>
  <tr>
    <td height="8">
      <div align="center"><font color="#666666" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#33CCFF">Opera&ccedil;&atilde;o
        realizada com sucesso. Obrigado</font></b></font> <font color="#33CCFF"><%=Ucase(session("login")) %></font>
      </div>
    </td>
  </tr>
</table>
<table width="75%" border="0" height="65" align="center">
  <tr>
    <td> <div align="center"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Resolu&ccedil;&atilde;o
        m&iacute;nima 800x600.</font></b></font></div></td>
  </tr>
  <tr>
    <td> <div align="center"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
        &copy; Copyright 2000-2014 - Todos os direitos reservados</font></b></font></div></td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html>

0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies Google altera sistema e deixa internautas mudarem resultados de buscas Notícias Notícias 
  • 0 Replies
  • 240 Views
New Replies Sistema padrão de linkagem
Links na mesma cena 		Flash & ActionScript Tiger 
  • 4 Replies
  • 1725 Views
New Replies Conheça novos aparelhos com sistema operacional Android Notícias Notícias 
  • 0 Replies
  • 336 Views
New Replies Firefox vai adotar sistema para "navegar escondido" Notícias Notícias 
  • 0 Replies
  • 287 Views
New Replies Microsoft vai mostrar novo sistema de buscas na semana que vem, diz jornal Notícias Notícias 
  • 0 Replies
  • 181 Views
New Replies ajuda com sistema de controle, trabalhando com duas tabelas
Tabelas em Mysql, sistema para controle de equipamentos de informática 		PHP Diego Santos 
  • 3 Replies
  • 886 Views
New Replies Cristãos ganham sistema operacional aberto
Terra Tecnologia 		Notícias TiTi Celestino 
  • 0 Replies
  • 411 Views
New Replies Saiba como mudar para o sistema Windows 7 Notícias Notícias 
  • 0 Replies
  • 159 Views

Publicidade

1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)