Es gibt einige gute Formularvalidierungsfunktionen, die Sie hier finden können: ************************************ *****
'Überprüfen Sie, ob es nur Englisch und Zahlen enthält
'***********************************
Funktion IsvalidValue(ArrayN, Str)
IsvalidValue = False
GName dimmen
Für jeden GName in ArrayN
Wenn Str = GName, dann
IsvalidValue = True
Ausgang für
Ende wenn
Nächste
Funktion beenden
'***********************************
'Überprüfen Sie, ob eine gültige Nummer vorhanden ist
'***********************************
Funktion IsInteger(Para)
IsInteger = False
Wenn nicht (IsNull(Para) Or Trim(Para) = Or Not IsNumeric(Para)) Dann
IsInteger = True
Ende wenn
Funktion beenden
'***********************************
'Erkennung des Benutzernamens
'***********************************
Funktion IsValidUserName(byVal UserName)
Dim i,c
DimVUserName
IsValidUserName = True
Für i = 1 To Len(Benutzername)
c = LCase(Mid(Benutzername, i, 1))
Wenn InStr($!<>?#^%@~`&*();:+=' , c) > 0 Dann
IsValidUserName = False
Exit-Funktion
Ende wenn
Nächste
Für jeden VUserName in Register_UserName
Wenn Benutzername = VBenutzername, dann
IsValidUserName = False
Ausgang für
Ende wenn
Nächste
Funktion beenden
'***********************************
'Überprüfen Sie, ob eine gültige E-Mail-Adresse vorhanden ist
'***********************************
Funktion IsValidEmail(Email)
Dunkle Namen, Name, i, c
IsValidEmail = True
Namen = Split(email, @)
Wenn UBound(names) <> 1 Dann
IsValidEmail = False
Exit-Funktion
Ende wenn
Für jeden Namen IN Namen
Wenn Len(Name) <= 0, dann
IsValidEmail = False
Exit-Funktion
Ende wenn
Für i = 1 Zu Len(Name)
c = LCase(Mid(Name, i, 1))
Wenn InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 und nicht IsNumeric(c), dann
IsValidEmail = False
Exit-Funktion
Ende wenn
Nächste
Wenn Left(Name, 1) = . Oder Right(Name, 1) =
IsValidEmail = False
Exit-Funktion
Ende wenn
Nächste
Wenn InStr(names(1), .) <= 0 Dann
IsValidEmail = False
Exit-Funktion
Ende wenn
i = Len(names(1)) - InStrRev(names(1), .)
Wenn i <> 2 und i <> 3, dann
IsValidEmail = False
Exit-Funktion
Ende wenn
Wenn InStr(email, ..) > 0 Dann
IsValidEmail = False
Ende wenn
Funktion beenden