Jump to content

  2. →
  3. →

Photo

Autenticacao E Login

Started By zanelati2002, 07/06/2003, 15:09

  • Faça o login para participar
8 replies to this topic

#1 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 07/06/2003, 15:09

Bom consegui finalmente achar o codigo que talves pode servir para mim de login e autenticacao de usuarios me ajudem a descobrir o errom o codigo esta por partes

1. adiciona.asp
<!-- Inicio do codigo fonte !--> 


<%
Dim nome,senha,paginainicial,numero
nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")
paginainicial = replace(request.form("paginainicial"), "'", "''")
numero = replace(request.form("numero"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"

inserir = "INSERT INTO tabela_de_usuarios (nome,senha,paginainicial) " & _
"VALUES ('" & nome & "','" & senha & "','" & paginainicial & "')"
DB.Execute(inserir)
response.redirect ".../senha/usuarios.asp"
%>

<!-- Fim do codigo donte !-->

2.altera.asp

<!-- Inicio do codigo fonte !--> 

<%
Dim nome,senha,paginainicial,numero
nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")
paginainicial = replace(request.form("paginainicial"), "'", "''")
numero = replace(request.form("numero"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)};"

alterar = "UPDATE DISTINCTROW tabela_de_usuarios SET nome = '" & nome & "', senha = '" & senha & "', paginainicial = '" & paginainicial & "' WHERE numero = " & (numero) & ""
DB.Execute(alterar)
response.redirect "usuarios.asp"
%>


<!-- Fim do codigo donte !-->

3. deleta.asp

<!-- Inicio do codigo fonte !--> 

<%
Dim nome,senha,paginainicial,numero
nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")
paginainicial = replace(request.form("paginainicial"), "'", "''")
numero = replace(request.form("numero"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

deletar = "DELETE DISTINCTROW numero, nome, senha, paginainicial FROM tabela_de_usuarios WHERE numero = " & (numero) & ""
DB.Execute(deletar)
response.redirect "usuarios.asp"
%>


<!-- Fim do codigo donte !-->

4.usuario.asp

<!-- Inicio do codigo fonte !--> 


<%
If Request.cookies("autenticacao")("anome") <> "usuario" or _
Request.cookies("autenticacao")("asenha") <> "123456" then
response.redirect "logon.asp"
end if
%>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

<p align="center"><font face="Verdana" size="1" color="#FF0000"><b>USUÁRIO</b>

</font>

<font face="Verdana" size="1" color="#FF0000"> <b>LOGADO</b>

</font>

</p>


<!-- Fim do codigo donte !-->

6. login.asp

</head>

<body>

<font face="Verdana" size="1">

<BR>
</font>
<form method="verificarsenha.asp" method="post" target="_self">
      <TABLE cellPadding=0 cellSpacing=0 width="51">
        <TBODY>
        <TR>
          <TD width="252"><font face="Verdana" size="1"><IMG alt="" border=0 
            src="../images/login_login.jpg"></font></TD>
          <TD width="83"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=login size=15></font></TD></TR>
        <TR>
          <TD width="252"><font face="Verdana" size="1"><img border="0" src="../images/login_senha.jpg"></font></TD>
          <TD width="83"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha size=15 
          type=password></font></TD>
        <TR>
          <TD width="252"><font face="Verdana" size="1">&nbsp;</font></TD>
          <TD width="83"><font face="Verdana" size="1"><INPUT class=botao2 name=entrar type=submit value=entrar></font></TD></TR></FORM>
        <TR>
          <TD width="335" colspan="2"><font face="Verdana" size="1">Seu Ip: <%=request.servervariables("REMOTE_ADDR")%>
            </font></TD>
        </TR>
        </TBODY></TABLE>

</form>

</body>

</html>

7. cadastro.asp

<!-- Inicio do codigo fonte !--> 

<%
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("Dados/usuarios.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

listar = "SELECT * FROM tabela_de_usuarios ORDER BY numero DESC"
Set lista = DB.Execute(listar)
%>

<script language=JavaScript1.2>
function valida(){
var nome =  document.cadform.nome.value;
var home =  document.cadform.home.value;
var login = document.cadform.login.value;
var senha = document.cadform.senha.value;
var senha2 = document.cadform.senha2.value;
var cidade = document.cadform.cidade.value;
var email = document.cadform.email.value;

if ( login == '' ){
	alert('Campo login em branco.');
	document.cadform.login.focus();
	return false;	}
if ( senha == '' ){
	alert('Campo senha em branco.'); 
	document.cadform.senha.focus();
	return false;	}
if ( senha2 == '' ){
	alert('Campo confirmação de senha em branco.'); 
	document.cadform.senha2.focus();
	return false;	}
if ( nome == '' ){
	alert('Campo nome em branco.'); 
	document.cadform.nome.focus();
	return false;	}
if ( home == '' ){
	alert('Campo home em branco.'); 
	document.cadform.home.focus();
	return false;	}
if ( cidade == '' ){
	alert('Campo cidade em branco.'); 
	document.cadform.cidade.focus();
	return false;	}
if ( email == '' ){
	alert('Campo email em branco.'); 
	document.cadform.email.focus();
	return false;	}

cadform.cadastra.disabled=true;
return true;
}
</SCRIPT>

<head>
<title>Novo membro</title>
<STYLE>A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: none
}
.menu:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:hover {
	TEXT-DECORATION: none
}
.smenu:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:hover {
	COLOR: #808080; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
BODY {
	FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
BODY {
	SCROLLBAR-FACE-COLOR: #efefef
}
BODY {
	SCROLLBAR-SHADOW-COLOR: #efefef
}
BODY {
	SCROLLBAR-HIGHLIGHT-COLOR: #efefef
}
BODY {
	SCROLLBAR-3DLIGHT-COLOR: #efefef
}
BODY {
	SCROLLBAR-DARKSHADOW-COLOR: #000000
}
BODY {
	SCROLLBAR-TRACK-COLOR: #ffffff
}
BODY {
	SCROLLBAR-ARROW-COLOR: #000000
}
TD {
	FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.campo {
	BACKGROUND-COLOR: #f7f7f7; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.botao {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.texto {
	COLOR: black; FONT-FAMILY: Verdana, arial; FONT-SIZE: 8pt
}
.input1 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.input2 {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea1 {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea2 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
</STYLE>
<STYLE type=text/css>.tabela {
	BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.link {
	COLOR: #000000; TEXT-DECORATION: none
}
.link:hover {
	COLOR: #ff8040; TEXT-DECORATION: none
}
.TD {
	COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.campo {
	BACKGROUND: #ffffff; BORDER-BOTTOM: #debc00 1px solid; BORDER-LEFT: #debc00 1px solid; BORDER-RIGHT: #debc00 1px solid; BORDER-TOP: #debc00 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.botao {
	BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.botao2 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.Menu:link {
	BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
.Menu:visited {
	BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
.Menu:unknown {
	BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
.Menu:hover {
	BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
</STYLE>
</head>
<body background="../images/fundo3.gif">

<div align="center">
  <center>

<TABLE cellPadding=0 cellSpacing=0 height="100%" width=409>
  <TBODY>
  <TR>
    <TD class=TD vAlign=top width=84>
      <div align="center">
      <TABLE width="348">
        <TBODY>
        <TR>
          <TD colSpan=2 height=10 width="340"></TD></TR>
        <TR>
          <TD class=TD colSpan=2 vAlign=center width="340"><font face="Verdana" size="1"><IMG alt="" border=0 
            src="../images/pontos_subtitulo.jpg" width="36" height="10">   Site do
            Zanelati - Cadastrar novo Membro -&nbsp;</font></TD></TR>
        <TR>
          <TD bgColor=#debc00 colSpan=2 height=1 width="340"></TD></TR>
        <TR>
          <TD align=middle class=TD colSpan=2 height=20 width="340"></TD></TR>
        <FORM action=adiciona.asp id=cadform method=post name=cadform 
        onsubmit="return valida();">
        <TR>
          <TD align=middle class=TD colSpan=2 width="340"><font face="Verdana" size="1"><b>Dados de Acesso</b></font></TD></TR>
        <TR>
          <TD bgColor=#f3f3f3 colSpan=2 height=1 width="340" background="../images/menu_pontilhado.gif"></TD></TR>
        <TR>
          <TD colSpan=2 height=10 width="340"></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">login:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=login 
          size=20></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">senha:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha 
            type=password></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">confirme a senha:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha2 
            type=password></font></TD></TR>
        <TR>
          <TD colSpan=2 height=20 width="340"></TD></TR>
        <TR>
          <TD align=middle class=TD colSpan=2 width="340"><font face="Verdana" size="1"><b>Dados Pessoais</b></font></TD></TR>
        <TR>
          <TD bgColor=#f3f3f3 colSpan=2 height=1 width="340" background="../images/menu_pontilhado.gif"></TD></TR>
        <TR>
          <TD colSpan=2 height=10 width="340"></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            nome:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=nome 
        size=20></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">&nbsp;Sua
            Home Page:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=home 
        size=20></font> </TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            nascimento:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><SELECT class=campo name=dia size=1> <OPTION 
              selected value=01>01</OPTION> <OPTION value=02>02</OPTION> <OPTION 
              value=03>03</OPTION> <OPTION value=04>04</OPTION> <OPTION 
              value=05>05</OPTION> <OPTION value=06>06</OPTION> <OPTION 
              value=07>07</OPTION> <OPTION value=08>08</OPTION> <OPTION 
              value=09>09</OPTION> <OPTION value=10>10</OPTION> <OPTION 
              value=11>11</OPTION> <OPTION value=12>12</OPTION> <OPTION 
              value=13>13</OPTION> <OPTION value=14>14</OPTION> <OPTION 
              value=15>15</OPTION> <OPTION value=16>16</OPTION> <OPTION 
              value=17>17</OPTION> <OPTION value=18>18</OPTION> <OPTION 
              value=19>19</OPTION> <OPTION value=20>20</OPTION> <OPTION 
              value=21>21</OPTION> <OPTION value=22>22</OPTION> <OPTION 
              value=23>23</OPTION> <OPTION value=24>24</OPTION> <OPTION 
              value=25>25</OPTION> <OPTION value=26>26</OPTION> <OPTION 
              value=27>27</OPTION> <OPTION value=28>28</OPTION> <OPTION 
              value=29>29</OPTION> <OPTION value=30>30</OPTION> <OPTION 
              value=31>31</OPTION></SELECT> <SELECT class=campo name=mes size=1> 
              <OPTION selected value=01>01</OPTION> <OPTION value=02>02</OPTION> 
              <OPTION value=03>03</OPTION> <OPTION value=04>04</OPTION> <OPTION 
              value=05>05</OPTION> <OPTION value=06>06</OPTION> <OPTION 
              value=07>07</OPTION> <OPTION value=08>08</OPTION> <OPTION 
              value=09>09</OPTION> <OPTION value=10>10</OPTION> <OPTION 
              value=11>11</OPTION> <OPTION value=12>12</OPTION></SELECT> <SELECT 
            class=campo name=ano size=1> <OPTION selected value=50>50</OPTION> 
              <OPTION value=51>51</OPTION> <OPTION value=52>52</OPTION> <OPTION 
              value=53>53</OPTION> <OPTION value=54>54</OPTION> <OPTION 
              value=55>55</OPTION> <OPTION value=56>56</OPTION> <OPTION 
              value=57>57</OPTION> <OPTION value=58>58</OPTION> <OPTION 
              value=59>59</OPTION> <OPTION value=60>60</OPTION> <OPTION 
              value=61>61</OPTION> <OPTION value=62>62</OPTION> <OPTION 
              value=63>63</OPTION> <OPTION value=64>64</OPTION> <OPTION 
              value=65>65</OPTION> <OPTION value=66>66</OPTION> <OPTION 
              value=67>67</OPTION> <OPTION value=68>68</OPTION> <OPTION 
              value=69>69</OPTION> <OPTION value=70>70</OPTION> <OPTION 
              value=71>71</OPTION> <OPTION value=72>72</OPTION> <OPTION 
              value=73>73</OPTION> <OPTION value=74>74</OPTION> <OPTION 
              value=75>75</OPTION> <OPTION value=76>76</OPTION> <OPTION 
              value=77>77</OPTION> <OPTION value=78>78</OPTION> <OPTION 
              value=79>79</OPTION> <OPTION value=80>80</OPTION> <OPTION 
              value=81>81</OPTION> <OPTION value=82>82</OPTION> <OPTION 
              value=83>83</OPTION> <OPTION value=84>84</OPTION> <OPTION 
              value=85>85</OPTION> <OPTION value=86>86</OPTION> <OPTION 
              value=87>87</OPTION> <OPTION value=88>88</OPTION> <OPTION 
              value=89>89</OPTION> <OPTION value=90>90</OPTION> <OPTION 
              value=91>91</OPTION> <OPTION value=92>92</OPTION> <OPTION 
              value=93>93</OPTION> <OPTION value=94>94</OPTION> <OPTION 
              value=95>95</OPTION> <OPTION value=96>96</OPTION> <OPTION 
              value=97>97</OPTION> <OPTION value=98>98</OPTION> <OPTION 
              value=99>99</OPTION> <OPTION value=00>00</OPTION> <OPTION 
              value=01>01</OPTION> <OPTION value=02>02</OPTION></SELECT> </font> </TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Sua
            cidade:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=50 name=cidade 
          size=20></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            estado:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><SELECT class=campo name=estado size=1> <OPTION 
              selected value=AC>Acre<OPTION value=AL>Alagoas<OPTION 
              value=AP>Amapá<OPTION value=AM>Amazonas<OPTION 
              value=BA>Bahia<OPTION value=CE>Ceará<OPTION value=DF>Distrito
              Federal<OPTION value=ES>Espírito Santo<OPTION 
              value=GO>Goiás<OPTION value=MA>Maranhão<OPTION 
              value=MT>Mato-Grosso<OPTION value=MS>Mato-Grosso do Sul<OPTION 
              value=MG>Minas Gerais<OPTION value=PA>Pará<OPTION 
              value=PB>Paraíba<OPTION value=PR>Paraná<OPTION 
              value=PE>Pernanbuco<OPTION value=PI>Piauí<OPTION value=RJ>Rio de
              Janeiro<OPTION value=RN>Rio Grande do Norte<OPTION value=RS>Rio
              Grande do Sul<OPTION value=RO>Rondônia<OPTION 
              value=RR>Roraima<OPTION value=SC>Santa Catarina<OPTION 
              value=SP>São Paulo<OPTION value=SE>Sergipe<OPTION 
              value=TO>Tocantins</OPTION></SELECT> </font> </TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            e-mail:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=email 
          size=20></font></TD></TR>
        <TR>
          <TD width="113"></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=botao2 name=cadastra type=submit value=Cadastrar></font></TD></TR></FORM></TBODY></TABLE>
      </div>
    </TD>
  </TR></TBODY></TABLE>
  </center>
</div>
<TABLE>
  <TBODY></TBODY></TABLE>
[CODE]

8. verificarsenha.asp
<!-- Inicio do codigo fonte !-->

<%
Response.Buffer = True
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & Server.MapPath("\Dados\usuarios.mdb")
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

Executar = "SELECT * FROM tabela_de_usuarios"
Set RecSet = DB.Execute(Executar)

do while not recset.eof
vnome = RecSet("nome")
vsenha = RecSet("senha")
vpaginainicial = RecSet("paginainicial")

If Request.form("nome") = (vnome) then
If Request.form("senha") = (vsenha) then
response.cookies("autenticacao")("anome") = request.form("nome")
response.cookies("autenticacao")("asenha") = request.form("senha")
response.clear
response.redirect(vpaginainicial)
end if
end if
recset.movenext
loop

Public Function DoLog(arquivo,nome,senha)

Dim ObjFSO, ObjFile, ObjStream, Dia, Mes, Ano, Hora, IpNum

Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

If ObjFSO.FileExists(arquivo) = False then

objFSO.CreateTextFile(arquivo)

End If

Set ObjFile = objFSO.GetFile(arquivo)
Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)

Dia = Day(Date())
Mes = Month(Date())
Ano = Year(Date())
Hora = Time()
IpNum = Request.ServerVariables("REMOTE_ADDR")

ObjStream.WriteLine Dia & "-" & Mes & "-" & Ano & " | " & Hora & " | " & IpNum & " --> " & " Nome: " & nome & " / Senha: " & senha
ObjStream.close

End Function

path = Server.MapPath("log.txt")
nome = Request.form("nome")
senha = Request.form("senha")
DoLog (path),(nome),(senha)
%>

<head>

<META HTTP-EQUIV="Refresh" CONTENT="1;URL=login.asp">

</head>

<b>

<p align="left"><font face="Verdana" size="1" color="#00FF00">

LOGIN OU SENHA&nbsp;

</font>

</p>

<p align="left"><font face="Verdana" size="1" color="#00FF00">

INVÁLIDOS&nbsp;

</font>

</b>

</p>

<b>&nbsp;
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

</b>

<!-- Fim do codigo donte !--> 
[CODE]

Me desculpem sei que o codigo e grande mais tem o banco de dados que esta na pasta Dados/nome.mdb

#2 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 07/06/2003, 15:23

Uma sugestão:

1- Poste o erro
2- Se vc tivesse postado o erro, o unico arquivo q teria q por aki no fórum seria o ASP que está dando o erro
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#3 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 07/06/2003, 15:30

nao entendo de asp, gostaria que alguem testasse o codigo para mim eu sei que ´´e pedir de mais mais me ajude

#4 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 07/06/2003, 15:42

Você falou que estava dando uma erro, logo voce testou o codigo
Copia o erro que ocorre e posta aqui no fórum para que eu possa te ajudar.

[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#5 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 07/06/2003, 15:46

eu sei o erro que esta dando ele nao le o banco de dados e o cadastro esta dando algum erro ele nao esta lendo me ajude clan gostaria de ter um igual ao seu site (OBS> sou o rapaz que est´´a no seu forum tentando manter contado zanelati2002)

#6 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 07/06/2003, 16:01

eu sei o erro que esta dando ele nao le o banco de dados e o cadastro esta dando algum erro ele nao esta lendo me ajude clan gostaria de ter um igual ao seu site (OBS> sou o rapaz que est´´a no seu forum tentando manter contado zanelati2002)

hehe eu sei
Se ele não esta lendo o banco de dados o problema não é no script em si mas sim no caminho para conexao com o bd

No arquivo "adiciona.asp" o caminho atual está desta forma:

D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb

Verifica se o banco de dados esta la neste caminho mesmo

[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#7 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 07/06/2003, 16:05

Se o problema é apenas na cadastro.asp então é so por causa do caminho com o banco de dados mesmo.

Apenas no cadastro.asp o caminho para o BD esta assim:

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("Dados/usuarios.mdb")

Nas demais páginas está desta forma:

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

Se o problema é no cadastro substitua o caminho para conexao com o banco de dados da cadastro.asp para isso:

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#8 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 07/06/2003, 16:13

o banco de dados esta na pasta Dados/nomedobd.mdb agora o que eu nao consigo entender o que ´´e este D:\webpoint\rev\balmer-link\linksdovale.com\Dados\usuarios.mdb se esta na minha pasta padrao

#9 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 07/06/2003, 16:15

mais voce nao vai me ajudar a fazer um quaze igual a do teu site sera que exixte um codigo parecido
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq