第一种办法：<%FunctionIsValidEmail(Email)ValidFlag=FalseIf(Email<>"")And(InStr(1,Email,"@")>0)And(InStr(1,Email,".")>0)ThenatCount=0SpecialFlag=FalseForatLoop=1ToLen(Email)atChr=Mid(Email,atLoop,1)IfatChr="@"ThenatCount=atCount+1If(atChr>=Chr(32))And(atChr<=Chr(44))ThenSpecialFlag=Tru...