select 语句 程序代码优化 集成

Select Case KS.S("Action")
    Case "ContactInfo"
        Call KSUser.InnerLocation("修改联系信息")
     Call ContactInfo()
    Case "PassInfo"
        Call KSUser.InnerLocation("修改密码")
     Call PassInfo()
    Case "PassSave"
     Call PassSave()
    Case "PassQuestionSave"
     Call PassQuestionSave()
    Case "BasicInfoSave"
     Call BasicInfoSave()
    Case "ContactInfoSave"
     Call ContactInfoSave()
    Case Else
        Call KSUser.InnerLocation("修改基本信息")
     Call EditBasicInfo()
  End Select

Sub EditBasicInfo()
     %>
          <script>
 
         <!----检查用户名，电子邮箱结束-->
      function CheckForm()
  {
   
   if (document.myform.RealName.value =="")
   {
   alert("请填写您的真实姓名！");
   document.myform.RealName.focus();
   return false;
   }

    return true; 
  }

  function changeimage()
  {
    document.myform.UserFace.value="images/face/"+document.myform.Image.value+".gif";
    document.myform.showimages.src='<%=KS.Setting(3)%>Images/Face/'+document.myform.Image.value+'.gif';
  }

    </script>

<table>..........

<form action="User_EditInfo.asp?Action=BasicInfoSave" method="post" name="myform" id="myform" onSubmit="return CheckForm();">  ..................</form>

........</table>

 End Sub

%>