[ASP] Email Valid Regular Check - 이메일 정규식 체크

<%
Response.write isValidEmail("-_-Test-_-@test.com") & "<BR>"
Response.write isValidEmail("Test")

Function isValidEmail(myEmail)
  dim isValidE
  dim regEx
 
  isValidE = True
  set regEx = New RegExp
 
  regEx.IgnoreCase = False
 
  regEx.Pattern = "^[a-zA-Z\-\_][\w\.-]*[a-zA-Z0-9\-\_]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
  isValidE = regEx.Test(myEmail)
 
  isValidEmail = isValidE
End Function
%>

요즘은 이메일 계정에 특수 문자 허용이 완화된듯 해서 
대쉬(-), 언더바(_)를 전체적으로 허용시켜줬다.
일반적으로 사용하지 않는 메일형식이므로 앞뒤로 허용해준건 제거해도 큰 지장은 없을듯..