dark0 Postado Novembro 3, 2004 Denunciar Share Postado Novembro 3, 2004 Bem, este Tópico vai ser Realmente ENORME !!Os codigos aqui presentes são gigantescos, e muito bons!Pra quem não sabe, os presentes codigos são as soluções do 3º Desafio!Vou postar para cada 'sistema' um post novo, pra não misturar. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Novembro 3, 2004 Autor Denunciar Share Postado Novembro 3, 2004 --> Códigos de Cyberalexx!pagina principal (portal.asp)<html><body><p>Portal do desenvolvedor</p><p><a href="paginaasp.asp">ASP</a></p><p><a href="paginaphp.asp">PHP</a></p><p><a href="paginajs.asp">Javascript</a></p></body></html>paginaasp.asp<%if session("acesso")=true then if session("firstacesso")="n" then response.write("Bem Vindo ") response.Write(session("user")) response.write("<br>Seu ultimo acesso foi em: ") response.write(session("lastacesso")) response.write("<br>Seu numero IP é: ") response.write(Request.Cookies("IP")) response.write("<br>pagina acessada: ") response.write(session("lastpage")) end if%><html><body><p>3º desafio - pagina asp</p></body></html><% end ifif session("acesso")=false thenresponse.write("voce não tem permissão para acessar esta pagina")%><!--#include file="login.asp"--> <%session("lastpage")="paginaasp.asp"end if%>paginaphp.asp<%if session("acesso")=true then if session("firstacesso")="n" then response.write("Bem Vindo ") response.Write(session("user")) response.write("<br>Seu ultimo acesso foi em: ") response.write(session("lastacesso")) response.write("<br>Seu numero IP é: ") response.write(Request.Cookies("IP")) response.write("<br>pagina acessada: ") response.write(session("lastpage")) end if%><html><body><p>3º desafio - pagina php</p></body></html><% end ifif session("acesso")=false thenresponse.write("voce não tem permissão para acessar esta pagina")%><!--#include file="login.asp"--> <%session("lastpage")="paginaphp.asp"end if%>paginajs.asp<%if session("acesso")=true then if session("firstacesso")="n" then response.write("Bem Vindo ") response.Write(session("user")) response.write("<br>Seu ultimo acesso foi em: ") response.write(session("lastacesso")) response.write("<br>Seu numero IP é: ") response.write(Request.Cookies("IP")) response.write("<br>pagina acessada: ") response.write(session("lastpage")) end if%><html><body><p>3º desafio - pagina js</p></body></html><% end ifif session("acesso")=false thenresponse.write("voce não tem permissão para acessar esta pagina")%><!--#include file="login.asp"--><%session("lastpage")="paginajs.asp"end if%>login.asp<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="453" bgcolor="#0000ff"><tr><td width="248" bgcolor="#FFFFFF"> </td><td width="202"><form method="POST" action="valida.asp"><p align="center"><font color="#ffffff"><b><font face="Verdana" size="2">Nome:</font></b><br></font><input type="test" name="user" size="15" style="background-color: #33CCFF"><br><b><font face="Verdana" size="2" color="#FFFFFF">Senha:</font></b><br><input type="password" name="senha" size="15" style="background-color: #33CCFF"><br><input type="submit" value="OK" name="B1" size="20"> </p></form></td></tr></table>valida.asp<%On Error Resume NextSet Obj = Server.CreateObject("Scripting.FileSystemObject") Set arquivo = Obj.OpenTextFile("c:\usuarios.txt",1)if Err then Response.write "Ocorreu um erro tentando abrir o arquivo!" Response.write "entre em contato com o administrador do site" Response.Endend ifacesso="não"do while arquivo.AtEndOfStream=false a = arquivo.Readline aarray = split(a,chr(32)) if request.form("user")=aarray(0) then if request.form("senha")=aarray(1) then acesso="ok" end if end if Loopif acesso="não" then response.write("dados invalidos")%><!--#include file="login.asp"--> <%end if%><%if acesso="ok" then if Request.Cookies("datahora")="" then session("firstacesso")="s" else session("lastacesso")=Request.Cookies("datahora") session("firstacesso")="n"end if Response.Cookies("datahora")=now()Response.Cookies("IP")=request.ServerVariables("Remote_Addr")Response.Cookies("pagina")=session("lastpage")Response.Cookies("datahora").Expires="Dezembro 31, 2004"Response.Cookies("IP").Expires="Dezembro 31, 2004"Response.Cookies("pagina").Expires="Dezembro 31, 2004"Session("acesso")=trueSession("user")=request.form("user")response.redirect(session("lastpage"))end if%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Novembro 3, 2004 Autor Denunciar Share Postado Novembro 3, 2004 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Novembro 3, 2004 Autor Denunciar Share Postado Novembro 3, 2004 --> Codigos de MarioFDFpagina index.asp<html><head><meta http-equiv="Content-Language" content="pt-br"><meta name="GENERATOR" content="Microsoft FrontPage 6.0"><meta name="ProgId" content="FrontPage.Editor.Document"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>-- PORTAL DESAFIO --</title></head><body bgcolor="#FFCC00"><div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: solid; border-color: #666666" bordercolor="#111111" width="770" id="AutoNumber1" bgcolor="#FF9900"> <tr> <td> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%"> <p align="center"><i><b><font face="Verdana" size="6">PORTAL DESAFIO</font></b></i></td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="100%" id="AutoNumber3"> <tr> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="asppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO ASP</font></a></font></b></td> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="phppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO PHP</font></a></font></b></td> <td width="34%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="javapage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO JAVASCRIPT</font></a></font></b></td> </tr> </table> </td> </tr> <tr> <td width="100%"> <p> </p> <p align="center"><b><font size="6" color="#000080">O melhor portal de programação do Brasil.</font></b></p> <p align="center"><b><font size="6" color="#000080">Os melhores webmaster estão aqui.</font></b></p> <p align="center"><b><font size="6" color="#000080">Que mentira... HEHE</font></b></p> <p align="center"> </p> <p align="center"> </p> <p align="center"><b><font size="2" face="Arial">2004 - TODOS DIREITOS RESERVADOS - MARIOFDF</font></b></td> </tr> </table> </center> </div> </td> </tr> </table> </center></div></body></html>pagina login.asp<html><head><meta http-equiv="Content-Language" content="pt-br"><meta name="GENERATOR" content="Microsoft FrontPage 6.0"><meta name="ProgId" content="FrontPage.Editor.Document"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>-- PORTAL DESAFIO --</title></head><body bgcolor="#FFCC00"><div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: solid; border-color: #666666" bordercolor="#111111" width="770" id="AutoNumber1" bgcolor="#FF9900"> <tr> <td> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%"> <p align="center"><b><i><font face="Verdana" size="6">ÁREA DE LOGIN</font></i></b></td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="100%" id="AutoNumber3"> <tr> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="asppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO ASP</font></a></font></b></td> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="phppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO PHP</font></a></font></b></td> <td width="34%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="javapage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO JAVASCRIPT</font></a></font></b></td> </tr> </table> </td> </tr> <tr> <td width="100%"> <p> </p> <form method="POST" action="logar-acao.asp"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="310" id="AutoNumber4"> <tr> <td width="310" colspan="2"> <p align="center"><font color="#FFFFFF"><b>Preencha Seus Dados.</b></font></td> </tr> <tr> <td width="90" align="right"><b>Login:</b></td> <td width="220"> <input type="text" name="login" size="20" style="border: 1px solid #FF9900"></td> </tr> <tr> <td width="90" align="right"><b>Senha:</b></td> <td width="220"> <input type="password" name="senha" size="14" style="border: 1px solid #FF9900"></td> </tr> <tr> <td width="143"> <p align="center"> </td> <td width="167"> <input type="submit" value="Logar" name="enviar" style="border: 1px solid #FF9900"></td> </tr> </table> </center> </div> </form><br><br> <form method="POST" action="logar-acao.asp"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="310" id="AutoNumber4"> <tr> <td width="310" colspan="2"> <p align="center"><font color="#FFFFFF"><b>Caso não tenha login e senha se cadastre.</b></font></td> </tr> <tr> <td width="90" align="right"><b>Login:</b></td> <td width="220"> <input type="text" name="login" size="20" style="border: 1px solid #FF9900"></td> </tr> <tr> <td width="90" align="right"><b>Senha:</b></td> <td width="220"> <input type="password" name="senha" size="14" style="border: 1px solid #FF9900"></td> </tr> <tr> <td width="143"> <p align="center"> </td> <td width="167"> <input type="submit" value="cadastrar" name="enviar" style="border: 1px solid #FF9900"></td> </tr> </table> </center> </div> </form> <p align="center"> </p> <p align="center"> </p> <p align="center"><b><font size="2" face="Arial">2004 - TODOS DIREITOS RESERVADOS - MARIOFDF</font></b></td> </tr> </table> </center> </div> </td> </tr> </table> </center></div></body></html>pagina logar-acao.asp<%ObjCookie = Request.Cookies("mariofdf")If(ObjCookie <> "")Thendataehora = request("mariofdf")("data")ip = request("mariofdf")("ip")paginachamou = request("mariofdf")("pagina")end if%><%acao = Request.form("enviar")txtlogin = Request.form("login")txtsenha = Request.form("senha")txtverifica =""&txtlogin&" "&txtsenha&""public strPathstrPath=Server.MapPath("usuarios.txt")if acao = "Logar" thenSet fs = Server.createObject("Scripting.FileSystemObject")Set tf = fs.OpenTextFile(strPath,1,True)while (not tf.AtEndOfStream) and response.isclientconnected() linha_txt = tf.ReadLine if linha_txt = txtverifica thensession("vip") = "logado"end ifwend tf.CloseSet tf = NothingSet fs = Nothing%><%if session("vip") = "" then%><p>Login e Senha Incorretos.</p><p><a href="login.asp" style="text-decoration: none">voltar...</a></p><%else%><%'verifica cookieresponse.cookies("mariofdf")("mariofdf") = "ok"response.cookies("mariofdf")("data") = nowresponse.cookies("mariofdf")("ip") = Request.ServerVariables("REMOTE_ADDR") response.cookies("mariofdf")("pagina") = "http://localhost/"&session("ondeestava")response.cookies("mariofdf").expires = "21/07/2030"%><p>Logado com sucesso.</p>Seu ultimo acesso foi - <%=dataehora%><br>Com IP - <%=ip%><br>Clicou no link - <%=paginachamou%><br><p><a href="<%=session("ondeestava")%>" style="text-decoration: none">voltar...</a></p><%end if%><%elseSet fs = Server.CreateObject("scripting.FileSystemObject")Set tf=fs.OpenTextFile(strPath,8,True)tf.WriteLine(txtlogin & " " & txtsenha)tf.closeSet tf = NothingSet fs = Nothingsession("vip") = "logado"%><%'verifica cookieresponse.cookies("mariofdf")("mariofdf") = "ok"response.cookies("mariofdf")("data") = nowresponse.cookies("mariofdf")("ip") = Request.ServerVariables("REMOTE_ADDR") response.cookies("mariofdf")("pagina") = "http://localhost/"&session("ondeestava")response.cookies("mariofdf").expires = "21/07/2030"%><p>Registrado com sucesso.</p><p><a href="<%=session("ondeestava")%>" style="text-decoration: none">voltar...</a></p><%end if%>pagina phppage.asp<%if session("vip") = "" thensession("ondeestava") = "phppage.asp"%><b>Area Restrita Dark0</b><br><b>Queira se logar...</b><br><meta http-equiv="refresh" content="1; URL=login.asp"><%else%><html><head><meta http-equiv="Content-Language" content="pt-br"><meta name="GENERATOR" content="Microsoft FrontPage 6.0"><meta name="ProgId" content="FrontPage.Editor.Document"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>-- PORTAL DESAFIO --</title></head><body bgcolor="#FFCC00"><div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: solid; border-color: #666666" bordercolor="#111111" width="770" id="AutoNumber1" bgcolor="#FF9900"> <tr> <td> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%"> <p align="center"><i><b><font face="Verdana" size="6">PORTAL PHP</font></b></i></td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="100%" id="AutoNumber3"> <tr> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="asppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO ASP</font></a></font></b></td> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="phppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO PHP</font></a></font></b></td> <td width="34%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="javapage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO JAVASCRIPT</font></a></font></b></td> </tr> </table> </td> </tr> <tr> <td width="100%"> <p> </p> <p align="center"><b><font size="6" color="#000080">O melhor portal de programação do Brasil.</font></b></p> <p align="center"><b><font size="6" color="#000080">Os melhores webmaster estão aqui.</font></b></p> <p align="center"><b><font size="6" color="#000080">Que mentira... HEHE</font></b></p> <p align="center"> </p> <p align="center"> </p> <p align="center"><b><font size="2" face="Arial">2004 - TODOS DIREITOS RESERVADOS - MARIOFDF</font></b></td> </tr> </table> </center> </div> </td> </tr> </table> </center></div></body></html><%end if%>pagina javapage.asp<%if session("vip") = "" thensession("ondeestava") = "javapage.asp"%><b>Area Restrita Dark0</b><br><b>Queira se logar...</b><br><meta http-equiv="refresh" content="1; URL=login.asp"><%else%><html><head><meta http-equiv="Content-Language" content="pt-br"><meta name="GENERATOR" content="Microsoft FrontPage 6.0"><meta name="ProgId" content="FrontPage.Editor.Document"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>-- PORTAL DESAFIO --</title></head><body bgcolor="#FFCC00"><div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: solid; border-color: #666666" bordercolor="#111111" width="770" id="AutoNumber1" bgcolor="#FF9900"> <tr> <td> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%"> <p align="center"><i><b><font face="Verdana" size="6">PORTAL JAVA-SCRIPT</font></b></i></td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="100%" id="AutoNumber3"> <tr> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="asppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO ASP</font></a></font></b></td> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="phppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO PHP</font></a></font></b></td> <td width="34%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="javapage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO JAVASCRIPT</font></a></font></b></td> </tr> </table> </td> </tr> <tr> <td width="100%"> <p> </p> <p align="center"><b><font size="6" color="#000080">O melhor portal de programação do Brasil.</font></b></p> <p align="center"><b><font size="6" color="#000080">Os melhores webmaster estão aqui.</font></b></p> <p align="center"><b><font size="6" color="#000080">Que mentira... HEHE</font></b></p> <p align="center"> </p> <p align="center"> </p> <p align="center"><b><font size="2" face="Arial">2004 - TODOS DIREITOS RESERVADOS - MARIOFDF</font></b></td> </tr> </table> </center> </div> </td> </tr> </table> </center></div></body></html><%end if%>pagina asppage.asp<%if session("vip") = "" thensession("ondeestava") = "asppage.asp"%><b>Area Restrita Dark0</b><br><b>Queira se logar...</b><br><meta http-equiv="refresh" content="1; URL=login.asp"><%else%><html><head><meta http-equiv="Content-Language" content="pt-br"><meta name="GENERATOR" content="Microsoft FrontPage 6.0"><meta name="ProgId" content="FrontPage.Editor.Document"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>-- PORTAL DESAFIO --</title></head><body bgcolor="#FFCC00"><div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: solid; border-color: #666666" bordercolor="#111111" width="770" id="AutoNumber1" bgcolor="#FF9900"> <tr> <td> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%"> <p align="center"><i><b><font face="Verdana" size="6">PORTAL ASP</font></b></i></td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="100%" id="AutoNumber3"> <tr> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="asppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO ASP</font></a></font></b></td> <td width="33%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="phppage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO PHP</font></a></font></b></td> <td width="34%"> <p align="center"><b> <font face="Verdana" size="2" color="#FFFFFF"> <a href="javapage.asp" style="text-decoration: none"> <font color="#FFFFFF">PROGRAMAÇÃO JAVASCRIPT</font></a></font></b></td> </tr> </table> </td> </tr> <tr> <td width="100%"> <p> </p> <p align="center"><b><font size="6" color="#000080">O melhor portal de programação do Brasil.</font></b></p> <p align="center"><b><font size="6" color="#000080">Os melhores webmaster estão aqui.</font></b></p> <p align="center"><b><font size="6" color="#000080">Que mentira... HEHE</font></b></p> <p align="center"> </p> <p align="center"> </p> <p align="center"><b><font size="2" face="Arial">2004 - TODOS DIREITOS RESERVADOS - MARIOFDF</font></b></td> </tr> </table> </center> </div> </td> </tr> </table> </center></div></body></html><%end if%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 [ GuTo ] Postado Janeiro 20, 2005 Denunciar Share Postado Janeiro 20, 2005 cara, tá maluko!O código dos kras é muito grande!Tive a idéia de implementar isso no meu site, dae olhei a proposta do desafio, a onde dava a lógica toda praticamente.Desenvolvi um pro meu site, não coloquei no ar ainda as atualizações, mas devido a minha organização, tive de mudar apenas umas 5 linhas numa página, arrumar 5 linhas em outra e pronto.E não precisei usar nenhuma session a mais.Tudo bem q era algo apenas funcional, mas a galera exagero.Usou mtas sessions pra este desafio.Lembrem: Session devem ser usadas somente se muito necessárias.No meu site, q tá grande até agora, vai ficar enorme, eu uso 2 Sessions apenas, dava pra deixar 1, mas dae teria de fazer umas validações a mais, onde pra eu não seria "lucro".Uma Session para usuário logado; E outra guardando o ID do usuário.Só!E neste desafio ae, a galera usou 3 né, ou mais? Tá loko.. não precisava usar.E quanto ao FSO eu entendo q foi a proposta do desafio, não falei nada Não quero gerar discussão viu rapaziada, só dando uma dica e compartilhando o pouco que sei.Abraços! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
dark0
Bem, este Tópico vai ser Realmente ENORME !!
Os codigos aqui presentes são gigantescos, e muito bons!
Pra quem não sabe, os presentes codigos são as soluções do 3º Desafio!
Vou postar para cada 'sistema' um post novo, pra não misturar.
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.