Existem algumas boas funções de validação de formulário, você pode consultar '************************************* *****
'Verifique se contém apenas inglês e números
'************************************
Função IsvalidValue(ArrayN, Str)
ValorIsválido = Falso
Escurecer GName
Para cada GName em ArrayN
Se Str = GName Então
IsvalidValue = Verdadeiro
Sair para
Terminar se
Próximo
Função final
'************************************
'Verifica se um número válido
'************************************
Função ÉIsInteger(Para)
ÉIsInteger = Falso
Se não (IsNull(Para) ou Trim(Para) = ou Not IsNumeric(Para)) então
ÉInteger = Verdadeiro
Terminar se
Função final
'************************************
'Detecção de nome de usuário
'************************************
Função IsValidUserName(byVal UserName)
Dim eu, c
DimVUserName
IsValidUserName = Verdadeiro
Para i = 1 para Len (Nome de usuário)
c = LCase(Mid(NomeUsuário, i, 1))
Se InStr($!<>?#^%@~`&*();:+=' , c) > 0 Então
IsValidUserName = Falso
Função de saída
Terminar se
Próximo
Para cada VUserName em Register_UserName
Se NomeUsuário = VUserName Então
IsValidUserName = Falso
Sair para
Terminar se
Próximo
Função final
'************************************
'Verifique se existe um endereço de e-mail válido
'************************************
Função IsValidEmail(E-mail)
Nomes escuros, Nome, i, c
IsValidEmail = Verdadeiro
Nomes = Dividir(e-mail, @)
Se UBound(nomes) <> 1 Então
IsValidEmail = Falso
Função de saída
Terminar se
Para cada nome em nomes
Se Len(Nome) <= 0 Então
IsValidEmail = Falso
Função de saída
Terminar se
Para i = 1 para Len(Nome)
c = LCase(Mid(Nome, i, 1))
Se InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 e não IsNumeric(c) então
IsValidEmail = Falso
Função de saída
Terminar se
Próximo
Se Esquerda(Nome, 1) = .
IsValidEmail = Falso
Função de saída
Terminar se
Próximo
Se InStr(nomes(1), .) <= 0 Então
IsValidEmail = Falso
Função de saída
Terminar se
i = Len(nomes(1)) - InStrRev(nomes(1), .)
Se eu <> 2 E eu <> 3 Então
IsValidEmail = Falso
Função de saída
Terminar se
Se InStr(email, ..) > 0 Então
IsValidEmail = Falso
Terminar se
Função final