e-mail adresi doğrulama (validation)

Açıklama

Sayfalarınızda kullandığınız formlarda kullanıcıların e-mail adreslerini alabilirsiniz. Fakat bu e-mail adresini doğru olup olmadığını kontrol etmeniz gerekmektedir. E-mail adreslerinin kontrol edilmesi için gerekli olan kodu sunuyoruz.

ASP SOURCE CODE

<%

If Not IsEmpty (Request.Form("mail")) Then
    emailadresi = Request.Form("mail") 
    If adresdogrula(emailadresi) Then
       Response.Write emailadresi & "doğrudur.<BR>"
       ' ....Yapılacak diğer işlemler......
    Else   
        Response.Write emailadresi & " adresini yanlış girdiniz. Lütfen e-mail adresinizi tekrar giriniz.<BR>"
    End If
 End If

%>

<SCRIPT RUNAT=SERVER LANGUAGE=VBScript>
Function adresdogrula (byval emailadres)
    atisaretisay=0        
    noktasay=0      
    adresdogrula=false      'Fonksiyonun değeri
    uzunluk=len(emailadres)   
    For i = 1 to uzunluk  
        harf=mid(emailadres, i, 1) 
        if harf = "@" then    '  @ işareti olup olmadığı
           atisaretisay=atisaretisay + 1  
        End If
        if harf  = "." Then      'nokta işareti olup olmadığı
           noktasay=noktasay+ 1   
        End if
    Next             
   If atisareti = 1 and noktasay  > 0 Then
      adresdogrula=true  
   End If
End Function
</SCRIPT>

Detaylı İnceleme

Kullanıcının doğru adres verdiğini, bu adresin geçerli bir elektronik posta alıcısına ait olduğunu doğrulamamız mümkün değil, ama en azından adresin doğru yazılıp yazılmadığını denetleyebiliriz. Bunu yapmanın bir yolu elektronik adresin içinde @ karakteri ile en az bir adet nokta bulunduğunu garantilemek olabilir.

Görüntülenme: 2116

Ekleyen: Administrator