terça-feira, 14 de outubro de 2003

Valida E-mail via ASP

Essa funcao tem como base um email no formato minimo de x@x.x


 function ValidaEmail(text)
  dim x, strArr, strDot, valida
  x = trim(text)
  strArr = instr(x,"@")
  valida = true
  
  if strArr < 2 then
   valida = false
  else
   x = mid(x,strArr + 1,len(x))
   strDot = instr(x,".")


   if instr(x,"@") <> 0 then valida = false
   if strDot < 2 then valida = false
   x = mid(x,strDot + 1,len(x))
   if trim(x) = "" then valida = false
  end if
  
  ValidaEmail = valida
 end function


Para testar eh so usar:
if not ValidaEmail("x@x.x")then
  response.write("email invalido")
  response.end()
end if



Esta matéria foi postada originalmente no ASP4Developers por Danilo Freitas, que na época era "Programador em VB, VBScript e SQL Server.". Hoje, vai saber...

0 comentários: