퍼펙트 프로그래머

<%

email = Request("email")

if ereg(email) = false then
  response.write "잘못된 이메일 주소 입니다"

else

  response.write "올바른 이메일 주소 입니다"
end if

'이메일 체크함수
Function ereg(strng)
  ptrn = "^([a-z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-z0-9_\-]+\.)+))([a-z]{2,4}|[0-9]{1,3})(\]?)$"
  Dim eregEx, retVal               ' 정규표현식 변수 생성
  Set eregEx = New RegExp    ' 정규표현식 생성
  eregEx.Pattern = ptrn           ' 패턴지정
  eregEx.IgnoreCase = False      ' 대소문자 구분함
  retVal = eregEx.Test(strng)      ' 정규표현식에 의거 문자 테스트
  If retVal Then
    ereg = True           ' 정규표현식에 맞는 문자인 경우
  Else
    ereg = False          ' 정규표현식에 맞지 않는 문자인 경우
  End If
End Function

%>