- Fórum WMO
- → zanelati2002's Content
zanelati2002's Content
There have been 101 items by zanelati2002 (Search limited from 14/05/2023)
#120053 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 15/06/2003, 09:01 in ASP
nao daria para voce colocar o codigo completo e se junta os dois ou o segundo tem que colocar em outra parte o nome da pasta que esta os dados se chama login2 e o nome do banco de dados siteusers .mdb
desculpe nao entender muito mais me ajude
#120043 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 15/06/2003, 08:01 in ASP
#120487 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 15/06/2003, 16:28 in ASP
#120535 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 15/06/2003, 17:08 in ASP
#123538 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 19/06/2003, 06:54 in ASP
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Seu Ip</title> <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> <form method="POST" action="signin.asp" target="_self" name="signin"> <table border="0" width="37" cellspacing="0" cellpadding="0"> <tr> <TD width="553"><font face="Verdana" size="1" color="#FFFFFF">1</font></TD> <TD width="113"></TD> </tr> <tr> <TD width="553"><font face="Verdana" size="1"><IMG alt="" border=0 src="../images/login_login.jpg"></font></TD> <TD width="113"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=username size=10></font></TD> </tr> <tr> <TD width="553"><font face="Verdana" size="1"><img border="0" src="../images/login_senha.jpg"></font></TD> <TD width="113"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=password size=10 type=password></font></TD> </tr> <tr> <TD width="553"><font face="Verdana" size="1"> </font></TD> <TD width="113"><font face="Verdana" size="1"><INPUT class=botao2 name=entrar type=submit value=entrar></font></TD> </tr> <tr> <TD width="553"><font face="Verdana" size="1" color="#FFFFFF">1</font></TD> <TD width="113"> </TD> </tr> <tr> <TD width="553"><font face="Verdana" size="1">Seu Ip:</font></TD> <TD width="113"><font face="Verdana" size="1"><!--webbot bot="HTMLMarkup" startspan --><%=request.servervariables("REMOTE_ADDR")%> <!--webbot bot="HTMLMarkup" endspan --> </font> </TD> </tr> </table> <input type="hidden" name="page" value="<%=Request.QueryString("page")%>"> </form> </body> </html>
preciso saber alem de fazer a pagina de usuarios.asp, eu tenho que substituir o login.asp e fazer o login.html estou no icq 163114701
#120582 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 15/06/2003, 17:49 in ASP
a pagina do cadastro esta ai
<% Option Explicit Dim username username = Request.Cookies("username") %> <html> <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 bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000" background="../images/fundo3.gif"> <font face="arial,helvetica" size=2> <%'See if they're actually already logged in if username <> "" then%> <p><b>Você está logado.</b></p> <p>Se você quer preencher um novo cadastro, precisa <a href="signout.asp"><b>sair do sistema </b></a>primeiro.</p> <%'Otherwise display the sign up form else%> <form name="signup" action="signupprocess.asp" method="post" target="x"> <table width="368" cellpadding=2 cellspacing=0 align="center" height="536"> <tr> <td align="center" width="356" colspan="2" height="83"> <table border="0" width="364" cellspacing="0" cellpadding="0"> <tr> <TD class=TD vAlign=center width="362"><font face="Verdana" size="2"><img border="0" src="../images/pontos_subtitulo.jpg"> Site do Zanelati </font></TD> </tr> <tr> <TD bgColor=#debc00 height=1 width="362"> </TD> </tr> <tr> <TD height=10 width="362"></TD> </tr> </font> <tr> <TD class=TD width="362"> <p align="center"><font face="Verdana" size="2">Fique Membro do Site do Zanelati</font></p> </TD> </tr> <font face="arial,helvetica" size=2> <tr> <TD background="../images/linha_pontilhada.gif" height=2 width="362"> </TD> </tr> </table> </font> </td> </tr> <tr> <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Nome</b></font></td> <td align="center" width="162" height="25"><input type="text" name="firstname" size=13 class="campo"></td> </tr> <tr> <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Sobrenome</b></font></td> <td align="center" width="162" height="25"><input type="text" name="surname" size=13 class="campo"></td> </tr> <tr> <td align="center" width="194" height="25"><b>E-mail</b></td> <td align="center" width="162" height="25"><input type="text" name="email" size=13 class="campo"></td> </tr> <tr> <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Data de nascimento</b></font></td> <td align="center" width="162" height="25"> <input type="text" name="birth_day" value="dd" size="2" maxlength="2" class="campo"> <input type="text" name="birth_month" value="mm" size="2" maxlength="2" class="campo"> <input type="text" name="birth_year" value="yyyy" size="4" maxlength="4" class="campo"> </td> </tr> <tr> <td align="center" width="194" height="19"><font face="arial,helvetica" size=2><b>Sexo</b></font></td> <td align="center" width="162" height="19"><font face="arial,helvetica" size=2><b><input type="radio" name="sex" value="male" class="input1" checked> Homem <input type="radio" name="sex" value="female" class="input2"> Mulher</b></font></td> </tr> <tr> <td align="center" colspan=2 width="362" height="21"><hr color="#000000"></td> </tr> <tr> <td align="center" width="194" height="25"><b>Login</b></td> <td align="center" width="162" height="25"><input type="text" name="username" size=13 class="campo"></td> </tr> <tr> <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Senha</b></font></td> <td align="center" width="162" height="25"><input type="password" name="password" size=13 class="campo"></td> </tr> <tr> <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Confirme sua senha</b></font></td> <td align="center" width="162" height="25"><input type="password" name="passwordconfirm" size=13 class="campo"></td> </tr> <tr> <td align="center" colspan=2 width="362" height="16"><font face="arial,helvetica" size=1><b>(note: sua senha deve ter entre 5 e 15 caracteres)</b></font></td> </tr> <tr> <td align="center" colspan=2 width="362" height="21"><hr color="#000000"></td> </tr> <tr> <td align="center" colspan=2 width="362" height="251"> <font face="arial,helvetica" size=2><b>Escolha uma imagem para você:</b></font><br> <br> <table width="100%" cellpadding=2 cellspacing=0 height="1"> <tr> <td align="center" height="66"><img src="icons/1.gif" onClick="document.signup.icon[0].checked=true"><br><input type="radio" name="icon" value="1"></td> <td align="center" height="66"><img src="icons/2.gif" onClick="document.signup.icon[1].checked=true"><br><input type="radio" name="icon" value="2"></td> <td align="center" height="66"><img src="icons/3.gif" onClick="document.signup.icon[2].checked=true"><br><input type="radio" name="icon" value="3"></td> <td align="center" height="66"><img src="icons/4.gif" onClick="document.signup.icon[3].checked=true"><br><input type="radio" name="icon" value="4"></td> <td align="center" height="66"><img src="icons/5.gif" onClick="document.signup.icon[4].checked=true"><br><input type="radio" name="icon" value="5"></td> </tr> <tr> <td align="center" height="1"><img src="icons/16.gif" onClick="document.signup.icon[15].checked=true"><br><input type="radio" name="icon" value="16"></td> <td align="center" height="1"><img src="icons/17.gif" onClick="document.signup.icon[16].checked=true"><br><input type="radio" name="icon" value="17"></td> <td align="center" height="1"><img src="icons/18.gif" onClick="document.signup.icon[17].checked=true"><br><input type="radio" name="icon" value="18"></td> <td align="center" height="1"><img src="icons/19.gif" onClick="document.signup.icon[18].checked=true"><br><input type="radio" name="icon" value="19"></td> <td align="center" height="1"><img src="icons/20.gif" onClick="document.signup.icon[19].checked=true"><br><input type="radio" name="icon" value="20"></td> </tr> <tr> <td align="center" height="1"><img src="icons/21.gif" onClick="document.signup.icon[20].checked=true"><br><input type="radio" name="icon" value="21"></td> <td align="center" height="1"><img src="icons/22.gif" onClick="document.signup.icon[21].checked=true"><br><input type="radio" name="icon" value="22"></td> <td align="center" height="1"><img src="icons/23.gif" onClick="document.signup.icon[22].checked=true"><br><input type="radio" name="icon" value="23"></td> <td align="center" height="1"><img src="icons/24.gif" onClick="document.signup.icon[23].checked=true"><br><input type="radio" name="icon" value="24"></td> <td align="center" height="1"><img src="icons/25.gif" onClick="document.signup.icon[24].checked=true"><br><input type="radio" name="icon" value="25"></td> </tr> </table> </td> </tr> <tr> <td align="center" colspan=2 width="362" height="19"><font face="arial,helvetica" size="2">Envie-me novidade por e-mail <input type="checkbox" name="sendemail" checked></font></td> </tr> <tr> <td align="center" colspan=2 width="362" height="1"><input type="submit" value="Cadastre-se" class="botao"></td> </tr> </table> </form> <%end if%> </body> </html>
#119241 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 14/06/2003, 16:49 in ASP
#120448 Sera Que Tem Como Fazer Aparecer
Posted by zanelati2002 on 15/06/2003, 15:38 in ASP
#265453 Enviu De Senha Esquecida
Posted by zanelati2002 on 28/12/2003, 09:45 in ASP
<% Dim ConnectString, conn ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString email=request.querystring("email") set rs = conn.execute("select * from users where email='"&email&"'") If rs.EOF = True Then Response.Write "Email inválido!" Else Set meuMail = CreateObject("CDONTS.NewMail") sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password") meuMail.From = "sitedozanelati@ig.com.br" meuMail.To = rs("email") meuMail.Subject = "Envio de Senha" meuMail.BodyFormat = 0 meuMail.MailFormat = 0 meuMail.Body = sCorpo meuMail.Send Set meuMail = Nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Confirma Mensagem</title> </head> <body background="../zanelati_r41_c7.gif"> <div align="center"> <center><table border="0" width="55%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <font face="Verdana" size="2" color="#FFFFFF">1</font></td> </tr> <tr> <td width="100%" align="center"> <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para Seu e-mail com Sucesso</font></td> </tr> <tr> <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que Sua Senha é de Responsabilidade Tua.</font></td> </tr> <tr> <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td> </tr> </table> </center> </div> </body> </html> <% End If rs.close set rs = nothing conn.close set conn = nothing %>
#265478 Enviu De Senha Esquecida
Posted by zanelati2002 on 28/12/2003, 10:19 in ASP
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Esqueci Minha Senha</title> <script src="icons/script.js"></SCRIPT> <LINK href="icons/padrao.css" rel=stylesheet type=text/css> <STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1 } #divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1 } #divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px } #divContent { LEFT: 0px; POSITION: absolute; TOP: 0px } </STYLE> <script language=javascript> <!--Abre function AbreJanela(pagina,janela,w,h,scrolling,top,left) { if (!scrolling) { scrolling='auto' } if (top) { top=',top='+top } if (left) { left=',left='+left } resultado = window.open(pagina,janela,'width='+w+',height='+h+',scrollbars='+scrolling+',toolbar=no,location=no,status=no,menubar=no,resizable=no'+top+left)} --> </SCRIPT> <body background="../zanelati_r41_c7.gif"> <script language=JavaScript1.2> function valida(){ var login = document.formcontato.login.value; var email = document.formcontato.email.value; if ( login == '' ){ alert('Campo login em branco.'); document.formcontato.login.focus(); return false; } if ( email == '' ){ alert('Campo email em branco.'); document.formcontato.email.focus(); return false; } formcontato.envia.disabled=true; return true; } </SCRIPT> <TABLE align=center width="296"> <TR> <TD class=TD width="274"> <p align="left"><font face="Verdana" size="1">Esqueci minha Senha me mande por e-mail</font> <p> </p> <FORM action=enviar_senha.asp id=formcontato method=GET name=enviar onsubmit="return valida();" target="x"><font face="Verdana" size="1">Login de Cadastro:<BR><INPUT class=campo maxLength=20 name=login size=27><BR>E-mail de Cadastrado:<BR><INPUT class=campo maxLength=100 name=email size=26><BR><BR><INPUT class=botao2 name=envia type=submit value=Enviar> <BR></font></FORM></TD></TR> </TABLE> <p><font color="#FFFFFF" size="1" face="Verdana">1</font></p> <div align="center"> <center> <table border="0" width="62%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <p align="center"><font face="Verdana" size="1">Obs: Caso não consiga se lembrar do seu login de cadastro ou senha, </font><font face="Verdana" size="2"> me mande um <a href="mailto:sitedozanelati@ig.com.br"><font color="#FF0000">e-mail </font></a>ou vá até <a href="fale_conosco.asp" target="x"><font color="#FF0000">fale conosco.</font></a></font></td> </tr> </table> </center> </div> </body> </html>
#265470 Enviu De Senha Esquecida
Posted by zanelati2002 on 28/12/2003, 10:07 in ASP
#264846 Sistema Newsletter
Posted by zanelati2002 on 27/12/2003, 15:54 in ASP
Erro de tempo de execução do Microsoft VBScript erro '800a0046'
Permissão negada
/sitedozanelati/mail/enviar.asp, line 25
#114033 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 16:15 in ASP
#114032 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 16:13 in ASP
#113971 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 15:09 in ASP
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> </p> <p> </p> <p> </p> <p> </p> <p> </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"> </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 - </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"> 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
</font>
</p>
<p align="left"><font face="Verdana" size="1" color="#00FF00">
INVÁLIDOS
</font>
</b>
</p>
<b>
<p> </p>
<p> </p>
<p> </p>
<p> </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
#114009 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 15:46 in ASP
#113991 Autenticacao E Login
Posted by zanelati2002 on 07/06/2003, 15:30 in ASP
#110111 Erro com Script
Posted by zanelati2002 on 01/06/2003, 15:58 in ASP
#110117 Erro com Script
Posted by zanelati2002 on 01/06/2003, 16:05 in ASP
<%
Response.Buffer = True
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
copie o codigo todo
#120505 Mais Uma Tem Como
Posted by zanelati2002 on 15/06/2003, 16:50 in ASP
a libihost.net
#110104 Erro com Script
Posted by zanelati2002 on 01/06/2003, 15:53 in ASP
#120472 Mais Uma Tem Como
Posted by zanelati2002 on 15/06/2003, 16:12 in ASP
#120490 Mais Uma Tem Como
Posted by zanelati2002 on 15/06/2003, 16:29 in ASP
#110123 Erro com Script
Posted by zanelati2002 on 01/06/2003, 16:13 in ASP
#120539 Mais Uma Tem Como
Posted by zanelati2002 on 15/06/2003, 17:10 in ASP
- Fórum WMO
- → zanelati2002's Content
- Privacy Policy
- Regras ·