ASP에서 이메일을 확인하는 함수 예제

다음 함수는 ASP에서 이메일 주소가 올바른지 확인하는 데 사용됩니다.

function revMail (메일)
'유효한 주소 확인
'잘못된 주소에 대해 1을 반환합니다.
'유효한 주소에 대해 0을 반환합니다.
어둡게 atCnt
revMail = 0

'chk 길이
len (메일) <5이면
' [email protected] 가능한 가장 짧은 주소 여야합니다.
revMail = 1

'체크 형식
'@가 있는지 확인하십시오.
elseif instr (메일, "@") = 0이면
revMail = 1

'가 있는지 확인하십시오.
elseif instr (메일, ".") = 0이면
revMail = 1

'다음에 3 자 이하인지 확인하십시오.
elseif len (메일)-instrrev (메일, ".")> 4 다음
revMail = 1

'@ 뒤에 _가 없습니다.
'elseif instr (메일, "_") <> 0 및 _
'instrrev (메일, "_")> instrrev (메일, "@") 다음에
'revMail = 1

그밖에
'하나만 @
atCnt = 0
for i = 1 to len (Mail)
mid (Mail, i, 1) = "@"이면
atCnt = atCnt + 1
끝
다음

atCnt> 1이면
revMail = 1
끝

'문자별로 확인
for i = 1 to len (Mail)
숫자가 아닌 경우 (중간 (메일, i, 1)) 및 _
(lcase (중간 (메일, i, 1)) < "a"또는 _
lcase (mid (Mail, i, 1))> "z") 및 _
mid (Mail, i, 1) <> "_"및 _
mid (메일, i, 1) <> "." 및 _
mid (Mail, i, 1) <> "@"및 _
mid (Mail, i, 1) <> "-"다음에
revMail = 1
끝
다음
끝
끝 기능
%>