Ir para conteúdo
Fórum Script Brasil

mestre fyoda

Membros
  • Total de itens

    1.908
  • Registro em

  • Última visita

Tudo que mestre fyoda postou

  1. alguém poderia desemvolver um script de banir usuário e desbanir usuários. Por favor daria para adaptar ao meu script de login á banir o usuario . login.asp <% 'Efetuando a conexão com a base de dados criada Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open 'Vamos capturar o login e a senha digitada no firmulário login2 = Request.Form("txt_login") senha2 = Request.Form("txt_senha") 'Agora verificamos se o usuário e a senha estão corretos SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' " Set RS = Conn.Execute(SQL) 'Caso não esteja correto, indicamos o erro If RS.EOF Then Response.Write "usuário ou senha inválida!" Response.End End If 'Se chegou até aqui, é porque o login e senha estão corretos. 'Vamos então verificar o nível de acesso do usuário. session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas SESSION("LOGADO")="S" session("usuario") = request("usuario") session("senha") = request("senha") Response.Redirect "adm.asp" 'página restrita %>
  2. alguém poderia desenvolver um banir.asp com checkbox , mas com explicaçoes do que foi feito , Contendo o BANIR E DESBANIR usuario . ><><>< Grato Por favor me ajudem .
  3. Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /clanevil/alterar.asp, line 37 Poderiam me passor o codigo corrigido e com explicação od erro . Obrigado . <!--#include file="restrito.asp"--> <!--#include file="conn.asp"--> <% If Request.Form("enviado") = "sim" Then login = Replace(Request.Form("login"), "'", "/") pass = Replace(Request.Form("pass"), "'", "/") nsenha = Replace(Request.Form("nsenha"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") email = Replace(Request.Form("email"), "'", "/") nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") login = Request.Cookies("login") sql = "SELECT senha FROM usuarios WHERE login="&login&"" sql = "UPDATE usuarios SET nome='"&Request.Form("nome")&"', email='"&Request.Form("email")&"', snome='"&Request.Form("snome")&"', senha='"&Request.Form("nsenha")&"', login='"&Request.Form("login")&"', sexo='"&Request.Form("sexo")&"' WHERE login = '"&login&"'" Conexao.Execute(Sql) Else %> <form method="POST" action="alterar.asp"> <input type="hidden" name="enviado" value="sim"> <p align="center">Nome: <input type="text" name="nome" size="20"><BR> Sobre Nome: <input type="text" name="snome" size="20"><BR> Email: <input type="text" name="email" size="20"><BR> Login: <input type="text" name="login" size="20"><BR> Senha Atual: <input type="password" name="pass" size="20"><BR> Nova Senha: <input type="password" name="nsenha" size="20"><BR> Confirme a Senha: <input type="password" name="c_senha" size="20"><BR> Sexo: <input type="text" name="sexo" size="20"><BR> <input type="submit" value="Alterar"> </form> <% End IF Conn.Close %>
  4. Eu coloquei o codigo lá . você poderia me passar o codigo fonte de um script de alterar.asp : campos : senha-> senha no bd nsenha-> senha nova c_senha-> confirmar nova senha nome snome email login Para poder fazer a alteração o usuario tera que digitar a senha para poder alterar qualquer dados .
  5. Ei cara , o codigo passado não esta funcionando . acesse esse endereço : Alterar cadastro
  6. o codigo não esta correto ele não demonstra o erro : Http 500
  7. você diz a conexao com o sqls , eu não tenho nada de sql , você poderia me ajudar a emplementar , me passa o codigo .
  8. o arquivo de conexao com o bd é esse você poderia analizar e me passar o certo , e me dizer o que estava errado e me explicar o porque . <% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb") ConexaoAberta = FALSE Sub AbreConexao() If Not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True End If End Sub Sub FechaConexao() If ConexaoAberta then Conexao.close ConexaoAberta = False End If End Sub %>
  9. ADODB.Field erro '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /clanevil/alterar_cadastro.asp, line 0 Por favor , poderiam me passar o codigo corrigido . <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") nsenha = Replace(Request.Form("nsenha"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") email = Replace(Request.Form("email"), "'", "/") nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") If not RS.EOF Then Response.Write "Senha Incorreta!<BR><a href=alterar.asp>Voltar</a>" Else Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&senha&"', email = '"&email&"', nome = '"&nome&"', snome = '"&snome&"', sexo = '"&sexo&"' WHERE senha = '"&senha&"'") Response.Write "Dados alterados" End If Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'")%> <form method="POST" action="alterar.asp"> <input type="hidden" name="enviado" value="sim"> <p align="center">Nome: <input type="text" name="nome" value="<%=dados("nome")%>" size="20"><BR> Sobre Nome: <input type="text" name="snome" value="<%=dados("snome")%>" size="20"><BR> Email: <input type="text" name="email" value="<%=dados("email")%>" size="20"><BR> Login: <input type="text" name="login" value="<%=dados("login")%>" size="20"><BR> Senha Atual: <input type="password" name="senha" value="<%=dados("senha")%>" size="20"><BR> Nova Senha: <input type="password" name="nsenha" value="<%=dados("nsenha")%>" size="20"><BR> Confirme a Senha: <input type="password" name="c_senha" value="<%=dados("c_senha")%>" size="20"><BR> Sexo: <input type="text" name="sexo" value="<%=dados("sexo")%>" size="20"><BR> <input type="submit" value="Alterar"> </form> <% End If FechaConexao %>
  10. Me ajudem a implementar os campos : nome -> nome da pessoa snome -> sobrenome senha-> senha atual (mantem ) novasenha -> senha nova c_senha -> confirma a senha nova login -> mantem email -> email Para o usuario poder fazer qualquer modificação , ele tera que digitar a senha ( por medida de segurança ) . alterar.asp <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"'") If not RS.EOF AND login <> Session("login") Then Response.Write "Este login já está cadastrado!<BR><a href=alterar.asp>Voltar</a>" Else Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&senha&"' WHERE login = '"&Session("login")&"'") Response.Write "Dados alterados" End If Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'")%> <form method="POST" action="alterar.asp"> <input type="hidden" name="enviado" value="sim"> Login: <input type="text" name="login" value="<%=dados("login")%>" size="20"><BR> Senha: <input type="password" name="senha" value="<%=dados("senha")%>" size="20"><BR> <input type="submit" value="Alterar"> </form> <% End If FechaConexao %>
  11. nunca, você poderia me ajudar a colocar o codigocerto .
  12. alguém poderia me passar o codigo de excluir usuario, os campos são : id sexo login senha nome snome email
  13. como faço isso , me ajuda cara ,me passa o meu codigo corrigido .
  14. Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'dados' /clanevil/alterar.asp, line 37 <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") email = Replace(Request.Form("email"), "'", "/") login = Replace(Request.Form("login"), "'", "/") oldsenha = Replace(Request.Form("oldsenha"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE oldsenha = '"&senha&"'") If oldsenha <> senha Then Response.Write "A senha não antiga não confere , você presiza digita-la para alterar qualquer coiza .<a href=alterar.asp>Voltar</a>" Else Conexao.Execute("UPDATE usuarios SET nome = '"&nome&"', snome = '"&snome&"', email = '"&email&"' , login = '"&login&"', senha = '"&senha&"', sexo = '"&sexo&"' WHERE login = '"&Session("login")&"'") Response.Write "Dados alterados" End If Else %> <form method="POST" action="alterar.asp"> <input type="hidden" name="enviado" value="sim"> <body bgcolor="#C0C0C0"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="339" height="242" id="AutoNumber1" bgcolor="#C0C0C0"> <tr> <td width="339" height="58"> <fieldset> <p align="center"><font face="Tahoma"><b>Alterar Dados Cadastrados</b></font> </p> </center> <p><b><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Nome:&nbsp;</font></b><font face="Verdana"><b><font size="2"> </font><input type="text" name="nome" size="20" maxlength="20" value="<%=dados("nome")%>"></b></font></p> <p><b><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sobre Nome:&nbsp; </font></b><font face="Verdana"><b> <input type="text" name="snome" size="20" maxlength="20" value="<%=dados("snome")%>"></b></font></p> <p><b><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; E-mail: </font> </b><font face="Verdana"><b> <input type="text" name="email" size="20" maxlength="40" value="<%=dados("email")%>"></b></font></p> <p><b><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sexo: <select disabled size="1" name="sexo"> <option>---( Escolha um&nbsp; Sexo)---</option> <option value="masculino">Masculino</option> <option value="feminino">Feminino</option> <option value="Lesbica">Lesbica</option> <option value="Gay">Gay</option> </select></font></b></p> <b><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Login: </font></b> <font face="Verdana"><b> <input type="text" disabled name="login" size="20" maxlength="40" value="<%=dados("login")%>"></b></font> <p><b><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Senha: </font></b><font face="Verdana"><b> <input type="password" name="senha" size="20" maxlength="8" value="<%=dados("senha")%>"></b></font></p> <p><b><font size="2" face="Verdana">&nbsp;Confirme a senha: </font></b><font face="Verdana"><b> <input type="password" name="c_senha" size="20" maxlength="8"></b></font></p> <p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="submit" value="Alterar"> </form> <% End If FechaConexao %>
  15. Que tipo de componente eles usam para enviar email : quais são os dados do servidor .
  16. alguém poderia me indicar alguma hospedagem paga que custa de R$3 à 10 reais, mais com todos os recursos disponiveis.
  17. mestre fyoda

    Me Ajudem

    não to achando um legal cara , so tem scripts meia boca . se você puder me passar .
  18. mestre fyoda

    Me Ajudem

    POR FAVOR alguém PODERIA ME PASSAR O SCRIPT DE LOGIN , CONTENDO : -MODIFICAR CADASTRO -AUTENTICAÇÃO -CADASTRO -ADMINISTRAÇÃO -LEMBRAR SENHA -eM MYSQL
  19. Por favor não postem essas hospedagens gratuitas : Barry's World - http://www.barrysworld.net CoolFreeHosts - http://coolfreehosts.com CoolFreePages - http://coolfreepages.com Digital Rice - http://www.digitalrice.com DK3 - http://dk3.com Escalix - http://www.escalix.com/freepage F2g.net - http://www.f2g.net FateBack - http://www.fateback.com Free PHP - http://freephp.digiro.net Freedom2surf - http://www.f2s.com IndyHosting - http://www.indyhosting.net LunarPages - http://www.lunarpages.com MasCanc.net - http://www.mascanc.net Maxi-Web - http://www.maxi-web.net/home/ Portland Communications - http://www.portland.co.uk pSend - http://www.psend.com Spaceports - http://www.spaceports.com Xoasis - http://xoasis.com já testei e não vale a pena , a maioria não funciona e não suporta php .
  20. Por favor estou presizando , eu já possuo hospedagem no miarroba e na lycos , eles estão muito instaveis . Me ajudem .
  21. Me ajudem pessoal , se alguém puder me passar algum script ou fazer um , me passa no forum . Esse script tem que ter , banir e deletar usuario , niveis de usuarios , sendo que o só havera um Administrador Mestre que fará tudo , o moderador podera fazer de tudo menos deletar ou banir o Administrador mestre .
  22. mestre fyoda

    Admin Php

    Não , eu quero só essas ações para o meu site .
  23. mestre fyoda

    Admin Php

    Eu não manjo mexer com essas coisas , alguém poderia me mandar um script de administrador que tenha Banir Usuario , deltar , 3 niveis de usuarios . Me ajudem por favor .
  24. alguém poderia fazer o alterar.php com essas variaveis : OBS: para fazer qualquer tipo de alteração tera que digitar a senha . $login = $_POST["username"]; $senha = $_POST["senha"]; $senha2 = $_POST["senha2"]; $MSN = $_POST["MSN"]; $nome = $_POST["nome"]; $sobrenome = $_POST["sobrenome"]; $email = $_POST["email"]; Por favor me ajudem . Tentei fazer mas nada .
×
×
  • Criar Novo...