select 实例

select case memtype
  
    case "1" '个人

    case "16"'经纪人
     company=KS.S("company_jj")
              OfficeTel=KS.S("OfficeTel_jj")
     Fax=KS.S("Fax_jj")
     ZIP=KS.S("ZIP_jj")
     HomePage=KS.S("HomePage_jj")

    case "14","17" '地铺搜房易
     company=KS.S("company_sd")
              OfficeTel=KS.S("OfficeTel_sd")
     Fax=KS.S("Fax_sd")
     ZIP=KS.S("ZIP_sd")
     HomePage=KS.S("HomePage_sd")
     Sign=KS.S("Sign_sd") 

   end select