Ir para conteúdo

POWERED BY:

Arquivado

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

desisto

validar email

Recommended Posts

opa

fiz esse sisteminha de validacao de email pq eu peguei alguns pra teste e nao funcionaram corretamente

obvio que eu nao sou expert, entao pode nao estar 100%, se tiver algum bug ou melhoria podem postar

 

a ideia é a seguinte

- so passa com 1 @

- so passa com 1 ou 2 pontos apos @ (.com.br, .net, .com...)

- so passa se nao contiver nenhum caracter proibido

 

espero que seja util e que esteja ok :)

aqui nos testes ficou correto, fiz todas possibilidades, so nao conferi ainda os carateres pra "proibição"

 

function checa_email(variavel)
'igual a 0 = ok
'igual a 1 = erro
passe = 1
arroba = Split(variavel, "@")

if ubound(arroba) = 1 then
	ponto = Split(arroba(1), ".")

	if ubound(ponto) = 1 or ubound(ponto) = 2 then
	passe = 0
		naopode = ",,>;:/?~^]}´`[{!#$%¨&*()=+"
		For X = 1 to Len(variavel)
			caracteres = mid(variavel,X,1)
			trata = inStr(naopode,caracteres)
			if trata > 0 then
				passe = 1
			end if
		next
	end if

else
	passe = 1
end if

checa_email = passe
End function

response.Write checa_email("desisto@desisti.com")
'retorna 0

response.Write checa_email("desisto@desisti.com.br.opa")
'retorna 1

response.Write checa_email("des+isto@desisti.com.br")
'retorna 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tô mexendo com asp a pouco tempo, mas gosto de validações simples, essa aqui com expressão regular quebra um galhão.

 

Retorna true ou false e valida no formato a@b.cc

 

Public function emailValido(email)
		Set objRegExp = New RegExp
		objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z]{2,4}$"
		objRegExp.IgnoreCase = True
		emailValido = objRegExp.Test(email)
	End function

Tem o problema dos pontos, mas dependo da situação é boa =)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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