一个判断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 = LCa