一个判断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 IsV...