写一个小程序，要求用户输入EMAIL，许检查EMAIL格式正确性，求一段检验EMAIL格式正确的代码：
必须含@和. @个数只能是1 @后面必须有. 等

<%if request.form("email") <> "" Then
dim max,email
email=Split("request.form("email")","@")
max=UBound(email)
if max <>1 Then
errmsg="email格式错误"
Response.write "<script>alert('"&errmsg&"');history.back();</script>"
response.End
End if
else
errmsg="email不能为空"
response.write "<script>alert('"&errmsg&"');history.back():</script>"
response.end
end if %>

[此贴子已经被作者于2006-5-3 22:04:46编辑过]

楼上的是服务器端的验证，呵呵，这里有一个客户端验证的。。。

<script>
function VerifyInput()
{
var mail = document.form.usermail.value;
if(mail.indexOf('@',0) == -1 || mail.indexOf('.',0) == -1){
alert("您输入的Email有错误\n请重新检查您的Email");
document.form.usermail.focus();
return false;
}

if (document.form.usermail.value == "")
{
alert("请输入您的EMAIL地址");
document.form.usermail.focus();
return false;
}

return true;
}
</SCRIPT>

正合我意，我顶！！！！！！！！！！