
在用ASP编写页面时,如果涉及到邮件发送,一般会要求输入Email地址。错误的Email地址往往带来许多不必要的麻烦,用下面的函数IsValidEmail就能判断出一个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(123))ThenSpec...