|
|
| |
|
|
E-Mail adresi kontrolü |
 |
4378 Görüntülenme |
E-Mail adresi kontrolü
Aşağıdaki fonksiyon'u kullanarak aldığınız form bilgilerinde veya istediğiniz herhangi bir yerdeki mail adresinin geçerli bir mail adresi olup olmadığının kontrolünü yapabilirsiniz.
Kontrol olarak 3 kontrol yapılıyor.
@ işaretinden önce herhangi bir isim veya @ işaretinden sonra herhangi bir domain ismi varmı kontrolü yapılıyor.Son olarak uzantı kontrolü yapılıyor.
Kullanımına örnek verecek olursak ;
<%
strMail = "serdar@asprehberi.net"
If Not denetle(strMail) Then
Response.Write "Lütfen geçerli bir email adresi yazınız"
Response.End
End If
%>
strMail yerine uzantısı olmayan veya ismi olmayan veya domain'i olmaz ise yazmış olduğunuz hatayı verecektir.Örnek kodumuzda gördüğünüz gibi If Not denetle(email) şeklinde kullandık.Bunun anlamında ise kontrol edilen mail adresi geçerli değil ise şartları uygulamaktır.
Fonksiyon aşağıdadır.
Function MailKontrol(email)
Dim i,j, first, last, char
i = InStr(1, email, "@" , vbtextcompare)
If i > 0 and i < Len(email) Then
first = Left(email, i - 1)
last = Mid(email, i+1, Len(email))
Else
MailKontrol = false
exit Function
End If
i = 0
Do Until i = Len(first)
i = i + 1
char = Mid(first, i, 1)
' If char is not in [.z-aA-Z0-9]
If Asc(char) <> 46 and Asc(char) <> 95 and (Asc(46) < 48 or Asc(char) > 57) and _
(Asc(char) < 65 or Asc(char) > 90) and (Asc(char) < 97 or Asc(char) > 122) Then
MailKontrol = false
exit Function
End If
Loop
i = 0
nokta = false
Do Until i = Len(last)
i = i + 1
char = Mid(last, i, 1)
' If char is not in [.z-aA-Z0-9]
If Asc(char) <> 46 and (Asc(46) < 48 or Asc(char) > 57) and _
(Asc(char) < 65 or Asc(char) > 90) and (Asc(char) < 97 or Asc(char) > 122) Then
MailKontrol = false
exit Function
End If
Loop
nokta = false
If InStr(1, last, "." , 1) > 0 Then
nokta = true
End If
MailKontrol = nokta
End Function |
|
|
|
|
|
| |
|
| | |
|
Bu içerik hakkında 11 yorum yapılmış |
|
|
|
|
|
|
| Yorumlar(11) |
Not : Yorumlar zamana göre
son yorumdan ilk yoruma doğru(azalan) biçimde sıralanmıştır.
Yorumlarınız site yöneticileri tarafından onaylandıktan sonra eklenecektir. |
|
| + Arkadaslar ; kodun calismasi icin ya alttaki fonksiyonun ismi "denetle" olacak (Function MailKontrol(email) şeklinde), ya da ustteki kodun baslangici "If Not MailKontrol(strMail) Then" şeklinde olacak.En azindan ben oyle yaptim dogru oldu. |
| Yazan : Serdar Gümüşkaya | Zaman : 24 Ekim 2006 Salı, Saat 23:44 |
|
|
+ en basiti bu
<%
email = "sallama@sallama.com"
Kont1 = InStr(email, "@")
Kont2 = InStr(email, ".")
if Kont1 = "0" or Kont2 = "0" Then
Response.Write "Geçerli Değil"
Else
Response.Write "Geçerli"
End if
%> |
| Yazan : Ömer Faruk BAL | Zaman : 26 Mayıs 2006 Cuma, Saat 00:27 |
|
|
+ Kodu aynen koyduktan sonra kontrol yaparken
<%
strMail = "serdar@asprehberi.net"
If Not denetle(strMail) Then
Response.Write "Lütfen geçerli bir email adresi yazınız"
Response.End
End If
%>
şeklinde bir kod ile denemen yeterli. |
| Yazan : Serdar Toros | Zaman : 6 Mayıs 2005 Cuma, Saat 18:14 |
|
|
| + bunu nereye yazacağız bu kodu yani kusura bakmayın yeni heves ettim yeni yeni öğreniyorum yardımederseniz minnettar kalırım |
| Yazan : tayfun | Zaman : 6 Mayıs 2005 Cuma, Saat 18:07 |
|
|
+ Basit kod arıyorsan buyur
<%
Function EmailCheck(Str)
Et_Isareti = InStr(2, Str , "@" )
If Et_Isareti = VBIsNull Then
EmailCheck = 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
EmailCheck = False
Else
EmailCheck = True
End If
Else
EmailCheck = False
End If
End Function
%> |
| Yazan : Umutcan Güney | Zaman : 21 Nisan 2005 Perşembe, Saat 18:45 |
|
|
|
|
|
|
