KaraYılan TR

HOŞGELDİNİZ KaRaYıLaN
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Kayıt OlKayıt Ol  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Giriş yap  

Paylaş | 
 

 E-MAİL KONTROL KODU

Aşağa gitmek 
YazarMesaj
MeMaTi
Admin


Erkek
Mesaj Sayısı : 176
Yaş : 27
Location : dfgfdg
Job/hobbies : hgffg
Humor : erwer
Kayıt tarihi : 14/08/07

MesajKonu: 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>
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.djdenizcom.tr.gg
 
E-MAİL KONTROL KODU
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Şerit Menü
» Vb Üst Menü
» Üst Menülü Css Tasarım Yapımı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
KaraYılan TR :: KOD MERKEZİ :: ASP KODLARI-
Buraya geçin: