MeMaTi Admin
Mesaj Sayısı : 176 Yaş : 33 Location : dfgfdg Job/hobbies : hgffg Humor : erwer Kayıt tarihi : 14/08/07
| Konu: E-MAİL KONTROL KODU Perş. Ağus. 23, 2007 7:17 am | |
| - Kod:
-
(e-mail kontrolu) ScriptCİ.Com -------------------------------------------------------------------------------------------------------- <html> <head> <title>Email Doğrulama</title> </head> <body> <center> <form> Lütfen email adresini yazınız : <input> </form> </center> </body> </html> ----------------------------------------------------------------- mail=Requst.Form("email") ' girilen adresi alalım <% Function dogruMu (byval adres) AtIsareti=0 'sayaç olarak kullanacağımız Nokta=0 'değişkenleri sıfırlayalım dogruMu=false 'Fonksiyonun değerini yanlış olarak belirleyelim KacKarakter=len(adres) 'adresin boyutunu bir değişkene atayalım For i=1 to KacKarakter 'döngüyü başlatalım karakter=mid(adres, i, 1) 'sayacın gösterdiği karakteri alalım if karakter="@" then '@ işareti olup olmadığına bakalım AtIsareti=AtIsareti + 1 '@ işareti ise sayacı bir arttıralım End If if karakter="." Then 'nokta işaretini arayalım Nokta=Nokta + 1 'nokta ise nokta sayasını bir arttıralım End if Next 'bir sonraki karaktere geçelim If AtIsareti=1 and Nokta >0 Then 'eğer en az bir @ ve nokta olduysa dogruMu=true 'Fonksiyonun değerini doğru yapalım End If End Function %> <if> Yazdığınız email adresi doğru bulundu şimdi devam edebilirsiniz. <else> Yazdığınız email adresi doğru değil.Lütfen geri dönün ve kontrol edin. <end> | |
|