江湖救急：我要一段javascript客户端执行的代码,用来验证用户所填表单是不是EMAIL

[surstar]

江湖救急：我要一段javascript客户端执行的 代码
功能如下：验证所填的 表单项是不是填的EMAIL
验证所填的 表单项是不是填数字，可以是小数


要两个函数，第一个函数用来验证是不是EMAIL
第2个用来验证是 不 数字，可以是小数


希望大家可以给我这样的脚本

[surstar]

希望大家帮我呀

[阿_浩]

function IsEmail(str){
var nLen;
var nCnt1, nCnt2;
nCnt1=0;
nCnt2=0;
nLen = str.length;
for(var i=0; i<nLen; i++){
if(str.charAt(i)==' '){
return false;}
if(str.charAt(i)=='\'' || str.charAt(i)=='\"'){
return false;}
if(str.charAt(i)=='<' || str.charAt(i)=='>' ){
return false;}
if(str.charAt(i)=='@'){
nCnt1++;}
if(str.charAt(i)=='.'){
nCnt2++;}
}
if( nCnt1!=1 || nCnt2<1){
return false;
}
else
return true;
}

[阿_浩]

IsNumeric 函数
返回 Boolean 值指明表达式的值是否为数字。

[777dragon]

if(document.userinfo.useremail.value.length!=0)
{
if (document.userinfo.useremail.value.charAt(0)=="." ||
document.userinfo.useremail.value.charAt(0)=="@"||
document.userinfo.useremail.value.indexOf('@', 0) == -1 ||
document.userinfo.useremail.value.indexOf('.', 0) == -1 ||
document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 ||
document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.userinfo.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.userinfo.useremail.focus();
return false;
}

[taomaintao]

<SCRIPT LANGUAGE="JavaScript">
<!--
function check()
{
if(document.register.email.value.length!=0)
{
if (document.register.email.value.charAt(0)=="." ||
document.register.email.value.charAt(0)=="@"||
document.register.email.value.indexOf('@', 0) == -1 ||
document.register.email.value.indexOf('.', 0) == -1 ||
document.register.email.value.lastIndexOf("@")==document.register.email.value.length-1 ||
document.register.email.value.lastIndexOf(".")==document.register.email.value.length-1)
{
alert("Email的格式不正確！");
document.register.email.focus();
return false;
}
}
else
{
alert("Email的不能为空！");
document.register.email.focus();
return false;
}
return false;
}
//-->
</SCRIPT>

[ling_l]

验证EMAIL格式：
function IsValidEmail(email)

dim names, name, i, c


IsValidEmail = true
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
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if

end function

验证数字函数：
IsNumeric(Var)