Ir para conteúdo

POWERED BY:

Arquivado

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

dfsilva

Checar se os campos estao preenchidos

Por , em ASP Clássico

Recommended Posts

dfsilva    0

dfsilva
Postado

Boa noite pessoal,Estou precisando de duas funcoes e gostaria q vcs me ajudassem pois sou novato nesta area, preciso de uma que cheque se todos os campos do formulario foram preenchidos e que ela tambem faca a validacao do email.Obrigado a todos.Abracosatt.Diego

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cidre    0

Cidre
Postado

você pode recuperar campo por campo e verificar se está vazio, e a validação do e-mail pode usar essa função:

 

Function ValidEmailAddress(checkEmail)	Dim email	email = Trim(checkEmail) 	at = InStr(2, email, "@") 	ValidEmailAddress = False 	If at = 0 Then Exit Function 	lft = Left(email, at - 1) 	If Left(lft, 1) <> """" Or Right(lft, 1) <> """" Then 		For i = 1 To Len(lft) 			a = UCase(Mid(lft, i, 1)) 			If (Asc(a) < Asc("A") Or Asc(a) > Asc("Z")) And a <> "_" And a <> "-" And a <> "&" And a <> "." And (Asc(a) < Asc("0") Or Asc(a) > Asc("9")) Then Exit Function 		Next 	End If 	rght = Mid(email, at + 1) 	For i = 1 To Len(rght) 		a = UCase(Mid(rght, i, 1)) 		If (Asc(a) < Asc("A") Or Asc(a) > Asc("Z")) And a <> "." And a <> "-" And (Asc(a) < Asc("0") Or Asc(a) > Asc("9")) Then Exit Function 	Next 	If InStr(1, email, "..") Or InStr(1, email, "__") Or InStr(1, email, "--") Then Exit Function 	If Mid(email, at + 1, 1) = "." Then Exit Function 	domain = Split(Mid(email, at + 1), ".") 	If Ubound(domain) < 1 Then Exit Function 	If Len(domain(UBound(domain))) < 2 Or Len(domain(UBound(domain))) > 3 Then Exit Function 	If Len(domain(UBound(domain) - 1)) < 2 And UBound(domain) - 1 > 0 Then Exit Function 	ValidEmailAddress = True End Function

Compartilhar este post

Link para o post
Compartilhar em outros sites

Akwen    1

Akwen
Postado

Segue abaixo código do script. Ele verifica se o campo tá vazio, apresenta a mensagem q você quiser, verifica tb se o e-mail é valido. Onde tem por exemplo, d.telefone, d.email.... são os campos. Vamos supor q seu campo e-mail se chame EmailFulano. Dai onde tem d.email ficaria d.EmailFulano . No inicio, tb tem assim d = document.form1; onde tem esse form1, altere para o nome do seu form.

 

Coloque o código abaixo antes da tag <html> . E mais isso aqui dentro da tag form: onSubmit="return validaForm()" .

 

<script>// JavaScript Document function validaForm(){		   d = document.form1;		   //validar nome		   if (d.nome.value == ""){					 alert("O campo Nome deve ser preenchido!");					 d.nome.focus();					 return false;		   }					//validar telefone		 if (d.telefone.value == ""){				   alert ("O campo Telefone deve ser preenchido!");				   d.telefone.focus();				   return false;		 }		 //validar email		 if (d.email.value == ""){				   alert("O campo E-mail deve ser preenchido!");				   d.email.focus();				   return false;		 }		 //validar email(verificao de endereco eletrônico)		 parte1 = d.email.value.indexOf("@");		 parte2 = d.email.value.indexOf(".");		 parte3 = d.email.value.length;		 if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9)) {				   alert ("O campo E-mail deve conter um endereco eletronico!");				   d.email.focus();				   return false;		 }				  //validar mensagem		 if (d.mensagem.value == ""){				   alert ("O campo Mensagem deve ser preenchido!");				   d.mensagem.focus();				   return false;		 }		 return true; }</script>

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