| Ce qui suit est le fragment de code: <% 'Déterminez si le courrier électronique est correct Fonction isvalidemail (e-mail) Noms sombres, nom, i, c Isvalidemail = true noms = fendre (e-mail, "@") Si ubound (noms) <> 1 alors Isvalidemail = false Fonction de sortie Terminer si Pour chaque nom en noms Si Len (nom) <= 0 alors Isvalidemail = false Fonction de sortie Terminer si Pour i = 1 à Len (nom) C = lCase (mid (nom, i, 1)) Si instr ("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0 et non isnimérique (c) alors Isvalidemail = false Fonction de sortie Terminer si Suivant Si gauche (nom, 1) = "." Isvalidemail = false Fonction de sortie Terminer si Suivant Si instr (noms (1), ".") <= 0 alors Isvalidemail = false Fonction de sortie Terminer si i = len (noms (1)) -intrrev (noms (1), ".") Si je <> 2 et je <> 3 alors Isvalidemail = false Fonction de sortie Terminer si Si instr (e-mail, "..")> 0 alors Isvalidemail = false Terminer si Fonction finale %> |