|
E-Mail adresi kontrolü
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
ASPREHBERI.NET sitesinden Alıntıdır.
|
 |
Arkadaşınıza gönderin
