没用到正则,看起来这个函数的准确度还是比较高的。
<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
- <%
- 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
- %>