많은 확인 이메일이 js 클라이언트에서 확인되지만 서버에서 확인하기 위해 asp를 사용하면 문제가 발생하지 않습니다. 다음과 같이 코드 코드를 복사합니다.
'************************************************
'함수 이름: IsValidEmail
'기능: 이메일 주소의 유효성을 확인합니다.
'파라미터: email ----확인할 이메일 주소
'반환 값: True ----이메일 주소가 합법적입니다.
' False ----이메일 주소가 불법입니다.
'************************************************
공개 함수 IsValidEmail(이메일)
희미한 이름, 이름, 나, c
IsValidEmail = 참
이름 = 분할(이메일, @)
UBound(names) <> 1이면 IsValidEmail = False: 함수 종료
각 이름에 대해 이름에
Len(이름) <= 0이면 IsValidEmail = False: 함수 종료
I = 1 To Len(이름)
c = LCase(Mid(이름, I, 1))
InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0이고 IsNumeric(c)이 아닌 경우 IsValidEmail = False: 함수 종료
다음
If Left(name, 1) = . 또는 Right(name, 1) = . 그러면 IsValidEmail = False:Exit 함수
다음
InStr(names(1), .) <= 0이면 IsValidEmail = False: 함수 종료
I = Len(이름(1)) - InStrRev(이름(1), .)
만약 I <> 2 And I <> 3 Then IsValidEmail = False:Exit Function
InStr(Email, ..) > 0이면 IsValidEmail = False
기능 종료