Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Libos

Capturando o valor de um campo

Por , em ASP Clássico

Recommended Posts

Libos    0

Libos
Postado

Olá pessoal!!!.

 

A minha dificuldade é a seguinte:

 

Tenho um form que envia o valor de uma campo para uma página ASP que tem a função de verificar se este valor é um valor válido para o numero de CPF, caso este valor seja válido ele redireciona para a pessoa completar o seu cadastro.

Ai que está a questão? Neste redirecionamento este numero de CPF validado tem que ser capturado e enviado junto.

Será que deu pra entender?

 

Ai vai os códigos

 

Formulário.asp

<html><head><title>Valida CPF</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF"><form name="valida_dados" action="validar.asp">  <p><font face="Arial, Helvetica, sans-serif">Validar: </font></p>  <p><font face="Arial, Helvetica, sans-serif">     <input name="chkCPF" type="hidden" id="chkCPF" value="on">    Numero do seu CPF:</font>     <input type="text" name="CampoNumero" size="18" maxlength="18">    <font face="Arial, Helvetica, sans-serif"> </font><font face="Arial, Helvetica, sans-serif">     </font></p>  <p>     <input type="submit" value="Verificar">    <input type="reset" value="Limpa">  </p></form><p> </p><p></p></body></html>

verifica.asp

 

<%if Request("chkCPF") = "on" thenCalculaCPF()elseCalculaCNPJ()end if'|///////////////////////////////////////////////////////////|'| |'| Funcao para calcular CPF |'| |'|///////////////////////////////////////////////////////////|function CalculaCPF()Dim RecebeCPF, Numero(11), soma, resultado1, resultado2RecebeCPF = Request("CampoNumero")'Retirar todos os caracteres que nao sejam 0-9s="" for x=1 to len(RecebeCPF)ch=mid(RecebeCPF,x,1)if asc(ch)>=48 and asc(ch)<=57 thens=s & chend ifnextRecebeCPF = sif len(RecebeCPF) <> 11 thenresponse.write("<h1>É obrigatório o CPF com 11 dígitos</h1>")elseif RecebeCPF = "00000000000" thenresponse.write("<h1>CPF Inválido</h1>")elseNumero(1) = Cint(Mid(RecebeCPF,1,1))Numero(2) = Cint(Mid(RecebeCPF,2,1))Numero(3) = Cint(Mid(RecebeCPF,3,1))Numero(4) = Cint(Mid(RecebeCPF,4,1))Numero(5) = Cint(Mid(RecebeCPF,5,1))Numero(6) = CInt(Mid(RecebeCPF,6,1))Numero(7) = Cint(Mid(RecebeCPF,7,1))Numero(8) = Cint(Mid(RecebeCPF,8,1))Numero(9) = Cint(Mid(RecebeCPF,9,1))Numero(10) = Cint(Mid(RecebeCPF,10,1))Numero(11) = Cint(Mid(RecebeCPF,11,1))soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9)soma = soma -(11 * (int(soma / 11)))if soma = 0 or soma = 1 thenresultado1 = 0elseresultado1 = 11 - somaend ifif resultado1 = Numero(10) thensoma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2soma = soma -(11 * (int(soma / 11)))if soma = 0 or soma = 1 thenresultado2 = 0elseresultado2 = 11 - somaend ifif resultado2 = Numero(11) thenresponse.redirect("continuacadastro.asp") elseresponse.write("<h1>CPF Inválido</h1>")end ifelse response.write("<h1>CPF Inválido</h1>")end ifend ifend function%>

Valeu gente boa.

estou aguardando o retorno de algum expert

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Guarda este valor em uma session:Tipowif resultado2 = Numero(11) thensession("cpf") = variável_com valor do cpfresponse.redirect("continuacadastro.asp") elseresponse.write("<h1>CPF Inválido</h1>")Session.abandon()end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Libos    0

Libos
Postado

Guarda este valor em uma session:Tipowif resultado2 = Numero(11) thensession("cpf") = variável_com valor do cpfresponse.redirect("continuacadastro.asp") elseresponse.write("<h1>CPF Inválido</h1>")Session.abandon()end if

No exemplo acima ficaria assimsession("cpf") = "RecebeCPF"Depois para eu chamar o valor seria assim? <%= Session("CPF") %>¿?Não tá dando

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Não, na session você coloca a variável que está carregando o cpf já validado

 

 

session("cpf") = variavel OBS: sem as aspas senão a session vai ficar com valor de texto

 

 

Depois se você quizer mostrar este valow você faz aquele jeito mesmo

 

 

<%=session("cpf")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Libos    0

Libos
Postado

Valeu grande JucaMaster

 

Aproveito para concordar com você.

 

E disse Jesus :

 

"Eu sou o caminho a verdade e a vida. Ninguém vem ao Pai senão por mim[...]"

 

Deixe ele mudar a sua vida para que tenha vida e vida com abundância!!!

 

dá uma visitada ai em

 

http://www.ejesus.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Falow maninho!!! Qualquer duvida posta aí que a comunidade responde.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito