Exemplo de função para validar um e-mail em ASP

A função a seguir é usada para validar se um endereço de e-mail está correto no ASP.

função revMail (Mail)
'verificar endereço válido
'retorna 1 para endereços inválidos
'retorna 0 para endereços válidos
dim atCnt
revMail = 0

'chk length
se len (Mail) <5 então
' [email protected] deve ser o endereço mais curto possível
revMail = 1

'verificar o formato
'verifique se tem um @
elseif instr (Mail, "@") = 0 então
revMail = 1

'verifique se ele tem um.
elseif instr (Mail, ".") = 0 então
revMail = 1

'verifique se não há mais de três caracteres após o.
elseif len (Mail) - instrrev (Mail, ".")> 4 então
revMail = 1

'que não tem _ após @
'elseif instr (Mail, "_") <> 0 e _
'instrrev (Mail, "_")> instrrev (Mail, "@") então
'revMail = 1

senão
'que tem apenas um @
atCnt = 0
para i = 1 para len (Mail)
se mid (Mail, i, 1) = "@" então
atCnt = atCnt + 1
fim se
Next

se atCnt> 1 então
revMail = 1
fim se

'verificar personagem por personagem
para i = 1 para len (Mail)
se não for numérico (mid (Mail, i, 1)) e _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") e _

mid (Mail, i, 1) <> "_" e _
mid (Mail, i, 1) <> "." e _
mid (Mail, i, 1) <> "@" e _
mid (Mail, i, 1) <> "-" então
revMail = 1
fim se
Next
fim se
função final
%>