请问如何将下列代码简化？

[Initial_R]

If InStr(Email,"@")=0 or InStr(Email,".")=0 or InStr(Email,"@.")<>0 or InStr(Email,"@-")<>0 or InStr(Email,"-.")<>0 or InStr(Email,"--")<>0 or InStr(Email,"-_")<>0 or InStr(Email,"-@")<>0 or InStr(Email,".-")<>0 or InStr(Email,"._")<>0 or InStr(Email,"..")<>0 or InStr(Email,"_.")<>0 or InStr(Email,"_-")<>0 or InStr(Email,"__")<>0 or Left(Email,1)="@" or Right(Email,1)="@" or Left(Email,1)="." or Right(Email,1)="." then

--------------------------------
主要是 "@"、"-"、"_"、"."这色个字符，任意两个不可以连续出现，但是".@"以及"_@"除外
因为一个一个的列举出来太麻烦了点。有没有什么比较省事的VBscript函数可以轻松搞定的？

[huangkw007]

用正则表达式

[Initial_R]

求实例。

[diyager]

用js吧 if(mail.indexOf('@',0) == -1 || mail.indexOf('.',0) == -1)

[diyager]

var mail = form.Email.value;

if(mail.indexOf('@',0) == -1 || mail.indexOf('.',0) == -1)
{
alert("您输入的Email有错误\n请重新检查您的Email");
form.Email.focus();
return false;

[无爱大叔]

var Email = document.getElementById("email");
var mailStr = /((\w)+)@((\w)+).[cc|com|net|org|tv|cn]/ig;
if (!mailStr.exec(Email.value))
{
alert("您的邮箱地址书写不正确!\n请您重新输入一遍!");
Email.focus();
return false;
}