<!-- Inicio do codigo fonte !--> <% 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 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=logon.asp"> </head> <b> <p> </p> <p> </p> <p> </p> <p> </p> <p align="center"><font face="Verdana" size="1" color="#FF0000"> LOGIN OU SENHA INVÁLIDOS TENTE NOVAMENTE </font> </b> </p> <!-- Fim do codigo donte !-->
Ela não está aceitando mais a brinker aceita