| 以下是代码片段： <% ’判断EMAIL是否正确 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 %> |