晕死<html>
  <head>
    <title>信息采集</title>
<script type="text/javascript">
<!--用户名是否合法-->
function CheckName(name){
    var flag=false;
    var Len=name.length;
    if(Len>3 && Len<9){
        flag=true;
    }
    return flag;
}
<!--性别是否合法-->
function CheckSex(sex){
    var flag=false;
    if(sex=="male" || sex=="female")
        flag=true;
    return flag;
}
<!--学号是否正确-->
function CheckID(id){
    var flag=false;
    var strID=id.indexOf("2001");
    var idLen=id.length;
    if(idLen==8 && strID==0){
        flag=true;
    }
    return flag;
}
<!--Email地址正确性-->
function CheckEmail(email){
  var flag=false;
  var indexOfAt=email.indexOf("@");
  var indexOfDot=email.indexOf(".", indexOfAt);
  var isDotAfterAt=email.indexOf("@", email.indexOf("."));
  if(indexOfAt!=-1 && indexOfAt!=0 && indexOfDot!=email.length-1 && isDotAfterAt == -1 && indexOfDot>indexOfAt+1){
    flag=true;
  }
  return flag;
}
<!--主入口-->
function myMain(){
  var info="信息\n\n";
  while(true){
    var myName=prompt("姓名:(3~9个字符)");
    var nameFlag=CheckName(myName);
    if(nameFlag==true){
      info+="姓名:"+myName+"\n";
      break;
    }
    var msg="姓名输入错误:\n";
    msg+="结果:格式错误\n\n";
    msg+="格式:3~9位字符\n\n";
    msg+="处理:单击“确定”返回修改\n";
    alert(msg);
  }
  while(true){
  var mySex=prompt("性别:male或female", "male");
  var sexFlag=CheckSex(mySex);
  if(sexFlag==true){
   info+="性别:"+mySex+"\n";
    break;
   }
   var msg="性别输入错误:\n";
   msg+="结果:格式错误\n\n";
   msg+="格式:必须是'male'或是'female'\n\n";
   msg+="处理:单击“确定”返回修改\n";
   alert(msg);
 }
  while(true){
  var myID=prompt("学号:(2001****)", "2001");
  var idFlag=CheckID(myID);
  if(idFlag==true){
   info+="学号:"+myID+"\n";
    break;
   }
   var msg="学号输入错误:\n";
   msg+="结果:格式错误\n\n";
   msg+="格式:必须是2001开头的8个数字\n\n";
   msg+="处理:单击“确定”返回修改\n";
   alert(msg);
 }
  while(true){
  var myEmail=prompt("EMAIL:(如:[email protected])", "@");
  var emailFlag=CheckEmail(myEmail);
  if(emailFlag==true){
   info+="Email:"+myEmail+"\n";
    break;
   }
   var msg="Email输入错误:\n";
   msg+="结果:格式错误\n\n";
   msg+="格式:1.Email中必须同时有'@'和'.'\n";
   msg+="     2.Email中'@'必须在'.'这前,并中间要有至少一个字符\n";
   msg+="     3.Email中'@'不是第一个字符,'.'不是最后一个字符\n\n";
   msg+="处理:单击“确定”返回修改\n";
   alert(msg);
 }
 alert(info);
}
</script>
  </head>
  <body>
    <center>
    <input type="button" value="采集信息" onclick="myMain()" />
    </center>
  </body>
</html>