| Das Folgende ist das Codefragment: <% 'Bestimmen Sie, ob die E -Mail korrekt ist Funktion Isvalidemail (E -Mail) Schwache Namen, Name, i, c Isvalidemail = true names = split (E -Mail, "@") Wenn Ubound (Namen) <> 1 dann dann Isvalidemail = false Ausgangsfunktion Ende wenn Für jeden Namen in Namen Wenn Len (Name) <= 0 dann Isvalidemail = false Ausgangsfunktion Ende wenn Für i = 1 bis len (Name) C = Lase (Mitte (Name, i, 1)) Wenn instr ("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0 und nicht isnumerisch (c) dann Isvalidemail = false Ausgangsfunktion Ende wenn Nächste Wenn Sie links (Name, 1) = "oder rechts (Name) =" Isvalidemail = false Ausgangsfunktion Ende wenn Nächste Wenn Instrumente (Namen (1), ".") <= 0 dann Isvalidemail = false Ausgangsfunktion Ende wenn i = len (Namen (1)) -instrenische (Namen (1), ".") Wenn ich <> 2 und ich <> 3 dann dann Isvalidemail = false Ausgangsfunktion Ende wenn Wenn Instrument (E -Mail, "..")> 0 dann Isvalidemail = false Ende wenn Endfunktion %> |