email 주소 유효성 체크
Function EmailCheck(stremail)
emailpattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]
{2,3}$"
if stremail = "" then
RegExpEmail = false
else
dim regEx, Matches
Set regEx = New RegExp
regEx.Pattern = emailpattern
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(stremail)
emailpattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]
{2,3}$"
if stremail = "" then
RegExpEmail = false
else
dim regEx, Matches
Set regEx = New RegExp
regEx.Pattern = emailpattern
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(stremail)
if 0 < Matches.count then
EmailCheck = true
Else
EmailCheck = false
end if
end if
End Function
EmailCheck = true
Else
EmailCheck = false
end if
end if
End Function
'ASP' 카테고리의 다른 글
| ASP 확장자 구하기 (0) | 2015.04.18 |
|---|
엘로드넷