Ir para conteúdo
Fórum Script Brasil

calraiden

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    12

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que calraiden postou

  1. calraiden

    Indique Um Amigo

    pergunta respondeu ao ars de calraiden em ASP

    tEM ESSE código que utilizo em meu site... você pode testar no seu.. é meio frquinho mais funcionar. São três códigos, Depois você alterar de acordo com seu site. 1)formulario em html <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Indique O Site</title> </head> <body bgproperties="fixed" bgcolor="#336699"> <center><table border="1"> <tr> <td width="400" align="center"> <p align="center"><b><font face="verdana,arial,heveltica" size="1" color="#CCFFCC">Indique Esse Site Para Um Amigo (a).</font></b></td> </tr> <tr><td> <hr size="1" color="#FFFF00"> <div align="center"> <center> <table border="0" width="346"> <tr> <td width="338" valign="top" height="1"> <form action="indique.asp" method="post"> <div align="center"> <center> <table border="0" width="83%" cellspacing="0" cellpadding="0"> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana" color="#FFFFFF">Destinatário:</font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="nome" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana" color="#FFFFFF">E-mail Destinatário :</font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana" color="#FFFFFF">Remetente :</font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana" color="#FFFFFF">E-Mail Remetente :</font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="seuemail" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana" color="#FFFFFF">Mensagem:</font></td> </tr> <tr> <td width="4%"></td> <td width="96%"> <p align="left"><font size="2" face="Verdana"><textarea rows="6" name="mensagem" cols="36" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea></font></td> </tr><tr><td></td><td> <p align="center"><input type="submit" value="Enviar"></p> </td> </tr> </table> </center> </div> </form> </center> </td> </tr> </table></center> </div> <hr color="#FFFFFF" size="1"> <div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" width="400" bordercolor="#000080" bgcolor="#F0F0F0"> <tr> <td width="400" align="center"> <p align="center"><FONT face=verdana,arial,heveltica color=#000080 size=1><b><a href="http://www.calraiden.ppg.br" style="color: #000080" target="_blank">Cal Raiden©</a> - Todos os direitos reservados</b></FONT></td> </tr> </table> </center> </div> </table> </body> </html> 2) indique.asp <% 'Declarando variveis Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sSeuemail, sAssunto 'Pegando os dados digitados nos campos e colocando em variaveis sNameFrom = Request.Form("seuemail") sEmailFrom = Request.Form("seuemail") sEmailTo = Request.Form("nome") sNameTo = Request.Form("email") sText = Request.Form("mensagem") sSeuemail = Request.Form("seuemail") sAssunto = Request.Form("assunto") 'Cria o objeto set mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom 'Host para envio de emails Mailer.RemoteHost = "INSERIR AQUI NOME DO SERVIDOR DO SITE" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sEmailTo & " Você Recebeu Uma Mensagem De Cal Raiden© " 'Monta a texto para o envio strMsgHeader = " O Seu Amigo(a), " & " (" & sAssunto & ") " & " (" & sSeuemail & ") " & " ,Recomendou o Site CalRaiden© http://www.calraiden.ppg.br " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter ' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then Response.Redirect "conf.asp" else ' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if %> 3) obrigado em asp <html><head> <title>Cal Raiden©</title> <!-- body {scrollbar-face-color: #009999; scrollbar-shadow-color: #FFFFFF; scrollbar-highlight-color: #009999; scrollbar-3dlight-color: #FFFFFF; scrollbar-darkshadow-color: #009999; scrollbar-track-color: #0099CC; scrollbar-arrow-color: #FFFFFF;} } // --> </style> </head> <body topmargin="0" leftmargin="0" bgcolor="#0099CC"> <img src="mcont.gif" border="0" alt="Contato"> <a href="../index.htm"> <img src="phom.gif" border="0" alt="Home"></a> <a href="../pia.html"> <img src="ppia.gif" border="0" alt="Piadas" ></a> <a href="../mus.html"> <img src="psl.gif" border="0" alt="Slides"></a> <a href="../livro.html"> <img src="pliv.gif" border="0" alt="Bate-Papo"></a> <a href="../hq.html"> <img src="phq.gif" border="0" alt="Flash"></a> <a href="../foto.html"> <img src="pfot.gif" border="0" alt="Fotos"></a> <a href="../mens.html"> <img src="pmens.gif" border="0" alt="Mensagem"></a> <FONT face=verdana,arial,heveltica color=#0099CC size=1>.................</FONT> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#3,0,0,0" width="91" height="41"> <param name="SRC" value="flashc.swf"><param name=bgcolor value="#0099CC"> <embed src="flashc.swf" pluginspage="http://www.macromedia.com/shockwave/download/" type="application/x-shockwave-flash" bgcolor="#0099CC#"width="80" height="50" > </embed> </object> <HR color="#FFFFFF" SIZE=1> <table border="1" cellpadding="0" cellspacing="0" width="760" bordercolor="#006699" bgcolor="#FFFFFF"> <font face="Times New Roman" size="2"> <td width="758" bgcolor="#FFFFFF"> <p align="center"><FONT face=verdana,arial,heveltica color=#006699 size=1><b>Contato</b></FONT></td> </table> <div align="center"> <center> <table border="0" width="439"> <tr> </center> <p align="center"><font color="#FFFFFF" size="4"><b><i>Muito Obrigado !!</i></b></font><p align="center"><font size="4" color="#FFFFFF"><b><i> Sua Mensagem foi enviada com sucesso.</i></b></font> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#3,0,0,0"> <param name="SRC" value="flashc.swf"><param name=bgcolor value="#0099CC"> <embed src="flashc.swf" pluginspage="http://www.macromedia.com/shockwave/download/" type="application/x-shockwave-flash" bgcolor="#0099CC#"> </embed> </object> </tr> </table> </div> <hr color="#FFFFFF" size="1"> <table border="1" cellpadding="0" cellspacing="0" width="740" bordercolor="#000080" bgcolor="#F0F0F0"> <tr> <td width="738"> <p align="center"><FONT face=verdana,arial,heveltica color=#000080 size=1><b>Cal Raiden©</a> - Todos os direitos reservados</b></FONT></td> </tr> </table> </body>
  2. calraiden
    o tutorial só ta explicando como utilizar o formulario em flash em vários códigos e suas variações, colocar o código ai para dados uma olhada.
  3. calraiden
    Bom , vou tentar explicar de acordo como você ta utilizando o código. Mais ou menos isso. Width = altura (nesse caso da janela) Height - Largua (nesse caso da jenela) top = Localização no canto superior do browser (em qual canto superior vai surgi sua janela) left = Localização no lado esquerdo do browser Void = Esqueci para que serve isso. Código. on (release) { getURL("javascript:window.open('enviar.asp','pop','width=300,height=400,top=0, left=0, scrollbars=yes');void(0);"); } Traduzinho? ao passar o mouse sobre o botão, irá abrir um código asp em uma jenala pop no tamanho de 300x400 quer permite barra de rolagem no canto superior da tela no lado esquerdo. Bah, acho que é isso.. se estou errado, podem me xingar ai viu.
  4. calraiden
    bom, você poderia da uma olhadinha nesses site.. tem alguns script de contadores, não sei se vai te ajuda. www.scriptbrasil.com.br www.ruajava.kit.net www.codigolivre.com.br www.aspbrasil.com.br você ta trabalhando em páginas simples só em html ou algo mais avançado? Existir vários sites, só dei alguns exemplo onde sei que tem uns modelos de contadores, só da uma procuradinha caso esses não encontre o que procura.
  5. calraiden
    Verificou se o endereço estar escritor corretamente? Manda para gente da uma olhadinha o código que você ta inserindo, ficar mais fácil de ver o que ta fazendo.
  6. calraiden
    Existir códigos em javascrpit que dificulta a cópia, mas é impossível não roubarem. Se quiser, é só procura esses códigos que dificulta um pouco a prática, mas só para quem não tem muito conhecimento também.
  7. calraiden

    Pop Up

    pergunta respondeu ao Vanessa de calraiden em ASP

    Teria como da um link da página on line para podermos da uma olhadinha de como ta funcionando??
  8. calraiden
    Valeu pelas dicas. =]
  9. calraiden
    oieeeeeeee, rapidinho.. percebi que nos códigos você não ta fechando a tag </head> só passei pra dizer isso mesmo hehehehe
  10. calraiden
    Se seu servidor estiver hospedado em um servidor tipo do terra, existir uma maneira bem simples, mas não muita segura.
  11. calraiden

    Link

    pergunta respondeu ao Senshi de calraiden em Flash & ActionScript

    Bem, tentando de ajudar.. porque você ao publicar o arquivo swf, não gera um em html tb.. Assim ao invés de linka o swf.. poderá linka o html. não entendo muito em flash, mas conseguir te ajudar?? Abraços calraiden
  12. calraiden
    é um código simples que funcionar on line sem ajuda do adminstrador, porém os acentos não funcionar.. quando alguém inserir alguma palavra com acento ao invés de ir o a letra acentuada, aparecer o simbolo "?" de interrogação.. modelo do código abaixo. <% 'Declarando variveis Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sSeuemail, sAssunto 'Pegando os dados digitados nos campos e colocando em variaveis sNameFrom = "cal_raiden@terra.com.br" sEmailFrom = "cal_raiden@terra.com.br" sEmailTo = Request.Form("nome") sNameTo = Request.Form("email") sText = Request.Form("mensagem") sSeuemail = Request.Form("seuemail") sAssunto = Request.Form("assunto") 'Cria o objeto set mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom 'Host para envio de emails Mailer.RemoteHost = "mail.terraempresas.com.br" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sEmailTo & " Você Recebeu Uma Mensagem De Cal Raiden© " 'Monta a texto para o envio strMsgHeader = " O Seu Amigo(a), " & " (" & sAssunto & ") " & " (" & sSeuemail & ") " & " ,Entrou No Site CalRaiden e Te Enviou Essa mensagem: [URL=http://www.calraiden.ppg.br/c/div/m17.htm]http://www.calraiden.ppg.br/c/div/m17.htm[/URL] " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter ' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then Response.Redirect "obrigado.asp" else ' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if %>
×
×
  • Criar Novo...