segue o código abaixo
<%@ Language=VBScript %> <style type="text/css"> <!-- body { background-color: #000000 background: url('back.jpg') font-family: Verdana font-size: 11px color: white text-decoration: none } a.link { text-decoration: none color: white } a.hover { text-decoration: none color: white } a.active { text-decoration: none color: white } a.visited { text-decoration: none color: white } --> </style> <% option explicit set conexao = server.createobject("adodb.connection") conexao.open "driver={Microsoft Access Driver (*.mdb)}; dbq="&server.mappath("../mdbsites/mdbvp.mdb")&"" n = now() dia = day(n) mes = month(n) ano = year(n) select case mes case 1 or 01 mes = "Janeiro" case 2 or 02 mes = "Fevereiro" case 3 or 03 mes = "Março" case 4 or 04 mes = "Abril" case 5 or 05 mes = "Maio" case 6 or 06 mes = "Junho" case 7 or 07 mes = "Julho" case 8 or 08 mes = "Agosto" case 9 or 09 mes = "Setembro" case 10 mes = "Outubro" case 11 mes = "Novembro" case 12 mes = "Dezembro" end select select case dia case 1 dia = 01 case 2 dia = 02 case 3 dia = 03 case 4 dia = 04 case 5 dia = 05 case 6 dia = 06 case 7 dia = 07 case 8 dia = 08 case 9 dia = 09 end select select case "s" s = request.querystring("s") case "login" %> <form method=post action="?s=logar"> <input type=text name=user style="border: 1px solid #000000;font-size: 11px"> <input type=password name=pass style="border: 1px solid #000000;font-size: 11px"> <input type=submit name="submit" value=" LOGAR " style="border: 3px solid #000000;font-size: 11px;font-family: verdana"> </form> <% case "logar" user = request.form("user") pass = request.form("pass") sql = "select * from usuarios user='"&user&"' and pass='"&pass&"'" set rs = conexao.execute(sql) if not rs.eof then response.cookies("www.vpclan.br.nu")("user") = rs("user") response.cookies("www.vpclan.br.nu")("pass") = rs("pass") response.cookies("www.vpclan.br.nu")("nivel") = rs("nivel") response.cookies("www.vpclan.br.nu").expires = mes & " " & dia & ", " & cint(ano+1) session("user") = rs("user") session("nivel") = rs("nivel") response.redirect("?s=index") else response.redirect("?s=login") end if case "logout" session.abandon response.cookies("www.vpclan.br.nu").expires = 0 response.redirect("?s=login") case "index" if session("user") = "" then response.redirect("?s=login") else %> <table cellpadding=0 cellspacing=0 border=0 style="border: 1px solid #000000"> <tr> <td><a href="?s=addnot">Adicionar Notícia</a></td> <td><a href="?s=addmem">Adicionar Membro</a></td> <td><a href="?s=addcon">Adicionar Confronto</a></td> </tr> <tr><td colspan=3><a href="?s=logout">Logout</a></td></tr> </table> <% end if case "addnot" if session("user") = "" then response.redirect("?s=login") else %> <form method=post action="?s=addnot2"> <table cellpadding=0 cellspacing=0 border=0> <tr> <td>Título: </td> <td><input type=text name=titulo style="font-family: verdana;font-size: 11px"></td> </tr> <tr> <td>Mensagem: </td> <td><textarea name=mensagem style="font-family: verdana;font-size: 11px">Escreva seu texto Aqui!</textarea></td> </tr> <tr><td colspan=2><input type=submit value=" ADICIONAR " style="font-family: verdana;font-size: 11px"></td></tr> </table> </form> <% end if case "addnot2" if session("user") = "" then response.redirect("?s=login") else nick = session("user") data = mes & " " & dia & ", " & ano titulo = request.form("titulo") msg = replace(request.form("mensagem"), "'", "''") mensagem = replace(msg, ":)", "<img scr=imgs/alegre.gif>") mensagem = replace(msg, ":(", "<img scr=imgs/triste.gif>") mensagem = replace(msg, ":]", "<img scr=imgs/alegre.gif>") mensagem = replace(msg, ":[", "<img scr=imgs/triste.gif>") mensagem = replace(msg, ":}", "<img scr=imgs/alegre.gif>") mensagem = replace(msg, ":{", "<img scr=imgs/triste.gif>") mensagem = replace(msg, "x)", "<img scr=imgs/alegre.gif>") mensagem = replace(msg, "x(", "<img scr=imgs/triste.gif>") mensagem = replace(msg, "x]", "<img scr=imgs/alegre.gif>") mensagem = replace(msg, "x[", "<img scr=imgs/triste.gif>") mensagem = replace(msg, "x}", "<img scr=imgs/alegre.gif>") mensagem = replace(msg, "x{", "<img scr=imgs/triste.gif>") sql = "insert into noticias (nick,data,titulo,mensagem) values ('"&nick&"','"&data&"','"&titulo&"','"&mensagem&"')" conn.execute(sql) response.redirect("?s=index") end if case "addmem" if session("user") = "" then response.redirect("?s=login") else if session("nivel") = "poster" then response.write "<font size=7 color=red face=verdana>Você Não Tem Acesso A Este Recurso</font>" else %> <form method=post action="?s=addmem2"> <table cellpadding=0 cellspacing=0 border=0> <tr> <td>Nick: </td> <td><input type=text name=nick style="font-family: verdana;font-size: 11px"></td> </tr> <td>ICQ: </td> <td><input type=text name=icq style="font-family: verdana;font-size: 11px"></td> </tr> <td>MSN: </td> <td><input type=text name=msn style="font-family: verdana;font-size: 11px"></td> </tr> <td>E-mail: </td> <td><input type=text name=nick style="font-family: verdana;font-size: 11px"></td> </tr> <tr><td colspan=2><input type=submit value=" ADICIONAR " style="font-family: verdana;font-size: 11px"></td></tr> </table></form> <% end if end if case "addmem2" if session("user") = "" then response.redirect("?s=login") else nick = request.form("nick") icq = request.form("icq") msn = request.form("msn") email = request.form("email") sql = "insert into membros (nick,icq,msn,email) value ('"&nick&"','"&icq&"','"&msn&"','"&email&"') conexao.execute(sql) response.redirect("?s=index") end if case "addcon" if session("user") = "" then response.redirect("?s=login") else if session("nivel") = "poster" then response.write "<font size=7 color=red face=verdana>Você Não Tem Acesso A Este Recurso</font>" else %> <form method=post action="?s=addcon2"> <table cellpadding=0 cellspacing=0 border=0> <tr> <td>Adversário: </td> <td><input type=text name=adversario style="font-family: verdana;font-size: 11px"> *apenas sigla</td> </tr> <tr> <td>Frags Clan: </td> <td><input type=text name=fragsclan style="font-family: verdana;font-size: 11px"></td> </tr> <tr> <td>Frags Adversário: </td> <td><input type=text name=fragsadversario style="font-family: verdana;font-size: 11px"></td> </tr> <tr> <td>Screen: </td> <td><input type=text name=screen style="font-family: verdana;font-size: 11px"></td> </tr> <tr> <td>Demo: </td> <td><input type=text name=demo style="font-family: verdana;font-size: 11px"></td> </tr> <tr><td colspan=2><input type=submit value=" ADICIONAR " style="font-family: verdana;font-size: 11px"></td></tr> </table></form> <% end if end if case "addcon2" if session("user") = "" then response.redirect("?s=login") else adversario = request.form("adversario") fragsclan = request.form("fragsclan") fragsadversario = request.form("fragsadversario") screen = request.form("screen") demo = request.form("demo") sql = "insert into confrontos (adversario,fragsclan,fragsadversario,screen,demo) values ('"&adversario&"','"&fragsclan&"','"&fragsadversario&"','"&screen&"','"&demo&"')" conexao.execute(sql) response.redirect("?s=index") end if case else if request.cookies("www.vpclan.br.nu") = true then request.cookies("www.vpclan.br.nu") user = request.cookies("www.vpclan.br.nu")("user") pass = request.cookies("www.vpclan.br.nu")("pass") nivel = request.cookies("www.vpclan.br.nu")("nivel") session("user") = user session("nivel") = nivel response.redirect("?s=index") else response.redirect("?s=login") end if end select %>
Edição feita por: ::: Mr.Crowley :::, 23/07/2004, 18:56.