ASP : email 주소 유효성 체크

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)

if 0 < Matches.count then
EmailCheck = true
Else
EmailCheck = false
end if
end if
End Function