Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Tudo que victormartins postou

  1. ele ainda mostra a pagina sem precisar de login!
  2. form.asp <form method=post action="login.asp"> <table border=0 width="80%" align=center> <tr> <td align=right valign=top><font face="Arial" size="2">Usuário:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Login" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Senha:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=password name="Senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> </font> </table> <center><input type=submit name=submit value=Logar style="{<font-family:Arial; font-size:12}"></center> </form></p> login.asp <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb") sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) Login = rsLogin("login") Senha = rsLogin("senha") if not rsLogin.eof then Session("login")=TRUE Session("senha")=TRUE Response.Redirect"adminname.asp" else Response.Redirect"form.asp" end if conexao.close rsLogin.close set conexao = nothing set rsLogin = nothing %> adminname.asp <html> <head> <title>Cadastro de membros</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <frameset rows="*,140" frameborder="NO" border="0" framespacing="0" cols="*"> <frame name="centro" src="centroadmin.asp"> <frame name="menu" scrolling="NO" noresize src="menuadmin.asp"> </frameset> <noframes> <body bgcolor="#FFFFFF" text="#000000"> </body> </noframes> </html> se precisar de outras pags me avisem!! Me ajudem por favor!!!
  3. futuramente este site vai ter fotos, enquete eu só coloquei essa prara demonstracao, vai ter imagens de produtos, newsletter, administracao, login, acesso ao bd por login e senha, atualizacao de cadastros para a administracao, sistema de busca, e mais umas coisas...
  4. Queria saber quais são os comandos de musica no flash, tipo Play, Pause, Stop, Next vlw!!!
  5. Quanto vale este site??? http://www.libihost.net/cpespzn/
  6. então eu faco a conexao com o BD e então eu coloco assim: <% Sql = "Select * from Tabela" Set Rs = Conn.Execute (Sql) If not Rs.EOF Then Do While not Rs.EOF Response.Write Rs("Nome_do_campo") Loop End If %> é???
  7. victormartins

    Redirecinar Para Site

    ou então: <% 'A função response.redirect redireciona o browser do cliente para o endereço contido na variável URLnova URLnova = "index.asp" response.redirect(URLnova) %>
×
×
  • Criar Novo...