一个判断email合法性的函数[非正则]

<%
FunctionIsValidEmail(email)
Dimnames,Name,i,c
IsValidEmail=True
names=Split(email,"@")
IfUBound(names)<>1Then
IsValidEmail=False
ExitFunction
EndIf
ForEachNameInnames
IfLen(Name)<=0Then
IsValidEmail=False
ExitFunction
EndIf
Fori=1ToLen(Name)
c=LCase(Mid(Name,i,1))
IfInStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0AndNotIsNumeric(c)Then
IsValidEmail=False
ExitFunction
EndIf
Next
IfLeft(Name,1)="."OrRight(Name,1)="."Then
IsValidEmail=False
ExitFunction
EndIf
Next
IfInStr(names(1),".")<=0Then
IsValidEmail=False
ExitFunction
EndIf
i=Len(names(1))-InStrRev(names(1),".")
Ifi<>2Andi<>3Then
IsValidEmail=False
ExitFunction
EndIf
IfInStr(email,"..")>0Then
IsValidEmail=False
EndIf
EndFunction
%>