Ir para conteúdo
Fórum Script Brasil

Marcelo Faggioni

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Marcelo Faggioni postou

  1. Olá pessoal.. Estou tendo problemas pro meu campo dinâmico ler o php direitinho, especificamente nas TAGs html. Segue o site: www.mdbrand.com.br No canto inferior direito, tem um php interagindo com o meu swf pra puxar os últimos tweets. O php ta funfando direitinho, dá pra ver em mdbrand.com.br/twitter.php No flash, meu campo dinâmico está instanciado como conteudoTwitter, e essa é a ação que puxa a variável "conteudo" que está dentro do php. var objetoLoad:LoadVars = new LoadVars(); objetoLoad.onLoad = function ():Void { if(objetoLoad.conteudo != "") { conteudoTwitter.wordWrap = true conteudoTwitter.text = objetoLoad.conteudo; } } objetoLoad.load("twitter.php"); Os acentos e pontuação estão rolando na boa, mas as TAGs HTML não vão nem fud*ndo! E eu já marquei o Render text as HTML e nada! Tem que aparecer como o desse site pelo menos: www.opadeirosevilha.com.br Se alguém puder me ajudar.. pfavor Abaixo segue o php inteiro. Acredito que ajude! &conteudo=<?php // "Conteudo" é o nome da variável que será inserida no Dynamic Text no Arquivo Flash //Para alterar o Twitter basta mudar o nome do Login e a quantidade de Mensagens $statuses = getTwitterStatus("mdbrand_", 2); // ("Login", Qtd_mensagens); ?> <?php foreach ($statuses as $status) { $msg = $status['message'] . ' - <b>' . $status['time'].'</b><br><br>'; echo $msg; } ?> <?php function getTwitterStatus($twitterUser, $howMany = 1) { //pegar mensagens via XML importado do Twitter $url = sprintf("http://twitter.com/statuses/user_timeline/%s.xml?count=%d", $twitterUser, $howMany); $parsed = new SimpleXMLElement(file_get_contents($url)); $tweets = array(); foreach($parsed->status as $status) { $message = preg_replace("/http:\/\/(.*?)\/[^ ]*/", '<a href="\">\</a>', $status->text); $time = niceTime(strtotime(str_replace("+0000", "", $status->created_at))); $tweets[] = array('message' => $message, 'time' => $time); } return $tweets; } function niceTime($time) { // Ajuste dos Tempos das Mensagens (data atual - data informada na mensagem) $delta = time() - $time; if ($delta < 60) { return 'menos de 1 minuto atrás'; } else if ($delta < 120) { return 'aprox 1 minuto atrás'; } else if ($delta < (45 * 60)) { return floor($delta / 60) . ' minutos atrás'; } else if ($delta < (90 * 60)) { return 'aprox. uma hora atrás'; } else if ($delta < (24 * 60 * 60)) { return 'aprox. ' . floor($delta / 3600) . ' horas atrás'; } else if ($delta < (48 * 60 * 60)) { return '1 dia atrás'; } else { return floor($delta / 86400) . ' dias atrás'; } } ?>&
  2. Pessoal, postei a mesma dúvida no fórum de Flash & ActionScript daki, pois o assunto se refere tanto a flash como asp. Caso não seja necessário apaguem.. Vams lá, Tenho um formulário de e-mail que está rolando tranquilo.. Possuo alguns campos de input, como: nome, e-mail e mensagem, onde a pessoa preenche e clica em enviar.. Para enviar... utilizo a classe loadVars() com o método POST.. tudo vai tranquilo! No ASP, o recebimento dessas variáeis é feito através de Request.form("variável") Gostaria de enviar também, variáveis que não viessem através dos campos de input, mas sim algumas outras que eu quisesse setar, como por exemplo: var naosei:String = "Olá pessoal" Isso não ta dando pra fazer.. o ASP não entende essa variável, e dá erro no envio! vou colocar o código aki pra ver se vocês podem me ajudar.. NO FLASH! var haha:String = "Deu Certo!"; loadVarsEmail = new LoadVars(); //função que envia as variáveis preenchidas nos campos de texto ao PHP/ASP function enviar() { loadVarsEmail.email = email_txt.text; loadVarsEmail.nome = nome_txt.text; loadVarsEmail.haha = haha; loadVarsEmail.sendAndLoad("aspmails.asp",loadVarsEmail,"POST"); } //se as variáveis enviadas do FLASH ao ASP/PHP forem carregadas com sucesso, //ele limpa todos os campos e exibe a mensagem de envio com sucesso, caso contrário é exibida a mensagem de erro. loadVarsEmail.onLoad = function(ok) { if (ok) { email_txt.text = ""; nome_txt.text = ""; saida = "E-mail enviado com sucesso"; } else { saida = "Erro no envio"; } } NO ASP <%@ Language=VBScript %> <% Dim myMail, f1,f2, f3 fields f1 = "Nome: " & Request.Form("nome") & vbcrlf f2 = "E-mail: " & Request.Form("email") & vbcrlf f3 = "Testando: " & Request.Form("haha") & vbcrlf fields = f1 & f2 & f3 Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.From = request.Form("email") myMail.Subject = "E-Mail do Site" myMail.To = "atendimento@bertollini.com.br" myMail.Body = fields myMail.MailFormat = 1 myMail.Send Set myMail = Nothing Response.write "&ok=true" %> Por favor pessoal, aguardo uma sincera ajuda! Abração!
  3. Pessoal.. Tenho um formulário de e-mail que está rolando tranquilo.. Possuo alguns campos de input, como: nome, e-mail e mensagem, onde a pessoa preenche e clica em enviar.. Para enviar... utilizo a classe loadVars() com o método POST.. tudo vai tranquilo! No ASP, o recebimento dessas variáeis é feito através de Request.form("variável") Gostaria de enviar também, variáveis que não viessem através dos campos de input, mas sim algumas outras que eu quisesse setar, como por exemplo: var naosei:String = "Olá pessoal" Isso não ta dando pra fazer.. o ASP não entende essa variável, e dá erro no envio! vou colocar o código aki pra ver se vocês podem me ajudar.. NO FLASH! var haha:String = "Deu Certo!"; loadVarsEmail = new LoadVars(); //função que envia as variáveis preenchidas nos campos de texto ao PHP/ASP function enviar() { loadVarsEmail.email = email_txt.text; loadVarsEmail.nome = nome_txt.text; loadVarsEmail.haha = haha; loadVarsEmail.sendAndLoad("aspmails.asp",loadVarsEmail,"POST"); } //se as variáveis enviadas do FLASH ao ASP/PHP forem carregadas com sucesso, //ele limpa todos os campos e exibe a mensagem de envio com sucesso, caso contrário é exibida a mensagem de erro. loadVarsEmail.onLoad = function(ok) { if (ok) { email_txt.text = ""; nome_txt.text = ""; saida = "E-mail enviado com sucesso"; } else { saida = "Erro no envio"; } } NO ASP <%@ Language=VBScript %> <% Dim myMail, f1,f2, f3 fields f1 = "Nome: " & Request.Form("nome") & vbcrlf f2 = "E-mail: " & Request.Form("email") & vbcrlf f3 = "Testando: " & Request.Form("haha") & vbcrlf fields = f1 & f2 & f3 Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.From = request.Form("email") myMail.Subject = "E-Mail do Site" myMail.To = "atendimento@bertollini.com.br" myMail.Body = fields myMail.MailFormat = 1 myMail.Send Set myMail = Nothing Response.write "&ok=true" %> Por favor pessoal, aguardo uma sincera ajuda! Abração!
×
×
  • Criar Novo...