Определите, является ли электронная почта правильной

<%

'Определите, является ли электронная почта правильной

Функция isvalidemail (электронная почта)

Dim имена, имя, я, c

Isvalidemail = true

names = split (электронная почта, "@")

Если ubound (имена) <> 1, тогда

Isvalidemail = false

Выходная функция

Конец, если

Для каждого имени в именах

Если Len (имя) <= 0, тогда

Isvalidemail = false

Выходная функция

Конец, если

Для i = 1 к Лену (имя)

C = lcase (середина (имя, i, 1))

Если instr ("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0, а не Isnumeric (c), тогда

Isvalidemail = false

Выходная функция

Конец, если

Следующий

Если осталось (имя, 1) = "." Или справа (имя, 1) = "."

Isvalidemail = false

Выходная функция

Конец, если

Следующий

Если instr (имена (1), ".") <= 0 тогда

Isvalidemail = false

Выходная функция

Конец, если

i = len (имена (1)) -instrrev (имена (1), ".")

Если я <> 2 и я <> 3 тогда

Isvalidemail = false

Выходная функция

Конец, если

Если instr (электронная почта, "..")> 0, тогда

Isvalidemail = false

Конец, если

Конечная функция

%>