ASP kullanıcılarının genelde en çok aradığı şeylerden biriside e-posta adresini doğrulayacak bir fonksiyondur. Basit bir regex fonksiyonu ile gelen mail adresinin doğruluğuna göre true yada false olarak değerler alabiliriz ve işlemimizi alacağımız bu değerlere göre yönlendirebiliriz.
İşte fonksiyon kütüphanenizde bulunması gereken bir fonksiyon
|
Function cckEmail(email)
| Dim regEx, Match, Matches
| If email <> "" Then
|
| Set regEx = New RegExp
| regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
| regEx.IgnoreCase = True
| If regEx.Test(email) Then cckEmail = True Else cckEmail = False
| End If
| End Function |
|