Gnomo

Membros
  • Content Count

    184
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Gnomo

  • Birthday 08/15/1988

Contatos

Perfil

  • Location
    Macaé-RJ
  1. Falae, beleza? Então cara eu vi isso numa aplicação de e-mail marketing, tive pesquisando na internet e vi que o nome para isso é "Message Bounce", achei um script neste site http://www.webonweboff.com/tips/asp/email.aspx mas não conseguir fazer rodar, tentei montar o script conforme eles explicam la, mas fica dando erro toda hora, eu não sei muito de asp.net sou programador front-end e uso asp para o back-end, ainda estou aprendendo asp.net, fora isso achei só uns componentes pagos na internet. Valeu!
  2. Fala galera, beleza? Seguinte, to qrendo fazer um script em asp.net c# que envie os e-mails, mas antes verificasse se o e-mail realmente existe no respectivo servidor. Exemplo: Se o script tentar enviar um e-mail para [email protected] apresentaria uma falha. Fiz esse script usando o SmtpException para retornar a mensagem, mas pelo jeito teria que fazer mais alguma coisa pra fazer esta verificação. Não achei nada no google sobre o assunto na plataforma .NET { //The From address (Email ID) string str_from_address = "[email protected]"; //The Display Name string str_name = "Teste"; //The To address (Email ID) string str_to_address = "[email protected]"; MailMessage email = new MailMessage(); email.From = new MailAddress(str_from_address, str_name); email.To.Add(str_to_address); email.Subject = "Teste SMTP"; email.Body = "Teste SMTP Teste SMTP Teste SMTP Teste SMTP Teste SMTP"; email.IsBodyHtml = true; SmtpClient mail_client = new SmtpClient(); mail_client.Credentials = new NetworkCredential(str_from_address, "123456"); mail_client.Port = 25; mail_client.Host = "localhost"; try { mail_client.Send(email); lblMsg1.Text = "Enviado com sucesso!!"; } catch (SmtpException ex) { lblMsg1.Text = ex.StatusCode+" - "+ex.Message; } }
  3. Gnomo

    Certificados SSL

    Fala galera! Seguinte, atualmente tenho um site hospedado na hostgator e a pouco tempo contratei um Certificado SSL que eles fornecem, da Comodo. Mas o firefox não está reconhecendo o certificado, somente o internet explorer e o chrome onde testei está funcionando normalmente. O pessoal do suporte disse que o firefox possui uma lista de certificados que é atualizada e que ainda o meu certificado não foi incluído nesta lista. Gostaria de saber se isso é verdadeiro, pois não achei nada na internet sobre isso. Desde já agradeço; GnomO!
  4. Olá galera, Procurei em vários lugares uma função que filtrasse algumas tags html, de uma determinada string antes de gravar no bd, por exemplo: <% String1 = "<b>Texto 1</b>" String2 = "<script>alert('Texto 2')</script>" Response.Write String1 & " - " & String2 %> Saída: <b>Texto 1</b> Espero que tenham entendido minha dúvida. Desde já agradeço Fabrício Oliveira
  5. Então será que tenho que utilizar aqueles caracteres para acento tipo &aacute; e etc..? Por que já tentei editar também o valor dos campos e não deu certo... Valeu!!
  6. Falae galera!! Seguinte.. to com um problemão, já busquei em vários sites e não obtive resposta. Antes eu usava o charset da minha página como ISO-8859-1, mas lendo alguns posts sobre web standards vi que o melhor charset a ser usado é o UTF-8, então resolvi fazer meu novo site em UTF-8, os caracteres com acentos das páginas estão ok, o collation do BD em mysql também está como UTF-8, só que quando puxo algum dado do bd os caracteres com acentos não aparecem, já tentei de tudo, cheguei a uma solução de usar a função utf8_encode(), mais fica chato toda vez que precisar de uma informação do bd ter que usar utf8_encode(). alguém sabe alguma solução? Desde já agradeço. GnomO!
  7. E aí galera... Fiz uma função aqui que acho que pode ajudar muita gente. É impressionante a quantidade de sites vulneráveis a SQL Injection que achamos por aí, e não é dificil de se fazer basta ler um tutorial que você encontra por ai (até mesmo no google) e você pode ter o controle do bd fácil fácil, como deletar registros inteiros de tabelas ou até mesmo inserir muitos registros e várias outras coisas se você tiver uma boa noção de SQL. Para mais informações acesse: http://www.casadoswebmasters.com.br/index....25&colid=25 Segue a função: Essa função eu peguei do http://blogasp.wordpress.com/ e adaptei. Function BlockSQLInjection(Texto) Texto = lcase(Texto) lixo = array ("select", "drop", ";", "--", "insert", "delete", "xp_", "=", " or ", "-shutdown", "update", " and ", "'", "&") for intI = 0 to uBound(lixo) 'Aqui o código faz a verificação se existe algum dos valores acima setados acima. If instr(1,Texto,lixo(intI),1)>0 Then 'Aqui o código grava no bd um registro do tipo de ataque sql injection que o cara tentou fazer, ex: delete, update, etc... E grava o ip dele. 'Você pode fazer qualquer ação aqui até redirecionamento para alguma página. A UOL a tempos atrás quando alguém tentava fazer um ataque 'por SQL Injection ela redirecionava o "hacker" para a página do fbi. conn.Execute("INSERT INTO Tabela (Tipo, IP) VALUES ('SQL Injection - "&lixo(intI)&"', '"&Request.ServerVariables("REMOTE_ADDR")&"')") End If Texto = replace(Texto, lixo(intI) , "") next BlockSQLInjection = Texto End Function Lembrando que, isso é só uma precaução, você não estará 100% livre de ataques por SQL injection, se o "hacker" for muito bom. Se alguém quiser acrescentar alguma coisa ou fazer críticas, fique a vontade.. Valeu!
  8. Gnomo

    CDOSYS Yahoo

    fala galera! Seguinte tenho um sistema de cadastros que envia um e-mail para o usuario de confirmação. Só que o yahoo não esta recebendo as mensagens já testei com dois e-mails e nada.. alguém tem alguma solucao? desde já agradeço
  9. Na verdade eu fiz uma funcão que imprime uma lista com currículos relacionados Function RelacionaCurriculos(Codigo) Set rstOriginal = Server.CreateObject("ADODB.RecordSet") Set rstRelaciona = Server.CreateObject("ADODB.RecordSet") ' Pega valores do currículo original rstOriginal.Open "SELECT Titulo, PosGraduacao, PosOutro, PosOutroTexto, Graduacao, NivelMedio, Tags FROM BE_Profissionais WHERE Codigo="& Codigo, conn If rstOriginal.EOF Then Exit Function Else TituloOriginal = rstOriginal("Titulo") If rstOriginal("PosOutro") = 1 Then PosOutro = rstOriginal("PosOutroTexto") PosOriginal = 0 Else PosOriginal = rstOriginal("PosGraduacao") PosOutro = 0 End If GraduacaoOriginal = rstOriginal("Graduacao") NivelMedioOriginal = rstOriginal("NivelMedio") TagsOriginal = rstOriginal("Tags") End If rstOriginal.Close() ' Tags If TagsOriginal <> "" Then Dim aryCampos(0) aryCampos(0) = "BE_Profissionais.Tags" TagsOriginal = Replace(TagsOriginal,",",chr(13)) aryBuscaResultado = SQLProcura(TagsOriginal, aryCampos) strSQLWhere = strSQLWhere & aryBuscaResultado(0) & " And " strOrdenaBusca = strOrdenaBusca & aryBuscaResultado(1) End If If TituloOriginal <> "" Then Dim aryCampos2(0) aryCampos2(0) = "BE_Profissionais.Titulo" aryBuscaResultado2 = SQLProcura(TituloOriginal, aryCampos2) strSQLWhere = strSQLWhere & aryBuscaResultado2(0) strOrdenaBusca = strOrdenaBusca & aryBuscaResultado2(1) End If ' Compara valores If PosOutro = 0 Then strSQLWhere = strSQLWhere & " And BE_Profissionais.PosOutroTexto = NULL " End If strSQLRelaciona = "SELECT BE_Profissionais.*, BE_Profissionais.Codigo AS CurriculoCod, Usuarios.Nome, BE_AvatarUsuarios.AvatarMinURL FROM Usuarios INNER JOIN BE_Profissionais ON Usuarios.Codigo = BE_Profissionais.Usuario INNER JOIN BE_AvatarUsuarios ON BE_Profissionais.Codigo = BE_AvatarUsuarios.Curriculo WHERE BE_Profissionais.Graduacao = "&GraduacaoOriginal&" Or BE_Profissionais.PosGraduacao = "&PosOriginal&" And BE_Profissionais.Codigo <> "&Codigo&" Or " & strSQLWhere ' Response.Write strSQLRelaciona rstRelaciona.PageSize = 6 rstRelaciona.CacheSize = 6 rstRelaciona.Open strSQLRelaciona, conn Response.Write(" <div class=""related"">") & vbNewLine Response.Write(" <h2>Currículos Relacionados</h2>") & vbNewLine While Not rstRelaciona.EOF Response.Write(" <div class=""line"">") & vbNewLine Cont = 0 While Not rstRelaciona.EOF And Cont < 2 Response.Write(" <div class=""pic"">") & vbNewLine Response.Write(" <div class=""ufoto""><a href="""&CAMINHO_RAIZ_BEMP&"/Curriculo.asp?cid="&rstRelaciona("Id")&"""><img src="""&rstRelaciona("AvatarMinURL")&""" alt="""&AbreviaNome(rstRelaciona("Nome"))&""" title="""&AbreviaNome(rstRelaciona("Nome"))&""" /></a></div>") & vbNewLine Response.Write(" <div class=""unome""><a href="""&CAMINHO_RAIZ_BEMP&"/Curriculo.asp?cid="&rstRelaciona("Id")&""">"&AbreviaNome(rstRelaciona("Nome"))&"</a></div>") & vbNewLine Response.Write(" </div>") & vbNewLine rstRelaciona.MoveNext() Cont = Cont + 1 Wend If Not rstRelaciona.BOF Then Response.Write(" </div>") & vbNewLine Wend If Cont > 0 And Cont < 2 Then Response.Write(" </div>") Cont = Cont + 1 End If Response.Write(" </div>") rstRelaciona.Close() End Function Isso funciona assim voce entra no curriculo do profissional e nele tem os currículos relacionados pelas tags, pela profissao entre outros... e nessa query strSQLRelaciona = "SELECT BE_Profissionais.*, BE_Profissionais.Codigo AS CurriculoCod, Usuarios.Nome, BE_AvatarUsuarios.AvatarMinURL FROM Usuarios INNER JOIN BE_Profissionais ON Usuarios.Codigo = BE_Profissionais.Usuario INNER JOIN BE_AvatarUsuarios ON BE_Profissionais.Codigo = BE_AvatarUsuarios.Curriculo WHERE BE_Profissionais.Graduacao = "&GraduacaoOriginal&" Or BE_Profissionais.PosGraduacao = "&PosOriginal&" And BE_Profissionais.Codigo <> "&Codigo&" Or " & strSQLWhere eu coloquei And BE_Profissionais.Codigo <> "&Codigo&" mais não funciona :\ e essa variável vem da função Function RelacionaCurriculos(Codigo) Obrigado...
  10. Fala galera! Seguinte.. Tenho a tabela notícias com as colunas: ID | Texto | Data para ler as noticias uso uma QueryString tipo Noticias.asp?noticia=15 gostaria de saber como eu faço para na consulta sql imprimir todas as noticias exceto a noticia 15... já procurei no google já tentei WHERE ID <> request("noticia") mais não consigo nenhum resultado... Obrigado...
  11. Isso é configuração do host, iis, apache ets... Voce pode dar permissoes de usuarios anonimos a uma determinada pasta e negar permissoes desses usuarios em outras pastas. Eu não sei como faz essas permissoes não... é so pedir ao host de hospedagem para fazer isso pra você Valeu!!
  12. falae! tem uma chave sobrando ae.. é so tirar ela.. valeu!!!
  13. falae Lenne!!! ve se isso te ajuda: Leia os comentários que estao explicando o script, pra você entender como funciona... <html> <head> <title>Teste</title> <script type="text/javascript"> window.onload = function() { var data = new Date(); var h = data.getHours(); var img = document.getElementById('imagem'); if(h>0 || h<18) { //Se a hora for maior que 0 ou menor que 18 mostra imagem dia claro img.src='claro.jpg; } else if(h>=18 || h<19) { //Se a hora for maior ou = a 18 ou menor que 18 mostra imagem dia escurecendo img.src='escurecendo.jpg'; } else if(h>=20 || h<23) { //Se a hora for maior ou = a 20 ou menor que 23 mostra imagem dia escuro img.src='escuro.jpg'; } } </script> </head> <body> <img border="0" src="" id="imagem" /> </body> </html> Valeu!!!
  14. Você tem q setar um valor pra option selecione tenta assim: if (cmbTipo.value==""){ alert("Selecione o Tipo!") cmbTipo.focus() return false } <select name="cmbTipo" size="1" id="cmbTipo"> <option value="">SELECIONE</option> <option value="01">HONORÁRIOS</option> <option value="02">ALUGUEL</option> <option value="03">CLIENTES</option> <option value="04">FORNECEDORES</option> <option value="05">CONDOMINIO</option> <option value="06">LUZ</option> <option value="07">AGUA</option> <option value="08">TELEFONE</option> <option value="09">GAS</option> <option value="10">ESCOLAS</option> <option value="11">CHEQUES</option> <option value="12">SEGURO</option> <option value="13">SAUDE</option> <option value="14">OUTROS</option> <option value="15">PRÓ-LABORE</option> </select> valeu!!!