ASP'de Bir E-postayı Doğrulamak İçin İşlev Örneği

ASP'de bir e-posta adresinin doğru olduğunu doğrulamak için aşağıdaki işlev kullanılır.

işlev revMail (Posta)
'geçerli adresi kontrol et
'geçersiz adresler için 1 döndürür
'geçerli adresler için 0 döndürür
Cnt'de karart
revMail = 0

'chk uzunluğu
len (Posta) <5 ise
' [email protected] mümkün olan en kısa adres olmalı
revMail = 1

'formatı kontrol et
'bir @ olup olmadığını kontrol edin
elseif instr (Mail, "@") = 0 o zaman
revMail = 1

' olup olmadığını kontrol edin.
elseif instr (Posta, ".") = 0 sonra
revMail = 1

'den sonra en fazla üç karakter olup olmadığını kontrol edin.
elseif len (Posta) - instrrev (Posta, ".")> 4 sonra
revMail = 1

' @'den sonra _ yok
'elseif instr (Posta, "_") <> 0 ve _
'instrrev (Posta, "_")> instrrev (Posta, "@") ardından
'revMail = 1

Başka
'sadece bir @ var
atCnt = 0
i = 1 için len (Posta) için
mid (Mail, i, 1) = "@" ise
atCnt = atCnt + 1
eğer son
Sonraki

atCnt> 1 ise
revMail = 1
eğer son

'karakter karakter kontrol edin
i = 1 için len (Posta) için
sayısal değilse (orta (Mail, i, 1)) ve _

(lcase (orta (Mail, i, 1)) lcase (orta (Mail, i, 1))> "z") ve _
orta (Mail, i, 1) <> "_" ve _
orta (Mail, i, 1) <> "." ve _
orta (Mail, i, 1) <> "@" ve _
orta (Mail, i, 1) <> "-" sonra
revMail = 1
eğer son
Sonraki
eğer son
bitiş işlevi
%>