一个判断email合法性的函数[非正则]
一个判断email合法性的函数[非正则]
发布时间:2016-12-30 来源:查字典编辑
摘要:

<%

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

%>

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新Javascript教程学习
热门Javascript教程学习
编程开发子分类