余志国网站设计工作室是专业从事义乌网站建设、义乌外贸网站建设、义乌网站制作、义乌网站设计的专业义乌网站建设工作室,是义乌外贸网站建设专家!

asp检测email地址是否有效函数

分类:程序开发 Tags: asp email 评论:0 浏览:480 最近更新时间:2014/9/30 22:42:40

'检测是否有效的E-mail地址
    
Function IsValidEmail(Email)     
Dim names, name, i, c    
IsValidEmail = True   
Names = Split(email, "@")    
If UBound(names) <> 1 Then   
IsValidEmail = False   
Exit Function   
End If   
For Each name IN names    
If Len(name) <= 0 Then   
IsValidEmail = False   
Exit Function   
End If   
For i = 1 to Len(name)    
c = Lcase(Mid(name, i, 1))    
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then   
IsValidEmail = false    
Exit Function   
End If   
Next   
If Left(name, 1) = "." or Right(name, 1) = "." Then   
IsValidEmail = false    
Exit Function   
End If   
Next   
If InStr(names(1), ".") <= 0 Then   
IsValidEmail = False   
Exit Function   
End If   
i = Len(names(1)) - InStrRev(names(1), ".")    
If i <> 2 And i <> 3 Then   
IsValidEmail = False   
Exit Function   
End If   
If InStr(email, "..") > 0 Then   
IsValidEmail = False   
End If   
End Function
   
siteMail=" vip@yuzhiguo.com"
Response.Write(IsValidEmail(siteMail))


本文地址:https://www.yuzhiguo.com/553/
  • 相关文章
  • 推荐文章
  • 最新文章
发表评论





您的IP:100.26.182.28,来自:

留言

 


免费咨询
建站咨询热线
15967985565

扫一扫微信咨询
QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email