Ir para conteúdo
Fórum Script Brasil
  • 0

formulario Flash +ASP SHOW

Aprendiz5

Perguntado por Aprendiz5,

 Share

Pergunta

Aprendiz5

Aprendiz5

Postado
Postado (editado)

acesse pra quem quizer ver e fazer os teste pode ver aqui www.wi-b.com/leo .. ele tem validação e aparece um resgate de tudo que você digitou..façam o teste

se possivel me ajudem como fazer pra pegar os valores do check não estou conseguindo !!!

AS 3

quem gostar deixa manda o cadasto que eu mando FLa e o ASP

abçrs.. estou tentando resolver o probleminha caso não consiga eu posto ake !posto ake !

Flash As3

stop()
// -- Classe
import fl.data.DataProvider;

// --- Variáveis
var formata:TextFormat = new TextFormat()
var variaveis:URLVariables = new URLVariables();
var objEnvia:URLRequest = new URLRequest();
var objRecebe:URLLoader = new URLLoader();


// --- Listeners

btnEnviar.addEventListener(MouseEvent.CLICK, clicou)
comentario_txt.addEventListener(Event.CHANGE, escreveu)

// --- Funções
function escreveu (e:Event) {
	var total:Number = comentario_txt.maxChars
	var atual:Number = comentario_txt.text.length
	//
	conta_txt.text = total - atual + "Caracteres Restantes"
}


function clicou (e:MouseEvent) {
	nome_txt.backgroundColor =
	email_txt.backgroundColor =
	senha_txt.backgroundColor =
	codigo_txt.backgroundColor =
	numero_txt.backgroundColor =
	cidade_txt.backgroundColor = 0x929292
	retorno_txt.text ="Dados OK"

	if (nome_txt.text.length < 4 )corrigir(nome_txt)
	if (email_txt.text.length < 4 ||
		email_txt.text.indexOf("@") == -1)corrigir(email_txt)
	if (senha_txt.text.length < 4 )corrigir(senha_txt)
	if (codigo_txt.text.length < 2 )corrigir(codigo_txt)
	if (numero_txt.text.length < 8 )corrigir(numero_txt)
	if (cidade_txt.text.length < 3 )corrigir(cidade_txt)
	if (cboEstados.selectedIndex == -1  )corrigir(cboEstados)
	//
	if(retorno_txt.text == "Dados OK"){
		var meuResgate:Resgate = new Resgate()
		//
		addChild(meuResgate)
		meuResgate.btnSend.label = "Enviar"
		meuResgate.btnOK.label = "Voltar"
		meuResgate.btnOK.addEventListener
					(MouseEvent.CLICK, voltar)
		meuResgate.btnSend.addEventListener
					(MouseEvent.CLICK, enviar)
		//
		with(meuResgate){
		nome_txt.text = this.nome_txt.text
		email_txt.text =  this.email_txt.text
		senha_txt.text =  this.senha_txt.text
		telefone_txt.text = this.codigo_txt.text +" - "+this.numero_txt.text
		cidade_txt.text = this.cidade_txt.text
		comentario_txt.text = this.comentario_txt.text
		//
		estado_txt.text = this.cboEstados.selectedItem.uf
		//
		noticia_txt.text = (rdoSim.selected)?  "Sim":"Não" 
		//
		for (var i:uint=0; i<4;i++) {
			var check:Object = this["chk"+i]
			//
			if (check.selected) {
				areaFinal_txt.appendText(check.label+", ")

				}
			}// for
			areaFinal_txt.text = 
			areaFinal_txt.text.substr(0,areaFinal_txt.text.length - 2)
		}
	}
}
function voltar (e:MouseEvent) {
	// Remove o resgate da DisplayList
	removeChild(e.target.parent)
}
function enviar (e:MouseEvent) {
	/* Envia para o ASP a variavel nome com os dados do campo nome */
      variaveis.nome = nome_txt.text
	  variaveis.email = email_txt.text
	  variaveis.senha = senha_txt.text
   	  variaveis.cidade = cidade_txt.text
	  variaveis.comentario = comentario_txt.text
	  variaveis.numero = numero_txt.text
	  variaveis.codigo = codigo_txt.text
	  variaveis.estado = cboEstados.selectedItem.uf
	  variaveis.simnao = (rdoSim.selected)?  "Sim":"Não"


	 trace(variaveis.areasInt)




            /* Dizemos que os dados a serem enviados está na variável variaveis */
      objEnvia.data = variaveis
      /* Usaremos o método POST */
      objEnvia.method = URLRequestMethod.POST
      /* Passamos o endereço a ser enviado */
      objEnvia.url = "contato.asp"
      /* Dizemos que os dados serão do tipo texto */
      objRecebe.dataFormat = URLLoaderDataFormat.TEXT
      /* Enviamos as variáveis ao PHP */
      objRecebe.load(objEnvia)
      /* Adicionamos um listener a variavel objRecebe */
      /* O listener será disparado quando terminar de carregar o arquivo PHP */
      objRecebe.addEventListener(Event.COMPLETE, onLoadRecebe)

	  gotoAndPlay (2)
removeChild(e.target.parent)
/* Quando o arquivo PHP for carregado */
function onLoadRecebe(event:Event):void {
   /* Recupera a mensagem que será enviada pelo PHP */
   var resultado:URLVariables = new URLVariables(event.currentTarget.data);
   /* Se deu tudo ok no PHP */



    }

}


function corrigir (quem:Object) {
	var nome:String = quem.name
	//
	if(nome.indexOf("_txt")!=-1){
		quem.backgroundColor = 0xFF0000
	}else{
		quem.open()
	}
	//
	retorno_txt.text ="Preencha os campos corretamente"
}


// --- Inicialização
// Ativa o uso de cor de fundo nos campos de texto

nome_txt.background =
email_txt.background =
senha_txt.background =
codigo_txt.background =
numero_txt.background =
cidade_txt.background =
comentario_txt.background = true

// define a cor do fundo

nome_txt.backgroundColor =
email_txt.backgroundColor =
senha_txt.backgroundColor =
codigo_txt.backgroundColor =
numero_txt.backgroundColor =
cidade_txt.backgroundColor =
comentario_txt.backgroundColor = 0x929292

// Popular o Combo
cboEstados.addItem({label:"São Paulo", uf:"SP"})
cboEstados.addItem({label:"Rio de Janeiro", uf:"RJ"})
cboEstados.addItem({label:"Minas Gerais", uf:"MG"})
cboEstados.addItem({label:"Espírito Santo", uf:"ES"})
cboEstados.prompt = "Escolha um Estado"
//Labels
chk0.label = "Web"
chk1.label = "Design"
chk2.label = "Redes"
chk3.label = "3D"
//
rdoSim.label = "Sim"
rdoNao.label = "Não"
;;
btnEnviar.label = "Validar"

with (formata) {
	font = "Verdana"
	size = 12
	color = 0xFFFFFF
}
// Aplica a formatação nos textos dos Componentes
chk0.setStyle("textFormat",formata)
chk1.setStyle("textFormat",formata)
chk2.setStyle("textFormat",formata)
chk3.setStyle("textFormat",formata)
rdoSim.setStyle("textFormat",formata)
rdoNao.setStyle("textFormat",formata)

// Consitência
// O uso do ^nega os caracteres definidos
nome_txt.restrict = "^!@#$%&*"
senha_txt.restrict = "0-9"
codigo_txt.restrict = "0-9"
numero_txt.restrict = "0-9"
//
nome_txt.maxChars = 50
email_txt.maxChars = 20
senha_txt.maxChars = 6
codigo_txt.maxChars = 2
numero_txt.maxChars = 8
comentario_txt.maxChars = 150
// Ordem da tabulação
nome_txt.tabIndex = 1
email_txt.tabIndex = 2
senha_txt.tabIndex = 3
codigo_txt.tabIndex = 4
numero_txt.tabIndex = 5
cidade_txt.tabIndex = 6
cboEstados.tabIndex = 7
chk0.tabIndex = 8
chk1.tabIndex = 9
chk2.tabIndex = 10
chk3.tabIndex = 11
rdoSim.tabIndex = 12
comentario_txt.tabIndex = 13
btnEnviar.tabIndex = 14

// Exibe os caracteres do campo senha como ******

senha_txt.displayAsPassword = true
//
rdoSim.selected = true
//Quando você manda um Enter
comentario_txt.multiline = true
// Quando o texto chega no final da linha
comentario_txt.wordWrap = true

[/codebox]

ASP

contato.asp Cdonts[/size

[codebox]
<%
Dim Cdonts
set Cdonts = Server.CreateObject("Cdonts.newMail")

'pegar variaveis
nome=request.Form("nome")
email=request.Form("email")
senha=request.Form("senha")
cidade=request.Form("cidade")
comentario=request.Form("comentario")
numero=request.Form("numero")
codigo=request.Form("codigo")
estado=request.Form("estado")
simnao=request.Form("simnao")

mensagem = Replace(mensagem,chr(13),"<br>") 'Trocando o caractere 13 (ENTER) por quebra de linha
mensagem = Replace(mensagem, vbCrLf, "<BR>") ' Inserindo a quebra de linha
mensagem = Replace(mensagem, " ", " ")

'digite suas informações aqui
seuemail="hahha@hihi.com"

Cdonts.From = email 'Email de quem envia a mensagem. Neste caso o email digitado no formulario'
Cdonts.To = seuemail 'Email que vai receber
Cdonts.Subject = "Contato" 'Assunto
Cdonts.Bodyformat = 0 'Conteúdo html
Cdonts.MailFormat = 0 'Conteúdo html
Cdonts.Body = "Olá, Leonardo você recebeu um Email de Testes.<br><br>Nome: "&nome&"<br>Email: "&email&"<br>Telefone: "&codigo&" - "&numero&"<br>Cidade: "&cidade&"<br>Estado: "&estado&"<br>Senha: "&senha&"<br>NewsLetter: "&simnao&"<br>Comentarios: "&comentario

on error resume next

Cdonts.Send 'envia a mensagem'

if err.number <> 0 then
response.Write("retorno=Erro ao enviar.")
else
response.Write("retorno=Enviado com sucesso.")
end if

Set Cdonts = Nothing 'finaliza o objeto'

%>

ASP

contato.asp CDO.messege


<%@LANGUAGE="VBSCRIPT"%>
<%

'pegar variaveis
nome=request.Form("nome")
email=request.Form("email")
senha=request.Form("senha")
cidade=request.Form("cidade")
comentario=request.Form("comentario")
numero=request.Form("numero")
codigo=request.Form("codigo")
estado=request.Form("estado")
simnao=request.Form("simnao")





            mensagem = Replace(mensagem,chr(13),"<br>") 
			mensagem = Replace(mensagem, vbCrLf, "<BR>") 
			mensagem = Replace(mensagem, " ", " ")	



  Function EnviaMail2(vbody, vToNome, vToEmail, vFromNome, vFromEmail, vAssunto)
    Dim objMessage
    Dim vResultado
    vResultado = 0
    Set objMessage = CreateObject("CDO.Message")
    'On Error Resume Next
    objMessage.Subject = vAssunto 
    objMessage.From = vFromNome & " <" & vFromEmail & ">"
    objMessage.To = vToNome & " <" & vToEmail & ">"
    objMessage.HTMLBody = vbody
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server-1.netguestdns.com.br"
    objMessage.Configuration.Fields.Update
    objMessage.Send
    if err.number <> 0 then
      vResultado = 0
    else
      vResultado = 1
    end if
    set objMessage = nothing
    EnviaMail2 = vResultado
  End Function



  strBody =  "Olá, Leonardo você recebeu um Email de Testes.<br><br>Nome: "&nome&"<br>Email: "&email&"<br>Senha: "&senha&"<br>Cidade: "&cidade&"<br>Comentarios: "&comentario
  'Nome Destinatário
  strToNome = "Voce"
  'Email Destinatário
  strToEmail = "hahha@hihi.com"

  'Nome do Rementente
  strFromNome = nome
  'Email do Rementente (conta cadastrada no smpt do cliente)
  strFromEmail = email

  'Assunto da mensagem
  strAssunto = "teste Formulario"


  If EnviaMail2(strBody, strToNome, strToEmail, strFromNome, strFromEmail, strAssunto) = 1 then
    strResultSend = "Sua mensagem foi enviada com sucesso!"
  Else
    strResultSend = "Sua mensagem não foi enviada. Verifique os parâmetros"
  End if

  response.Write strResultSend
  response.End

%>
[/codebox]

Editado por Aprendiz5
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...