Есть несколько хороших функций проверки формы, вы можете обратиться к '*************************************** *****
'Проверьте, содержит ли он только английский язык и цифры
'************************************
Функция IsvalidValue(ArrayN, Str)
Исвалидвалуе = ложь
Тусклое имя GName
Для каждого GName в ArrayN
Если Str = GName Тогда
Исвалидвалуе = Истина
Выход для
Конец, если
Следующий
Конечная функция
'************************************
'Проверяем, действительный ли номер
'************************************
Функция IsInteger(Пара)
ИсЦелое = Ложь
Если нет (IsNull(Para) или Trim(Para) = или не IsNumeric(Para)) Тогда
ИсЦелое = Истина
Конец, если
Конечная функция
'************************************
'Обнаружение имени пользователя
'************************************
Функция IsValidUserName (byVal UserName)
Дим я, с
Имя пользователя ДимВ
IsValidUserName = Истина
Для i = 1 To Len(Имя пользователя)
c = LCase(Mid(UserName, i, 1))
Если InStr($!<>?#^%@~`&*();:+=' , c) > 0 Тогда
Исвалидусернаме = ложь
Выход из функции
Конец, если
Следующий
Для каждого имени VUserName в Register_UserName
Если Имя пользователя = Имя пользователя V Тогда
Исвалидусернаме = ложь
Выход для
Конец, если
Следующий
Конечная функция
'************************************
'Проверьте, есть ли действующий адрес электронной почты
'************************************
Функция IsValidEmail(Электронная почта)
Тусклые имена, Имя, я, с
Исвалидэмаил = Истина
Имена = Split(адрес электронной почты, @)
Если UBound(имена) <> 1 Тогда
Исвалидэмаил = ложь
Выход из функции
Конец, если
Для каждого имени в именах
Если Len(Имя) <= 0 Тогда
Исвалидэмаил = ложь
Выход из функции
Конец, если
Для i = 1 к Лен(Имя)
c = LCase(Mid(Name, i, 1))
Если InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 и не IsNumeric(c) Тогда
Исвалидэмаил = ложь
Выход из функции
Конец, если
Следующий
Если Влево(Имя, 1) = ИЛИ Вправо(Имя, 1) = Тогда.
Исвалидэмаил = ложь
Выход из функции
Конец, если
Следующий
Если InStr(names(1), .) <= 0 Тогда
Исвалидэмаил = ложь
Выход из функции
Конец, если
i = Len(имена(1)) - InStrRev(имена(1), .)
Если я <> 2 и я <> 3, то
Исвалидэмаил = ложь
Выход из функции
Конец, если
Если InStr(электронная почта, ..) > 0 Тогда
Исвалидэмаил = ложь
Конец, если
Конечная функция