Hay algunas buenas funciones de validación de formularios, puede consultar '************************************* *****
'Comprueba si solo contiene inglés y números.
'************************************
Función IsvalidValue(ArrayN, Str)
ValorValidoIsvalido = Falso
Nombre G oscuro
Para cada GName en ArrayN
Si Str = GName Entonces
ValorValidoIsvalido = Verdadero
Salir por
Terminar si
Próximo
Función final
'************************************
'Comprueba si hay un número válido
'************************************
Función EsInteger(Para)
EsEntero = Falso
Si no (IsNull(Para) o Trim(Para) = o no IsNumeric(Para)) entonces
EsEntero = Verdadero
Terminar si
Función final
'************************************
'Detección de nombre de usuario
'************************************
Función IsValidUserName(byVal UserName)
tenue i,c
Nombre de usuario DimV
IsValidUserName = Verdadero
Para i = 1 a Len (nombre de usuario)
c = LCase(Mid(Nombre de usuario, i, 1))
Si InStr($!<>?#^%@~`&*();:+=' , c) > 0 Entonces
IsValidUserName = Falso
Función de salida
Terminar si
Próximo
Para cada VUserName en Register_UserName
Si Nombre de usuario = VUserName Entonces
IsValidUserName = Falso
Salir por
Terminar si
Próximo
Función final
'************************************
'Compruebe si hay una dirección de correo electrónico válida
'************************************
Función IsValidEmail(Correo electrónico)
Nombres oscuros, Nombre, i, c
IsValidEmail = Verdadero
Nombres = Dividir(correo electrónico, @)
Si UBound(nombres) <> 1 Entonces
IsValidEmail = Falso
Función de salida
Terminar si
Para cada nombre EN nombres
Si Len(Nombre) <= 0 Entonces
IsValidEmail = Falso
Función de salida
Terminar si
Para i = 1 a Len(Nombre)
c = LCase(Medio(Nombre, i, 1))
Si InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 y no IsNumeric(c) entonces
IsValidEmail = Falso
Función de salida
Terminar si
Próximo
Si Izquierda(Nombre, 1) = . O Derecha(Nombre, 1) = .
IsValidEmail = Falso
Función de salida
Terminar si
Próximo
Si InStr(nombres(1), .) <= 0 Entonces
IsValidEmail = Falso
Función de salida
Terminar si
i = Len(nombres(1)) - InStrRev(nombres(1), .)
Si i <> 2 y i <> 3 entonces
IsValidEmail = Falso
Función de salida
Terminar si
Si InStr(correo electrónico, ..) > 0 Entonces
IsValidEmail = Falso
Terminar si
Función final