ASP Formlarda E-Posta Adresi Kontrolü

ASP’de hazırladığımız formlarda e-posta adreslerinin düzgün girilip girilmediğini kontrol etmek için aşağıdaki kodu kullanabiliriz.


Fonksiyon :

0 and i first = Left(email, i – 1)
last = Mid(email, i+1, Len(email))
Else
MailKontrol = false
exit Function
End If
i = 0
Do Until i = Len(first)
i = i + 1
char = Mid(first, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) 46 and Asc(char) 95 and (Asc(46) 57) and _
(Asc(char) 90) and (Asc(char) 122) Then
MailKontrol = false
exit Function
End If
Loop
i = 0
nokta = false
Do Until i = Len(last)
i = i + 1
char = Mid(last, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) 46 and (Asc(46) 57) and _
(Asc(char) 90) and (Asc(char) 122) Then
MailKontrol = false
exit Function
End If
Loop
nokta = false
If InStr(1, last, “.” , 1) > 0 Then
nokta = true
End If
MailKontrol = nokta
End Function
%>

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir