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查看呵呵。