mail hesabının var olup olmadığın öğrenme

merhabalar;

sitemde kendi geliştirdiğim bir yorum scripti ile, sayfaya yorum yazanlara, bu sayfaya sizden sonra yapılacak olan yorumları e-mail yolu ile haberdar olmak ister misiniz diye kutucuk sunuyorum, böylece sayfa ile ilgili gelişmelerden haberdar oluyor ziyaretci sayfayı takip etmek zorunda kalmadan. Fakat mailin doğru yazıldığını kontrol etmeme rağmen, yani karakter, @ ve . işaretlerinin varlığını kontrol etmeme rağmen, yürürlükte olmayan mailler belirtildiğinde, sayfaya yorum yapıldığını bildiren mail dolayısı ile var olmayan bir mail hesabına gitmekte. Bunu önleme adına aklıma mail hesabına ping çekmek gibi bir uygulama geldi. Bu sayede pingden gelecek yanıta göre evet senin mail adresin doğru veya kardeşim mail adresini düzgün yaz diyebileceğim.

Bu sayede mail bileşenim gereksiz yere işlememiş olacaktır.

Bu konuda elinde asp yazılımı olan varsa paylaşımını rica ediyorum kendinden.

Teşekkür eder, kolaylıklar dilerim...

<%
Function EmailKontrol(email)
Dim regEx, Match, Matches
If email <> "" Then
Set regEx = New RegExp
regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
regEx.IgnoreCase = True
If regEx.Test(email) Then EmailKontrol = True Else EmailKontrol = False
End If
End Function
%>





<%
mail=cevir(Request.Form("mail"))

If not EmailKontrol(mail) Then

Response.Write("<script>alert('Geçerli bir e-mail giriniz !..')</script>")
Response.Write("<script>location.href(history.back (2))</script>")
Response.End()

end if
%>




buyur

Demiş, keşke okuyup yazsaydınız.

nslookup tarzı bir komut ile MX adresini kontrol etmen gerek.

Component olmadan yamazsın diyorlar:

http://forum.zoque.net/www/29301-epo...kontrol-etmek/