Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Tudo que victormartins postou

  1. Vlw Andréia.. funcionou legal!!
  2. Olá! Como fazer com que a página exiba somente os dados que iniciam com a letra que eu selecionei? Por ex: Eu selecione a Letra A, ai ele coloca uma QueryString "letra=a"... Como eu faço para que a página exiba somente os dados que comecem com a letra A? Grato. []'s
  3. É... também tinha reparado que ele não falava nada do IIS7 e/ou Windows Vista.... Deve ser isso mesmo =/
  4. Está certinho pois eu testei no servidor online e ele roda diretinho.
  5. Bom... Vamos aos dados primeiro: Windows Vista IIS 7 Baixei o AspUpload, instalei, ele diz que instala normal e tals, tem a documentação e etc... Mas........ Eu mando executar o script de upload e ele diz que não está instalado! Tentei registrar manualmente a DLL dele copiando a DLL para c:\Windows\system32\aspupload.dll e executando o comando regsvr32 c:\windows\system32\aspupload.dll Ele diz que registra e tals, mas eu mando ele verificar se o componente está instalado no localhost e ele diz que não está, ai executo a página e dá este erro (de que não tem o componente). Alguém sabe instalar?! O_O Porque para eu ficar testando no servidor online é ruim :S , tem que mandar arquivos grandes para testar e com upload (lixo) de 128kb não dá :P Grato!
  6. Consegui... Session("nome")= varNomeLogin Session("ID")= varID Session("login2")=varLogin Session("nivel")=varNivel Session("login")=TRUE Session("senha")=TRUE secao = Session("login") sql2 = "insert into tabela (tabela_ip, data, hora, login, secao) values('"&ip&"','"&data&"','"&hora&"','"&user&"','"&secao&"')" conexao2.execute(sql2) Session.Timeout = 120 Response.Redirect "default.asp?id="&(varID) &"" else Session("login")=False Session("senha")=False secao = Session("login") sql2 = "insert into tabela (tabela_ip, data, hora, login, secao) values('"&ip&"','"&data&"','"&hora&"','"&user&"','"&secao&"')" conexao2.execute(sql2) Session.Abandon() Response.Redirect "logar.asp" Coloquei para ele gravar depois que cria a seção e antes que ele redireciona, funcionou certinho :D
  7. A idéia do log é verificar se alguém tentou entrar, se conseguiu ou não. Ai ele grava o IP de quem tentou e/ou conseguiu, o usuário que tentou e/ou conseguiu, hora, data e etc... Então para saber se conseguiu entrar ou não, ele verificaria se a seção foi True ou False, ai True é que conseguiu e false é que não conseguiu, foi o que eu tentei fazer :P Mas, ele não gravava a seção pois ela é gerada depois da gravação do log, e se eu colocasse o código depois de criar a seção ele não gravava pois ele redireciona para default.asp ou logar.asp antes. []'s
  8. Eu não sou muitooo baum com ASP... <% 'Conectando ao banco: url_conexao2 = Server.MapPath("logs/log_acesso_secret.mdb") set conexao2 = Server.CreateObject("ADODB.Connection") conexao2.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao2 'capturando o ip ip = request.servervariables("remote_addr") ' data de acesso data = Right("00" & Day(date),2)&"/"& Right("00" & Month(date),2)&"/" & Year(date) ' horário de acesso hora = time() ' recupero o username user = Request.Form("login") ' tento recuperar se a seção foi criada ou não secao = Session("login") 'criaando o sql, que vai inserir os dados no banco 'sql = "insert into tabela (tabela_ip, data, hora, login, secao) values('"&ip&"','"&data&"','"&hora&"','"&user&"','"&secao&"')" 'executando o sql, inserindo os dados.. 'conexao.execute(sql) %> <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("dlog/bdlog.mdb") sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) if not rsLogin.eof then sql2 = "insert into tabela (tabela_ip, data, hora, login, secao) values('"&ip&"','"&data&"','"&hora&"','"&user&"','"&secao&"')" conexao2.execute(sql2) varNomeLogin = rslogin("nome") varID = rsLogin("ID") Login = rsLogin("login") varLogin = rsLogin("login") Senha = rsLogin("senha") Session("nome")= varNomeLogin Session("ID")= varID Session("login2")=varLogin Session("login")=TRUE Session("senha")=TRUE Session.Timeout = 120 Response.Redirect "default.asp?id="&(varID) &"" else Session("login")=False Session("senha")=False Session.Abandon() Response.Redirect "logar.asp" end if conexao.close rsLogin.close set conexao = nothing set rsLogin = nothing %> Fiz certo? O_O SE fiz... ele não grava se a seção foi verdadeira ou falsa e só grava se a pessoa conseguiu efetuar o login :P
  9. Olá pessoal! Eu estou fazendo um log de acesso à um sistema de login... porém eu queria fazer com que ele verificasse se a pessoa obteve sucesso no login. logar.asp = A pessoa digita o usuário, senha... login.asp = Verifica os dados, grava no log default.asp = Página depois de logado login.asp: <% 'Conectando ao banco: url_conexao = Server.MapPath("logs/log_acesso_secret.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'capturando o ip ip = request.servervariables("remote_addr") ' data de acesso data = Right("00" & Day(date),2)&"/"& Right("00" & Month(date),2)&"/" & Year(date) ' horário de acesso hora = time() ' recupero o username user = Request.Form("login") ' tento recuperar se a seção foi criada ou não secao = Session("login") 'criaando o sql, que vai inserir os dados no banco sql = "insert into tabela (tabela_ip, data, hora, login, secao) values('"&ip&"','"&data&"','"&hora&"','"&user&"','"&secao&"')" 'executando o sql, inserindo os dados.. conexao.execute(sql) %> <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("dlog/bdlog.mdb") sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) if not rsLogin.eof then varNomeLogin = rslogin("nome") varID = rsLogin("ID") Login = rsLogin("login") Senha = rsLogin("senha") Session("nome")= varNomeLogin Session("ID")= varID Session("login")=TRUE Session("senha")=TRUE Session.Timeout = 120 Response.Redirect "default.asp?id="&(varID) &"" else Session("login")=False Session("senha")=False Session.Abandon() Response.Redirect "logar.asp" end if conexao.close rsLogin.close set conexao = nothing set rsLogin = nothing %> Então tento utilizar: secao = Session("login") sql = "insert into tabela (tabela_ip, data, hora, login, secao) values('"&ip&"','"&data&"','"&hora&"','"&user&"','"&secao&"')" Porém... como a seção é criada após esse código ele não grava no log. Tem alguma outra maneira de fazer? Neste jeito ele verificaria se a seção é Verdadeira ou Falsa :P Obrigado! []´s
  10. É man, infelizmente =/ Eu já achei o problema, é na minha placa de vídeo, tenho que troca-lá, mas, não quando poderei trocar :(
  11. T_T Meu PC ta com pau T_T Toda vez que vou abrir um movie clip o PC trava (congela) T_T Malz, mas, não vai dar =/ Fica para a próxima T_T
  12. Putz, que saudade hehehe beleza, entendi então =D E vejo que o Konras é mod agora! Parabéns ae man!
  13. Depois de um tempão sem acessar a SB estou de volta! =D AE!! Ainda posso entrar no duelo? Sinto saudade! Só uma dúvida, a imagem vai ser carregada de maneira externa através de outro swf, o preloader deve estar no swf externo?
  14. Fiquei bastante tempo sem acessar o fórum e vejo que muitas coisas mudaram aqui! Parabéns Beraldo!
  15. victormartins

    Hotsite Simples

    uma boa idéia, eu também nunca consegui fazer, abre o tópico a gente tenta fazer
  16. victormartins

    Hotsite Simples

    Parabens Marco! abre o tópico com o novo duelo Konras!
  17. victormartins

    Hotsite Simples

    achei todos os site muito legais, o site dá a mensagem que o usuario necessita, parabens à todos que participaram do duelo! meu voto vai para o Marco
  18. victormartins

    Hotsite Simples

    pode votar no proprio trabalho??? hehhehhe
  19. victormartins

    Hotsite Simples

    eu eu eu! já estou terminando! desculpem-me pela demora ^----------------------------------------------Enviei essa menssagem às 14:14 Teminei!!!!!! Aí está! Prontinho: Link para o HotSite Espero que gostem!
  20. victormartins

    Hotsite Simples

    hhehehe, eu vi agora o site, fiquei sem computador durante 1 semana! deu uns problemas aqui e aproveitei pra fazer um upgrade no comp também! bom, vou retomar ao meu site do duelo
  21. desse jeito funciona sem o blank também, mas acusa como se fosse pop-up, se tirar o window.open ele não faz nada, e com o window.open o bloqueador acusa que é uma pop-up e bloqueia, queria uma funcao que não usasse o window.open
  22. usei este script para abrir uma nova pagina quando mudar o selct option, só que ele está tratando como Pop-up e o bloqueador bloqueia :blink: ! <select size="1" name="Regiao" tabindex="3" class="txtbox" onchange="window.open(this.location = options[selectedIndex].link)"> <option link="http://www.site.com.br">1ª</option> <option link="http://www.site.com.br">2ª</option> <option link="">3ª</option> <option link="http://www.site.com.br">4ª</option> <option link="http://www.site.com.br">5ª</option> <option selected>--</option> </select> detalhe para o 3ª e -- que precisam não abrir nada vlw
  23. victormartins

    Hotsite Simples

    beleza, ate la acho que o meu esta pronto! e Marco o seu esta muito bom! gostei
  24. é background-url mesmo, tenta colocar assim no CSS: #conteudosombra { width:778px; position:relative; left:50%; margin-left:-389px; background:url('Imagens/img_fundo_conteudo.gif') }
×
×
  • Criar Novo...