| El siguiente es el fragmento de código: <% 'Determinar si el correo electrónico es correcto Función isValidEmail (correo electrónico) Nombres tenues, nombre, I, C ISValidEmail = True nombres = Split (correo electrónico, "@") Si Ubound (nombres) <> 1 entonces IsValidemail = falso Función de salida Final si Para cada nombre en los nombres Si len (nombre) <= 0 entonces IsValidemail = falso Función de salida Final si Para i = 1 a Len (nombre) C = lcase (Mid (nombre, i, 1)) If instrer ("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0 y no isnumeric (c) entonces entonces IsValidemail = falso Función de salida Final si Próximo Si le queda (nombre, 1) = "." IsValidemail = falso Función de salida Final si Próximo If instrer (nombres (1), ".") <= 0 entonces IsValidemail = falso Función de salida Final si i = len (nombres (1)) -Instrv (nombres (1), ".") Si yo <> 2 y i <> 3 entonces IsValidemail = falso Función de salida Final si If instrer (correo electrónico, "..")> 0 entonces IsValidemail = falso Final si Función final %> |