正则表达式验证邮箱地址的合法性

发布网友 发布时间：2022-04-25 22:19

我来回答

共4个回答

懂视网 时间：2022-05-16 23:33

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
%>

热心网友 时间：2022-05-16 20:41

/^(([a-zA-Z0-9_-])+@([a-zA-Z0-9_-])+(\.[a-zA-Z0-9_-]

/^(([a-zA-Z0-9_-])是表示 @ 符号之前的字符串是由 小写字母、大写字母、数字、下划线、中划线多个字符组成字符串
([a-zA-Z0-9_-])是表示@ 符号之后的字符串是由 小写字母、大写字母、数字、下划线、中划线多个字符组成字符串
\.[a-zA-Z0-9_-] 表示由小黑点和小写字母、大写字母、数字、下划线、中划线多个字符组成字符串
/^表示多个

热心网友 时间：2022-05-16 21:59

if isemail(request.form("txtEmail")) = true then
response.write "OK"
else
response.write "Invalid Email address"
end if

如果你用的是GET METHOD，就把 request.form改成 request

热心网友 时间：2022-05-16 23:33

^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$
^头匹配字符，从第一个字符开始匹配；
\w代表任何单词字符，可以使字母，数字和下划线等字符，等价于[a-zA-Z0-9]；
＋例如ab+c表示在b＋处有一个或多个b；
|表示或的关系；
*例如ab*c表示b*处可以没有或有多个b；
$代表为匹配；
@以前表示为任意单词字符开始，字符中间可加多个句号或减号；