function checkemail(emailstr)
{ returnflag = true;
re=/\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*/g
if(re.test(emailstr))
{
returnflag = true;
}
else
{
alert("邮件格式不正确！");
}
return returnflag;
}
这个算不算简单
反正我也不知道什么意思...会用就可以了.

我来个用后台验证的：
也是和楼上一样，用正则写的：
Function IsValidEmail(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\w+((-\w+)|(\.\w))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidEmail = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function

names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
'这段检测字符串中是否含有@


for each name in names
if Len(name) <= 0 then
IsValidEmail = false '对@两边的字符串进行判断，如果@有一边为空字符，则为假
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false '字符串只能包含“英文”“_”“-”和“数字”，否则为假
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then-
IsValidEmail = false
exit function
end if
next