邮箱地址验证正则表达式
dedecms中的邮箱地址验证
复制代码 代码如下:
<?php
$email="test@jb51.com";
//邮箱格式检查
function CheckEmail($email)
{
return eregi("^[0-9a-z][a-z0-9._-]{1,}@[a-z0-9-]{1,}[a-z0-9].[a-z.]{1,}[a-z]$", $email);
}
echo CheckEmail($email);
phpcms中的邮箱地址验证
复制代码 代码如下:
function is_email($email)
{
return strlen($email) > 6 && preg_match("/^[w-.]+@[w-.]+(.w+)+$/", $email);
}
echo is_email($email);
?>
经测试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
%>
复制代码 代码如下:
<%
Function isemail(strng)
isemail = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^w+((-w+)|(.w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$"
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then isemail= true
End Function
%>
js邮箱地址验证代码
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
其实这里的很多代码都是从一些知名的cms系统中，获取的，就像一些比较不错的函数，基本上为了节约时间可以多参考成熟系统的源码中参考。
php 可以参考dedecms phpcms等
asp 可以参考 kesioncms 动易等开源的系统
js 就可以多从一些网站下载js查看呵呵。
更多表单验证参考代码
js 常用regex表达式表单验证代码