몇 가지 좋은 양식 유효성 검사 기능이 있습니다. '****************************************를 참조하세요. *****
'영어와 숫자만 포함되어 있는지 확인하세요.
'************************************
함수 IsvalidValue(ArrayN, Str)
IsvalidValue = 거짓
희미한 G이름
ArrayN의 각 GName에 대해
Str = GName이면
IsvalidValue = 참
종료 대상
종료 조건
다음
기능 종료
'************************************
'유효한 번호인지 확인하세요.
'************************************
함수 IsInteger(Para)
IsInteger = 거짓
If Not (IsNull(Para) Or Trim(Para) = Or Not IsNumeric(Para)) 그러면
IsInteger = 참
종료 조건
기능 종료
'************************************
'사용자 이름 감지
'************************************
함수 IsValidUserName(Val UserName별)
어두워요,c
DimV사용자 이름
IsValidUserName = 참
i = 1 To Len(UserName)
c = LCase(Mid(사용자 이름, i, 1))
InStr($!<>?#^%@~`&*();:+=' , c) > 0이면
IsValidUserName = 거짓
종료 기능
종료 조건
다음
Register_UserName의 각 VUserName에 대해
UserName = VUserName인 경우
IsValidUserName = 거짓
종료 대상
종료 조건
다음
기능 종료
'************************************
'유효한 이메일 주소가 있는지 확인하세요.
'************************************
기능 IsValidEmail(이메일)
희미한 이름, 이름, i, c
IsValidEmail = 참
이름 = 분할(이메일, @)
UBound(names) <> 1이면
IsValidEmail = 거짓
종료 기능
종료 조건
각 이름 IN 이름에 대해
Len(이름) <= 0이면
IsValidEmail = 거짓
종료 기능
종료 조건
i = 1 To Len(이름)
c = LCase(Mid(이름, i, 1))
InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0이고 IsNumeric(c)이 아닌 경우
IsValidEmail = 거짓
종료 기능
종료 조건
다음
왼쪽(이름, 1) = . 또는 오른쪽(이름, 1) = .
IsValidEmail = 거짓
종료 기능
종료 조건
다음
InStr(names(1), .) <= 0이면
IsValidEmail = 거짓
종료 기능
종료 조건
i = Len(이름(1)) - InStrRev(이름(1), .)
내가 <> 2이고 내가 <> 3이면
IsValidEmail = 거짓
종료 기능
종료 조건
InStr(email, ..) > 0이면
IsValidEmail = 거짓
종료 조건
기능 종료