تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التأكد من صحة البريد الالكتروني باستخدام Regex
#1
كاتب الموضوع : AhmedEssawy


كود :
<%
'our function to check email addresses
'a fantastic list of regular expressions
Function CheckMail(strEmail)
'our variables
Dim objRegExp , blnValid
'create a new instance of the RegExp object , note we do not need Server.CreateObject("")
Set objRegExp = New RegExp
'this is our pattern we check .
objRegExp.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})(\]?)$"
'store the result either true or false in blnValid
blnValid = objRegExp.Test(strEmail)
If blnValid Then
'display this if it is a vlid email address
Response.Write "This is a valid email address<br>"
Else
'display this if it is an invalid email address
Response.Write "That email address is invalid<br>"
End If
End Function
%>
<%CheckMail("[EMAIL="validmail@email.com"]validmail@email.com[/EMAIL]") 'correct email address %>
<%CheckMail("invalid1") 'incorrect , many errors%>
<%CheckMail("invalid+email.com") 'invalid + sign instead of @%>
<%CheckMail("invalid@email,com") 'invalid , sneaky uses a comma instead of a full stop%>
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة مكتبات البريد الإلكتروني التي يمكن استخدامها في السيرفر - Asp RaggiTech 0 607 17-10-12, 10:51 PM
آخر رد: RaggiTech
  عمل Calendar باستخدام ASP - عرض شهور RaggiTech 0 387 17-10-12, 10:44 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم