<% 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 radio list的实现细节(多浏览器兼容)

可支持方向键 当radio最后一个选中时，按小键盘后会自动跳回第一个 checked可自动触发onclick 支持各种浏览器,cross-browser Rank's HTML document /**/ radio list的妙用 可支持>>>详细阅读

本文标题：一个判断email合法性的函数[非正则]

地址：http://www.17bianji.com/kaifa2/JS/29151.html

 1/2    1