js 客户端验证

<script language="JavaScript" type="text/JavaScript">
function check(checkStr){
var str
str="";
for (i=1;i<=checkStr.length;i++){
str=str+" "
}
return (str==checkStr)
}

function check2()
{
if (check(document.all.Name.value)){
alert("帐号为空！");
return false;
}
if (check(document.all.Nick.value)){
alert("昵称为空！");
return false;
}if (check(document.all.Pass1.value)){
alert("密码为空！");
return false;
}if (check(document.all.Pass2.value)){
alert("验证密码为空！");
return false;
}if (check(document.all.Email.value)){
alert("Email为空！");
return false;
}
if(checkPass()==false){
return false;
};
if(checkAccount()==false){
return false;
}
}

function checkPass()
{
var p1;
var p2;
p1=document.all.Pass1.value;
p2=document.all.Pass2.value;
if (p1!=p2){
alert("两次密码输入不一致！")
return false;
}
}
function checkAccount(){
if (document.all.Pass1.value.length<6){
alert("密码不少于6位！")
return false;
}
}
</script>
<script language="VBScript">
Function CheckNum(Str)
Dim i,StrLen
Str=Trim(Str)
StrLen=Len(Str)
If Str<>"" Then
   For i=1 To StrLen
    If Asc(Mid(Str, i, 1))<48 Or Asc(Mid(Str, i, 1))>57 Then
       CheckNum  = 2
   
       Exit For
    End If      
   Next  
End If
End Function
Function CheckAcc(Acc)
Dim i,StrLen
Acc=Trim(Acc)
StrLen=Len(Acc)

If Acc<>"" Then
   For i=1 To StrLen
       If Asc(Mid(Acc, 1, 1))=95 Then
       CheckAcc=1
    Exit For
    End If
    If Asc(Mid(Acc, i, 1))>=48 And Asc(Mid(Acc, i, 1))<=57 Then
    Else
       If Asc(Mid(Acc, i, 1))>=65 And Asc(Mid(Acc, i, 1))<=90 Then
    Else
       If Asc(Mid(Acc, i, 1))>=97 And Asc(Mid(Acc, i, 1))<=122 Then
    Else
       If Asc(Mid(Acc, i, 1))=95 Then
             Else
                   CheckAcc = 2
                   Exit For
             End If
    End If
    End If
  End If      
   Next  
End If

End Function
Function Try()

If CheckNum(Trim(document.form2.Oicq.value))=2 Then
   Msgbox("OICQ必须是数字！")
   Try=False
   Exit Function
End If
If CheckNum(Trim(document.form2.HandPhone.value))=2 Then
   Msgbox("手机号码必须用数字！")
   Try=False
   Exit Function
End If
If CheckNum(Trim(document.form2.PostCode.value))=2 Then
   Msgbox("邮政编码必须用数字！")
   Try=False
   Exit Function
End If
If Trim(document.form2.PostCode.value) <> "" And Len(Trim(document.form2.PostCode.value))<>6 Then
   Msgbox("邮政编码必须为6位数字！")
   Try=False
   Exit Function  
End If
If Trim(document.form2.HandPhone.value) <> "" And Len(Trim(document.form2.HandPhone.value))<>11 Then
   Msgbox("手机号码必须为11位数字！")
   Try=False
   Exit Function  
End If
If CheckAcc(document.form2.Name.value) = 2 Then
   Msgbox("帐号必须是字母(Aa-Zz)，数字(0-9)，下划线(_)或它们的组合！")
   Try=False
   Exit Function  
End If 
If CheckAcc(document.form2.Name.value) = 1 Then
   Msgbox("帐号第一个字母不能是下划线！")
   Try=False
   Exit Function  
End If
End Function
</script>

 

转载于:https://www.cnblogs.com/DuckEgg/archive/2006/08/06/469232.html