ASP Formlarda E-Posta Adresi Kontrolü

ASP'de hazırladığımız formlarda e-posta adreslerinin düzgün girilip girilmediğini kontrol etmek için aşağıdaki kodu kullanabiliriz.

Fonksiyon :

<% Function MailKontrol(email) Dim i,j, first, last, char i = InStr(1, email, "@" , vbtextcompare) If i > 0 and i < dtid="281474976710663"> 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) <> 57) and _
(Asc(char) <> 90) and (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) <> 57) and _
(Asc(char) <> 90) and (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
%>


<% strMail = "(Buraya Mail Form alanınızın degişkenini atayın. Gelen mail adresi burda değerlendirilcek)" If Not denetle(strMail) Then Response.Write "Lütfen geçerli bir email adresi yazınız" Response.End End If %>