邮箱地址验证正则表达式

dedecms中的邮箱地址验证

phpcms中的邮箱地址验证

经测试a@jb51.net这样的邮箱CheckEmail不支持但is_email支持，但对于这样的邮箱很少有人用，所以也是可以的。大家可以根据需要选择。

asp 判断电子邮件邮箱的地址格式是否正确
我们可用下列办法来解决这一问题——但只是能够判断每个电子邮件地址的格式是否有效，并不能保证该地址确实存在。

第一种办法：

<%
'****************************************************
'函数名：ChkMail
'作 用：邮箱格式检测
'参 数：Email ----Email地址
'返回值：True正确，False有误
'****************************************************
Public Function ChkMail(ByVal Email)
Dim Rep,Pmail : ChkMail = True : Set Rep = New RegExp
Rep.Pattern = "([\.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(\.([a-zA-Z0-9]){2,}){1,4}$"
Pmail = Rep.Test(Email) : Set Rep = Nothing
If Not Pmail Then ChkMail = False
End Function
%>
使用：
If ChkMail("ls535427@2221262.com") = True Then
Response.Write "格式正确"
Else
Response.Write "格式有误"
End If

第二种办法，用下面这个函数进行判断。它会检查邮件地址是否含有“@”，以及“.”是否在“@”后面：
<%

Public Function IsEmail(ByVal PString)
Dim Plt,Pgt : Plt = False : Pgt = False
For x = 2 To Len(PString) - 1
If Mid(PString,x,1) = "@" Then Plt = True
If Mid(PString,x,1) = "." And Plt = True Then Pgt = True
Next
If Plt = True And Pgt = True Then
IsEmail = True
Else
IsEmail = False
End if
End Function
%>



js邮箱地址验证代码

其实这里的很多代码都是从一些知名的cms系统中，获取的，就像一些比较不错的函数，基本上为了节约时间可以多参考成熟系统的源码中参考。
php 可以参考dedecms phpcms等
asp 可以参考 kesioncms 动易等开源的系统
js 就可以多从一些网站下载js查看呵呵。

更多表单验证参考代码
js 常用regex表达式表单验证代码