Programalama > ASP

Etiketler: email, kotrolü......

Ort. 0
Puan ver:
<html>
<head>
<title>Email Doğrulama</title>
</head>
<body>
<center>
<form action="email_kontrol.asp" method="post">
Lütfen email adresini yazınız : <input type=text name=email>
</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 dogruMu(mail) then %>
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 if %>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.