验证邮箱地址IsValidEmail函数

验证邮箱的方法用js方法很容易实现，但是那样很容易被别人获取代码了，我们在服务器上用asp进行验证的话就应该没有问题了，服务端的代码别人看不到。

'函数名：IsValidEmail  
'作 用：检查Email地址合法性  
'参 数：email ----要检查的Email地址  
'返回值：True ----Email地址合法  
' False ----Email地址不合法   
Public Function IsValidEmail(Email)  
Dim names, name, I, c  
IsValidEmail = True  
names = Split(Email, "@")  
If UBound(names) <> 1 Then