반응형
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 |
Tags
- 자마린
- vbscript
- 아라비카
- 제주도
- xamarin.android
- Classic ASP
- 리베리카
- 커피역사
- NGUI
- fso
- xamarin
- 프렌치프레스
- 로부스타
- 원두
- 커피
- Android
- 커피블로그
- asp
- Unity
- 커피풍미
- 템플릿
- 함수
- xamarin.forms
- KnockoutJS
- ServerVariables
- KO
- shared
- 태그를 입력해 주세요.
- 드립 커피
- 여행
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