Многие электронные письма с подтверждением проверяются на клиенте js, но их легко взломать, если мы используем asp для проверки на сервере, проблем возникнуть не должно. Скопируйте код кода следующим образом:
'************************************************
'Имя функции: IsValidEmail
'Функция: проверка действительности адреса электронной почты
'Параметр: электронная почта ---- Адрес электронной почты, который необходимо проверить.
'Возвращаемое значение: True ----Адрес электронной почты является законным
' Ложь ---- Адрес электронной почты недействителен.
'************************************************
Открытая функция IsValidEmail(электронная почта)
Тусклые имена, имя, я, ц
Исвалидэмаил = Истина
имена = Split(Электронная почта, @)
Если UBound(names) <> 1, то IsValidEmail = False: выход из функции
Для каждого имени В именах
Если Len(имя) <= 0, то IsValidEmail = False: Выход из функции
Ибо Я = 1 К Лен(имя)
c = LCase(Mid(имя, I, 1))
Если InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 и не IsNumeric(c), то IsValidEmail = False: Выход из функции
Следующий
Если Left(name, 1) = . Или Right(name, 1) = . Тогда IsValidEmail = False: Выход из функции.
Следующий
Если InStr(names(1), .) <= 0 Тогда IsValidEmail = False: Выход из функции
I = Len(names(1)) - InStrRev(names(1), .)
Если I <> 2 и I <> 3, то IsValidEmail = False: Выход из функции
Если InStr(Email, ..) > 0, то IsValidEmail = False
Конечная функция