반응형
Notice
Recent Posts
Recent Comments
Link
| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | ||||
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
Tags
- fso
- vbscript
- liberica
- 자마린
- robusta
- KnockoutJS
- 태그를 입력해 주세요.
- 수마트라 원두
- NGUI
- KO
- xamarin
- 라이트 로스팅
- ServerVariables
- Unity
- 제주도
- 원두
- 프렌치프레스
- 커피
- 드립 커피
- shared
- asp
- 템플릿
- 함수
- 아라비카
- xamarin.forms
- 여행
- Android
- 미디엄 로스팅
- Classic ASP
- xamarin.android
Archives
- Today
- Total
개발人
이메일 유효성 체크 본문
반응형
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
반응형
'Classic ASP' 카테고리의 다른 글
| ASP 로 RSS 리더기 구현 (0) | 2015.05.23 |
|---|---|
| 동적 인크루드 (0) | 2015.05.23 |
| 이동된 전 경로 알아내기 (0) | 2015.05.23 |
| 시간측정 타이머 (0) | 2015.05.23 |
| 숫자인지 문자인지 구별하기 (0) | 2015.05.23 |
Comments