| A seguir, o fragmento de código: <% 'Determine se o email está correto Função isvalidemail (email) Nomes escuros, nome, i, c IsValidemail = true nomes = dividir (email, "@") Se ubound (nomes) <> 1 então IsValidemail = false Função de saída Final se Para cada nome em nomes Se Len (nome) <= 0 então IsValidemail = false Função de saída Final se Para i = 1 a len (nome) C = lcase (MID (nome, i, 1)) Se Instr ("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0 e não é numérico (c) então IsValidemail = false Função de saída Final se Próximo Se esquerda (nome, 1) = "." IsValidemail = false Função de saída Final se Próximo Se Instr (nomes (1), ".") <= 0 então IsValidemail = false Função de saída Final se i = len (nomes (1)) -Instrrev (nomes (1), ".") Se eu <> 2 e eu <> 3 então IsValidemail = false Função de saída Final se Se Instr (email, "..")> 0 Então IsValidemail = false Final se Função final %> |