| 다음은 코드 조각입니다. <% '이메일이 올바른지 결정하십시오 기능 isValidEmail (이메일) 희미한 이름, 이름, i, c isvalideMail = true names = split (이메일, "@") Ubound (names) <> 1 인 경우 isvalideMail = false 종료 기능 끝 If 이름의 각 이름에 대해 LEN (이름) <= 0이면 isvalideMail = false 종료 기능 끝 If i = 1 to len (이름) c = lcase (중간 (이름, i, 1)) 인스턴트 ( "abcdefghijklmnopqrstuvwxyz_-.", c) <= 0이고 isnumeric (c)이 아닌 경우 isvalideMail = false 종료 기능 끝 If 다음 왼쪽 (name, 1) = "또는 오른쪽으로." isvalideMail = false 종료 기능 끝 If 다음 악기 (names (1), ".") <= 0 인 경우 isvalideMail = false 종료 기능 끝 If i = len (이름 (1)) -instrev (이름 (1), ".") I <> 2와 I <> 3이라면 그럼 isvalideMail = false 종료 기능 끝 If 악기 (이메일, "..")> 0 인 경우 isvalideMail = false 끝 If 엔드 기능 %> |