Programalama > ASP


Ort. 0
Puan ver:
<% 

Function EmailKontrol(Str) 
Et_Isareti = InStr(2, Str , "@" ) 
If Et_Isareti = VBIsNull Then 
EmailKontrol = False 
Else 
Et_Isareti_Krakter_Sayisi = Et_Isareti 
Et_Isareti = True 
End If 
If Et_Isareti = True Then 
Nokta = InStr(Et_Isareti_Krakter_Sayisi + 2, Str , "." ) 
If Nokta = VBIsNull Then 
EmailKontrol = False 
Else 
EmailKontrol = True 
End If 
Else 
EmailKontrol = False 
End If 
End Function 

Email = "adiniz@hotmail.com" 

If EmailKontrol(Email) Then 
Response.Write "Email Dogru" 
Else  
Response.Write "Email Yanlis" 
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 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.